Add testcase for #7411
authorBen Gamari <ben@smart-cactus.org>
Thu, 27 Aug 2015 13:04:29 +0000 (15:04 +0200)
committerBen Gamari <ben@smart-cactus.org>
Sat, 29 Aug 2015 11:08:17 +0000 (13:08 +0200)
testsuite/tests/simplCore/should_fail/T7411.hs [new file with mode: 0644]
testsuite/tests/simplCore/should_fail/T7411.stderr [new file with mode: 0644]
testsuite/tests/simplCore/should_fail/all.T [new file with mode: 0644]

diff --git a/testsuite/tests/simplCore/should_fail/T7411.hs b/testsuite/tests/simplCore/should_fail/T7411.hs
new file mode 100644 (file)
index 0000000..10bc0b3
--- /dev/null
@@ -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 (file)
index 0000000..c02ad80
--- /dev/null
@@ -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 (file)
index 0000000..8e9e45a
--- /dev/null
@@ -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