diff --git a/testsuite/tests/ghci/should_fail/T18027a.script b/testsuite/tests/ghci/should_fail/T18027a.script
new file mode 100644
index 0000000000000000000000000000000000000000..c1d4a5a8c5783278119fdf28437cc89f7a2992cb
--- /dev/null
+++ b/testsuite/tests/ghci/should_fail/T18027a.script
@@ -0,0 +1,2 @@
+:script
+:script one two
diff --git a/testsuite/tests/ghci/should_fail/T18027a.stderr b/testsuite/tests/ghci/should_fail/T18027a.stderr
new file mode 100644
index 0000000000000000000000000000000000000000..b320128f469d70d1c6b2a5a9231318a188b95d1f
--- /dev/null
+++ b/testsuite/tests/ghci/should_fail/T18027a.stderr
@@ -0,0 +1,2 @@
+syntax:  :script <filename>
+syntax:  :script <filename>
diff --git a/testsuite/tests/ghci/should_fail/all.T b/testsuite/tests/ghci/should_fail/all.T
index 6c8d0ac000b66fe1701c7bd902910dadf09520d4..f2618ce08ca9eb3a1efed3e70f5467bca0f85828 100644
--- a/testsuite/tests/ghci/should_fail/all.T
+++ b/testsuite/tests/ghci/should_fail/all.T
@@ -4,3 +4,4 @@ test('T15055', normalise_version('ghc'), ghci_script, ['T15055.script'])
 test('T16013', [], ghci_script, ['T16013.script'])
 test('T16287', [], ghci_script, ['T16287.script'])
 test('T18052b', [], ghci_script, ['T18052b.script'])
+test('T18027a', [], ghci_script, ['T18027a.script'])