octane-0.2.1: test-suite/Octane/Type/Primitive/BooleanSpec.hs

{-# LANGUAGE OverloadedStrings #-}

module Octane.Type.Primitive.BooleanSpec (spec) where

import qualified Data.Binary as Binary
import qualified Data.Binary.Get as Binary
import qualified Data.ByteString.Lazy as BSL
import Octane
import Test.Tasty.Hspec

spec :: Spec
spec = describe "Boolean" $ do
    it "can be decoded" $ do
        decodeBoolean "\0" `shouldBe` Right ("", 1, NewBoolean False)
        decodeBoolean "\1" `shouldBe` Right ("", 1, NewBoolean True)
    it "can be encoded" $ do
        Binary.encode (NewBoolean False) `shouldBe` "\0"
        Binary.encode (NewBoolean True) `shouldBe` "\1"
    it "does not raise a runtime error when decoding garbage" $ do
        decodeBoolean "garbage" `shouldBe` Left ("arbage", 1, "out of bounds")

decodeBoolean :: BSL.ByteString -> Either (BSL.ByteString, Binary.ByteOffset, String) (BSL.ByteString, Binary.ByteOffset, Boolean)
decodeBoolean = Binary.decodeOrFail