From 8f8fc31b84919ea40da87eb4607bb2a52b960efe Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Sun, 16 Jun 2019 17:13:15 -0400
Subject: [PATCH] testsuite: Add test for #16563
---
testsuite/tests/ghci/scripts/T16563.script | 1 +
testsuite/tests/ghci/scripts/T16563.stdout | 2 ++
testsuite/tests/ghci/scripts/all.T | 1 +
3 files changed, 4 insertions(+)
create mode 100644 testsuite/tests/ghci/scripts/T16563.script
create mode 100644 testsuite/tests/ghci/scripts/T16563.stdout
diff --git a/testsuite/tests/ghci/scripts/T16563.script b/testsuite/tests/ghci/scripts/T16563.script
new file mode 100644
index 000000000000..ce8711aeced2
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T16563.script
@@ -0,0 +1 @@
+putStrLn "hello world"
diff --git a/testsuite/tests/ghci/scripts/T16563.stdout b/testsuite/tests/ghci/scripts/T16563.stdout
new file mode 100644
index 000000000000..9a71f81a4b47
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T16563.stdout
@@ -0,0 +1,2 @@
+hello world
+
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index db619c142bb0..c388cdc5888f 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -296,5 +296,6 @@ test('T16089', normal, ghci_script, ['T16089.script'])
test('T14828', normal, ghci_script, ['T14828.script'])
test('T16376', normal, ghci_script, ['T16376.script'])
test('T16527', normal, ghci_script, ['T16527.script'])
+test('T16563', extra_hc_opts("-clear-package-db -global-package-db"), ghci_script, ['T16563.script'])
test('T16569', normal, ghci_script, ['T16569.script'])
test('T16767', normal, ghci_script, ['T16767.script'])
--
GitLab