diff options
| author | nineonine <mail4chemik@gmail.com> | 2020-05-05 00:03:00 -0700 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-08 15:30:03 -0400 |
| commit | 9d97f4b5ddcfdf32b52734188f595d9a11fd4879 (patch) | |
| tree | 9347a311b0276a46536d157a6d41e75fda7fa29c | |
| parent | 86c77b36628dcce7bc9b066fc24c8c521fecc3ee (diff) | |
| download | haskell-9d97f4b5ddcfdf32b52734188f595d9a11fd4879.tar.gz | |
Add test for #16167
| -rw-r--r-- | testsuite/tests/driver/T16167.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/driver/T16167.stdout | 1 | ||||
| -rw-r--r-- | testsuite/tests/driver/all.T | 2 |
3 files changed, 4 insertions, 0 deletions
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 |