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

add more tests for doubleDec

Browse source
This commit is contained in:
Andrew Martin 2019-08-05 12:12:37 -04:00
parent 37aaeac18a
commit 1fd4b3ab1e
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/Main.hs
View file

@ -71,6 +71,10 @@ tests = testGroup "Tests"
pack ("0.5") @=? run 1 (doubleDec 0.5) pack ("0.5") @=? run 1 (doubleDec 0.5)
, THU.testCase "doubleDec-I" $ , THU.testCase "doubleDec-I" $
pack ("-0.5") @=? run 1 (doubleDec (-0.5)) pack ("-0.5") @=? run 1 (doubleDec (-0.5))
, THU.testCase "doubleDec-J" $
pack ("999999999") @=? run 1 (doubleDec 999999999)
, THU.testCase "doubleDec-K" $
pack ("-99999999") @=? run 1 (doubleDec (-99999999))
] ]
, testGroup "alternate" , testGroup "alternate"
[ TQC.testProperty "HexWord64" $ \x y -> [ TQC.testProperty "HexWord64" $ \x y ->