diff options
author | Ian Lynagh <igloo@earth.li> | 2012-01-10 23:17:43 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2012-01-10 23:17:43 +0000 |
commit | ad0e1c9c577ee87a5da8fcf8530ddede06e94de4 (patch) | |
tree | 0f449e7adfe4faad33806a665a636ca72d10d767 /testsuite/tests | |
parent | 8111e64fca75363c587489e3ec9a21dd972ccab8 (diff) | |
download | haskell-ad0e1c9c577ee87a5da8fcf8530ddede06e94de4.tar.gz |
Add quot and rem to the integerConstantFolding test
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/lib/integer/Makefile | 2 | ||||
-rw-r--r-- | testsuite/tests/lib/integer/integerConstantFolding.hs | 8 | ||||
-rw-r--r-- | testsuite/tests/lib/integer/integerConstantFolding.stdout | 2 |
3 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/lib/integer/Makefile b/testsuite/tests/lib/integer/Makefile index 0d289817a3..612f3f09d4 100644 --- a/testsuite/tests/lib/integer/Makefile +++ b/testsuite/tests/lib/integer/Makefile @@ -28,5 +28,7 @@ integerConstantFolding: $(call CHECK,\<196\>,divModInteger) $(call CHECK,\<1600976\>,shiftLInteger) $(call CHECK,\<6253\>,shiftRInteger) + $(call CHECK,\<641\>,quotInteger) + $(call CHECK,\<68\>,remInteger) ./integerConstantFolding diff --git a/testsuite/tests/lib/integer/integerConstantFolding.hs b/testsuite/tests/lib/integer/integerConstantFolding.hs index a5603bd04b..bea5149779 100644 --- a/testsuite/tests/lib/integer/integerConstantFolding.hs +++ b/testsuite/tests/lib/integer/integerConstantFolding.hs @@ -44,6 +44,8 @@ main = do p "plusInteger" plusInteger p "divModInteger" divModInteger p "shiftLInteger" shiftLInteger p "shiftRInteger" shiftRInteger + p "quotInteger" quotInteger + p "remInteger" remInteger where p :: Show a => String -> a -> IO () p str x = putStrLn (str ++ ": " ++ show x) @@ -151,3 +153,9 @@ shiftLInteger = 100061 `shiftL` 4 shiftRInteger :: Integer shiftRInteger = 100062 `shiftR` 4 +quotInteger :: Integer +quotInteger = 100063 `quot` 156 + +remInteger :: Integer +remInteger = 100064 `rem` 156 + diff --git a/testsuite/tests/lib/integer/integerConstantFolding.stdout b/testsuite/tests/lib/integer/integerConstantFolding.stdout index dba50138f0..471eb755cf 100644 --- a/testsuite/tests/lib/integer/integerConstantFolding.stdout +++ b/testsuite/tests/lib/integer/integerConstantFolding.stdout @@ -38,3 +38,5 @@ quotRemInteger: (813,60) divModInteger: (219,196) shiftLInteger: 1600976 shiftRInteger: 6253 +quotInteger: 641 +remInteger: 68 |