From 1ea9fdcfce4b440d8c63440bd74180c463c845b0 Mon Sep 17 00:00:00 2001
From: nineonine <mail4chemik@gmail.com>
Date: Tue, 5 May 2020 00:03:00 -0700
Subject: [PATCH] Add test for #16167

---
 testsuite/tests/driver/T16167.hs     | 1 +
 testsuite/tests/driver/T16167.stdout | 1 +
 testsuite/tests/driver/all.T         | 2 ++
 3 files changed, 4 insertions(+)
 create mode 100644 testsuite/tests/driver/T16167.hs
 create mode 100644 testsuite/tests/driver/T16167.stdout

diff --git a/testsuite/tests/driver/T16167.hs b/testsuite/tests/driver/T16167.hs
new file mode 100644
index 0000000000..865a269a5c
--- /dev/null
+++ b/testsuite/tests/driver/T16167.hs
@@ -0,0 +1 @@
+module f
diff --git a/testsuite/tests/driver/T16167.stdout b/testsuite/tests/driver/T16167.stdout
new file mode 100644
index 0000000000..4cd1e64b6e
--- /dev/null
+++ b/testsuite/tests/driver/T16167.stdout
@@ -0,0 +1 @@
+{"span": {"file": "T16167.hs","startLine": 1,"startCol": 8,"endLine": 1,"endCol": 9},"doc": "parse error on input \u2018f\u2019","severity": "SevError","reason": null}
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 3060c8ff13..bb345c7ac9 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -261,6 +261,8 @@ test('T12955', normal, makefile_test, [])
 test('T12971', [when(opsys('mingw32'), expect_broken(17945)), ignore_stdout], makefile_test, [])
 test('json', normal, compile_fail, ['-ddump-json'])
 test('json2', normalise_version('base','ghc-prim'), compile, ['-ddump-types -ddump-json'])
+test('T16167', exit_code(1), run_command, 
+     ['{compiler} -x hs -e ":set prog T16167.hs" -ddump-json T16167.hs'])
 test('T13604', [], makefile_test, [])
 test('T13604a', [], makefile_test, [])
 # omitting hpc and profasm because they affect the
-- 
GitLab