rhi/bytebuild
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add test for consLength32BE

Browse source
This commit is contained in:
Andrew Martin 2019-09-19 12:06:50 -04:00
parent d52aecdc60
commit 13d7f0c948
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/Main.hs
View file

@ -7,7 +7,7 @@ import Control.Monad.ST (runST)
import Data.Bytes.Types (MutableBytes(..)) import Data.Bytes.Types (MutableBytes(..))
import Data.ByteArray.Builder import Data.ByteArray.Builder
import Data.Word import Data.Word
import Data.Char (ord) import Data.Char (ord,chr)
import Data.Primitive (ByteArray) import Data.Primitive (ByteArray)
import Test.Tasty (defaultMain,testGroup,TestTree) import Test.Tasty (defaultMain,testGroup,TestTree)
import Test.QuickCheck ((===)) import Test.QuickCheck ((===))
@ -57,6 +57,10 @@ tests = testGroup "Tests"
run 1 (word8Dec w) run 1 (word8Dec w)
=== ===
pack (show w) pack (show w)
, TQC.testProperty "consLength32BE" $ \w ->
run 1 (consLength32BE (word8Dec w))
===
pack ('\x00' : '\x00' : '\x00' : chr (L.length (show w)) : show w)
, TQC.testProperty "pasteArrayST" $ \(xs :: [Word64]) -> , TQC.testProperty "pasteArrayST" $ \(xs :: [Word64]) ->
(runArray word64Dec (V.fromList xs)) (runArray word64Dec (V.fromList xs))
=== ===