Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b5b8d17c7ee55165f84be3befe76a6355d6dfeda >--------------------------------------------------------------- commit b5b8d17c7ee55165f84be3befe76a6355d6dfeda Author: Ian Lynagh <[email protected]> Date: Tue Jan 10 23:17:43 2012 +0000 Add quot and rem to the integerConstantFolding test >--------------------------------------------------------------- tests/lib/integer/Makefile | 2 ++ tests/lib/integer/integerConstantFolding.hs | 8 ++++++++ tests/lib/integer/integerConstantFolding.stdout | 2 ++ 3 files changed, 12 insertions(+), 0 deletions(-) diff --git a/tests/lib/integer/Makefile b/tests/lib/integer/Makefile index 0d28981..612f3f0 100644 --- a/tests/lib/integer/Makefile +++ b/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/tests/lib/integer/integerConstantFolding.hs b/tests/lib/integer/integerConstantFolding.hs index a5603bd..bea5149 100644 --- a/tests/lib/integer/integerConstantFolding.hs +++ b/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/tests/lib/integer/integerConstantFolding.stdout b/tests/lib/integer/integerConstantFolding.stdout index dba5013..471eb75 100644 --- a/tests/lib/integer/integerConstantFolding.stdout +++ b/tests/lib/integer/integerConstantFolding.stdout @@ -38,3 +38,5 @@ quotRemInteger: (813,60) divModInteger: (219,196) shiftLInteger: 1600976 shiftRInteger: 6253 +quotInteger: 641 +remInteger: 68 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
