summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghci/scripts/ghci029.script
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/ghci/scripts/ghci029.script')
-rw-r--r--testsuite/tests/ghci/scripts/ghci029.script11
1 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/ghci029.script b/testsuite/tests/ghci/scripts/ghci029.script
new file mode 100644
index 0000000000..e669b278e0
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/ghci029.script
@@ -0,0 +1,11 @@
+-- :main and :run
+let main = System.Environment.getArgs >>= print
+:main foo bar
+:main foo "bar baz"
+:main ["foo", "bar baz"]
+let foo = putStrLn "foo" >> System.Environment.getArgs >>= print
+let bar = putStrLn "bar" >> System.Environment.getArgs >>= print
+:set -main-is foo
+:main foo "bar baz"
+:run bar ["foo", "bar baz"]
+