Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b244e68b814d29a4c0258b9465d563a9304179df >--------------------------------------------------------------- commit b244e68b814d29a4c0258b9465d563a9304179df Author: Simon Peyton Jones <[email protected]> Date: Mon Mar 12 09:01:49 2012 +0000 Test Trac #5915 >--------------------------------------------------------------- tests/simplCore/should_run/T5915.hs | 5 +++++ tests/simplCore/should_run/T5915.stdout | 1 + tests/simplCore/should_run/all.T | 3 ++- 3 files changed, 8 insertions(+), 1 deletions(-) diff --git a/tests/simplCore/should_run/T5915.hs b/tests/simplCore/should_run/T5915.hs new file mode 100644 index 0000000..b7ae885 --- /dev/null +++ b/tests/simplCore/should_run/T5915.hs @@ -0,0 +1,5 @@ +module Main where + +test = seq (seq id (\a -> undefined a)) + +main = print (test [0]) diff --git a/tests/simplCore/should_run/T5915.stdout b/tests/simplCore/should_run/T5915.stdout new file mode 100644 index 0000000..21d5bf5 --- /dev/null +++ b/tests/simplCore/should_run/T5915.stdout @@ -0,0 +1 @@ +[0] diff --git a/tests/simplCore/should_run/all.T b/tests/simplCore/should_run/all.T index fb04d89..aa3cc7f 100644 --- a/tests/simplCore/should_run/all.T +++ b/tests/simplCore/should_run/all.T @@ -50,6 +50,7 @@ test('T5441', extra_clean(['T5441a.o','T5441a.hi']), multimod_compile_and_run, ['T5441','']) test('T5603', normal, compile_and_run, ['']) -# Run this test *without* optimisation too +# Run these tests *without* optimisation too test('T5625', [ only_ways(['normal','optasm']), exit_code(1) ], compile_and_run, ['']) test('T5587', [ only_ways(['normal','optasm']), exit_code(1) ], compile_and_run, ['']) +test('T5915', only_ways(['normal','optasm']), compile_and_run, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
