Test Trac #5557
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 21 Oct 2011 16:26:20 +0000 (17:26 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 21 Oct 2011 16:26:20 +0000 (17:26 +0100)
testsuite/tests/ghci/scripts/T5557.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/T5557.stdout [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T5557.script b/testsuite/tests/ghci/scripts/T5557.script
new file mode 100644 (file)
index 0000000..5ff79a7
--- /dev/null
@@ -0,0 +1,4 @@
+-- Both should raise an exception
+([seq (seq undefined (\a -> error "a"))] !! 0) [1]
+([seq (seq undefined (\a -> undefined))] !! 0) [1]
+
diff --git a/testsuite/tests/ghci/scripts/T5557.stdout b/testsuite/tests/ghci/scripts/T5557.stdout
new file mode 100644 (file)
index 0000000..e8585c0
--- /dev/null
@@ -0,0 +1,2 @@
+*** Exception: Prelude.undefined
+*** Exception: Prelude.undefined
index 72462d5..568109c 100644 (file)
@@ -104,3 +104,4 @@ test('T5045', normal, ghci_script, ['T5045.script'])
 test('T5130', normal, ghci_script, ['T5130.script'])
 test('T5417', normal, ghci_script, ['T5417.script'])
 test('T5545', normal, ghci_script, ['T5545.script'])
+test('T5557', normal, ghci_script, ['T5557.script'])