Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b648aebe972b0b3a3f7d6e33808c9b181310449b >--------------------------------------------------------------- commit b648aebe972b0b3a3f7d6e33808c9b181310449b Author: Ian Lynagh <[email protected]> Date: Fri Jul 13 19:44:47 2012 +0100 Add a couple of tests for gcdInteger >--------------------------------------------------------------- tests/lib/integer/Makefile | 6 ++++++ tests/lib/integer/T7041.hs | 6 ++++++ tests/lib/integer/all.T | 5 +++++ tests/lib/integer/gcdInteger.hs | 17 +++++++++++++++++ tests/lib/integer/gcdInteger.stdout | 1 + 5 files changed, 35 insertions(+), 0 deletions(-) diff --git a/tests/lib/integer/Makefile b/tests/lib/integer/Makefile index 34d5a17..77b733d 100644 --- a/tests/lib/integer/Makefile +++ b/tests/lib/integer/Makefile @@ -56,3 +56,9 @@ IntegerConversionRules: -grep -q integerToWord [email protected] && echo "integerToWord present" -grep -q int2Word [email protected] || echo "int2Word absent" +.PHONY: T7041 +T7041: + '$(TEST_HC)' -Wall -v0 -O -c [email protected] -fforce-recomp -ddump-simpl > [email protected] + -grep -q gcdInteger [email protected] && echo "gcdInteger present" + -grep -q "gcdInt\>" [email protected] || echo "gcdInt absent" + diff --git a/tests/lib/integer/T7041.hs b/tests/lib/integer/T7041.hs new file mode 100644 index 0000000..02ef996 --- /dev/null +++ b/tests/lib/integer/T7041.hs @@ -0,0 +1,6 @@ + +module T7041 where + +gcdInt :: Int -> Int -> Int +gcdInt a b = fromInteger (gcd (toInteger a) (toInteger b)) + diff --git a/tests/lib/integer/all.T b/tests/lib/integer/all.T index 99056d6..cb57675 100644 --- a/tests/lib/integer/all.T +++ b/tests/lib/integer/all.T @@ -12,4 +12,9 @@ test('IntegerConversionRules', extra_clean(['IntegerConversionRules.simpl']), run_command, ['$MAKE -s --no-print-directory IntegerConversionRules']) +test('gcdInteger', normal, compile_and_run, ['']) +test('T7041', + extra_clean(['T7041.simpl']), + run_command, + ['$MAKE -s --no-print-directory T7041']) diff --git a/tests/lib/integer/gcdInteger.hs b/tests/lib/integer/gcdInteger.hs new file mode 100644 index 0000000..2e945a8 --- /dev/null +++ b/tests/lib/integer/gcdInteger.hs @@ -0,0 +1,17 @@ + +{-# LANGUAGE MagicHash #-} + +module Main (main) where + +import GHC.Base +import GHC.Integer + +main :: IO () +main = case i of + I# i# -> + print (gcd (smallInteger i#) (smallInteger i#)) + +{-# NOINLINE i #-} +i :: Int +i = minBound + diff --git a/tests/lib/integer/gcdInteger.stdout b/tests/lib/integer/gcdInteger.stdout new file mode 100644 index 0000000..b0898f3 --- /dev/null +++ b/tests/lib/integer/gcdInteger.stdout @@ -0,0 +1 @@ +9223372036854775808 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
