Commit 13b8cc91 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #5557

parent dcd2f02e
-- Both should raise an exception
([seq (seq undefined (\a -> error "a"))] !! 0) [1]
([seq (seq undefined (\a -> undefined))] !! 0) [1]
*** Exception: Prelude.undefined
*** Exception: Prelude.undefined
......@@ -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'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment