diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-08-27 15:04:29 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-29 13:08:17 +0200 |
| commit | 15cb83d4e98c2c356bf0e3eb0df6d322755337bd (patch) | |
| tree | 5207037d38a0e20e82153f4aa2616c9560603535 | |
| parent | 38c98e4f61a48084995a5347d76ddd024ce1a09c (diff) | |
| download | haskell-15cb83d4e98c2c356bf0e3eb0df6d322755337bd.tar.gz | |
Add testcase for #7411
| -rw-r--r-- | testsuite/tests/simplCore/should_fail/T7411.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_fail/T7411.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/simplCore/should_fail/all.T | 3 |
3 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_fail/T7411.hs b/testsuite/tests/simplCore/should_fail/T7411.hs new file mode 100644 index 0000000000..10bc0b304d --- /dev/null +++ b/testsuite/tests/simplCore/should_fail/T7411.hs @@ -0,0 +1,3 @@ +import Control.Exception +import Control.DeepSeq +main = evaluate (('a' : undefined) `deepseq` return () :: IO ()) diff --git a/testsuite/tests/simplCore/should_fail/T7411.stderr b/testsuite/tests/simplCore/should_fail/T7411.stderr new file mode 100644 index 0000000000..c02ad804a3 --- /dev/null +++ b/testsuite/tests/simplCore/should_fail/T7411.stderr @@ -0,0 +1,2 @@ +T7411: Prelude.undefined + diff --git a/testsuite/tests/simplCore/should_fail/all.T b/testsuite/tests/simplCore/should_fail/all.T new file mode 100644 index 0000000000..8e9e45ad73 --- /dev/null +++ b/testsuite/tests/simplCore/should_fail/all.T @@ -0,0 +1,3 @@ +test('T7411', [expect_broken_for(7411, ['optasm', 'optllvm', + 'hpc', 'threaded2', 'dyn']), + exit_code(1)], compile_and_run, [''])
\ No newline at end of file |