diff options
Diffstat (limited to 'testsuite/tests/ghci/scripts')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T5557.script | 4 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T5557.stdout | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T5557.script b/testsuite/tests/ghci/scripts/T5557.script new file mode 100644 index 0000000000..5ff79a7993 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T5557.script @@ -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 index 0000000000..e8585c00f0 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T5557.stdout @@ -0,0 +1,2 @@ +*** Exception: Prelude.undefined +*** Exception: Prelude.undefined diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 72462d5fb2..568109c97d 100644 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -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']) |