4 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/driver/RunMode.hs b/testsuite/tests/driver/RunMode.hs
new file mode 100644
index 0000000000..bad01fef39
--- /dev/null
+++ b/testsuite/tests/driver/RunMode.hs
@@ -0,0 +1,4 @@
+import Test
+
+main :: IO ()
+main = test
diff --git a/testsuite/tests/driver/RunMode.stdout b/testsuite/tests/driver/RunMode.stdout
new file mode 100644
index 0000000000..4b7e5d76b5
--- /dev/null
+++ b/testsuite/tests/driver/RunMode.stdout
@@ -0,0 +1 @@
+["hello"]
diff --git a/testsuite/tests/driver/RunMode/Test.hs b/testsuite/tests/driver/RunMode/Test.hs
new file mode 100644
index 0000000000..125535e437
--- /dev/null
+++ b/testsuite/tests/driver/RunMode/Test.hs
@@ -0,0 +1,7 @@
+module Test (test) where
+
+import System.Environment
+
+test :: IO ()
+test = do
+  print =<< getArgs
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 6f45e1ec21..0e6eb594b1 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -293,3 +293,4 @@ test('FullGHCVersion', normal, compile_and_run, ['-package ghc-boot'])
 test('OneShotTH', normal, makefile_test, [])
 test('T17481', normal, makefile_test, [])
 test('T20084', normal, makefile_test, [])
+test('RunMode', extra_files(['RunMode/Test.hs']), run_command, ['{compiler} --run -iRunMode/ -ignore-dot-ghci RunMode.hs -- hello'])