unbeliever-0.7.3.0: tests/CheckBytesBehaviour.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}

module CheckBytesBehaviour where

import qualified Data.ByteString.Char8 as C
import Test.Hspec

import Core.Text.Bytes

checkBytesBehaviour :: Spec
checkBytesBehaviour = do
    describe "Bytes data type" $ do
        it "chunks Bytes in 64 bit words" $
          let
            expected =
                [ C.pack "Hello Wo"
                , C.pack "rld! Goo"
                , C.pack "d Bye."
                ]
          in do
            chunk (C.pack "Hello World! Good Bye.") `shouldBe` expected