[commit: testsuite] ghc-7.4: Add quot and rem to the integerConstantFolding test (2a133bb)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : ghc-7.4

http://hackage.haskell.org/trac/ghc/changeset/2a133bb8f048d67ce708b935def903ea2ca8ea7e

>---------------------------------------------------------------

commit 2a133bb8f048d67ce708b935def903ea2ca8ea7e
Author: Ian Lynagh <igloo at earth.li>
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