Commit 1c2954c1 authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #6106

parent 9a6b8e4b
:l ../shell.hs
:def shell (\s -> do shell s; return "")
:l
:shell rm -f T6106.hs
:shell echo "{-# OPTIONS_GHC -F -pgmF ./T6106_preproc.sh #-}" >T6106.hs
:shell echo "module T6106 where" >>T6106.hs
:load T6106.hs
-- second one should fail:
:reload
T6106.hs:1:1: Parse error: naked expression at top level
#!/bin/bash
#
# file T6106_preproc.sh
#
cat $2 > $3
sleep 1
echo "FAIL" >$1
......@@ -127,3 +127,4 @@ test('T6027ghci', normal, ghci_script, ['T6027ghci.script'])
test('T6007', normal, ghci_script, ['T6007.script'])
test('T6091', normal, ghci_script, ['T6091.script'])
test('T6106', extra_clean(['T6106.hs']), ghci_script, ['T6106.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