tfausak/witch
1
1
Fork 0
mirror of https://github.com/tfausak/witch.git synced 2024-11-26 09:43:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix x86_64 test cases

Browse Source
This commit is contained in:
Taylor Fausak 2021-05-28 19:52:13 +00:00
parent 3a48128c56
commit dc2af8f277
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/test/Main.hs
View File

@ -1003,8 +1003,8 @@ main = runTestTTAndExit $ "Witch" ~:
, let x = maxBound :: Word in if toInteger x >= 9007199254740991 , let x = maxBound :: Word in if toInteger x >= 9007199254740991
then f 9007199254740991 ~?= Just 9007199254740991 then f 9007199254740991 ~?= Just 9007199254740991
else f x ~?= Just (fromIntegral x) else f x ~?= Just (fromIntegral x)
, let x = maxBound :: Word in if toInteger x >= 9007199254740991 , let x = maxBound :: Word in if toInteger x >= 9007199254740992
then f 9007199254740991 ~?= Nothing then f 9007199254740992 ~?= Nothing
else f x ~?= Just (fromIntegral x) else f x ~?= Just (fromIntegral x)
] ]
, "TryFrom Natural Word8" ~: , "TryFrom Natural Word8" ~:
@ -1278,7 +1278,7 @@ main = runTestTTAndExit $ "Witch" ~:
then f 9007199254740991 ~?= Just 9007199254740991 then f 9007199254740991 ~?= Just 9007199254740991
else f (fromIntegral x) ~?= Just x else f (fromIntegral x) ~?= Just x
, f 9007199254740992 ~?= Nothing , f 9007199254740992 ~?= Nothing
, let x = maxBound :: Int in if toInteger x <= (-9007199254740991) , let x = minBound :: Int in if toInteger x <= (-9007199254740991)
then f (-9007199254740991) ~?= Just (-9007199254740991) then f (-9007199254740991) ~?= Just (-9007199254740991)
else f (fromIntegral x) ~?= Just x else f (fromIntegral x) ~?= Just x
, f (-9007199254740992) ~?= Nothing , f (-9007199254740992) ~?= Nothing