Add test case for #7117
[ghc.git] / testsuite / tests / ghci / scripts / ghci029.script
1 -- :main and :run
2 let main = System.Environment.getArgs >>= print
3 :main foo bar
4 :main foo "bar baz"
5 :main ["foo", "bar baz"]
6 let foo = putStrLn "foo" >> System.Environment.getArgs >>= print
7 let bar = putStrLn "bar" >> System.Environment.getArgs >>= print
8 :set -main-is foo
9 :main foo "bar baz"
10 :run bar ["foo", "bar baz"]
11