diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-10-12 21:06:48 -0400 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2016-10-12 21:06:48 -0400 |
| commit | fef1df4bb4f4b74f4a0d0d22c913d29189e140e4 (patch) | |
| tree | 0ed22a3993b2997aad7c25e930ca0cce0b99ec5a /testsuite | |
| parent | 042c5930bff239337d21836db5b8d0ebf0180ffc (diff) | |
| download | haskell-fef1df4bb4f4b74f4a0d0d22c913d29189e140e4.tar.gz | |
Add test for #12456
Commit f352e5cd7bb629fe0ca3b913bfbe7bee43d62f3a fixed #12456. Let's add a test
to make sure it stays fixed.
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/should_run/T12456.script | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_run/all.T | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/should_run/T12456.script b/testsuite/tests/ghci/should_run/T12456.script new file mode 100644 index 0000000000..4c0ed53107 --- /dev/null +++ b/testsuite/tests/ghci/should_run/T12456.script @@ -0,0 +1,3 @@ +:set -XPatternSynonyms -XViewPatterns +:m + Language.Haskell.TH +pattern A :: ExpQ; pattern A <- (undefined -> ()) where A = undefined diff --git a/testsuite/tests/ghci/should_run/all.T b/testsuite/tests/ghci/should_run/all.T index f7e501847c..b6aa2e9da0 100644 --- a/testsuite/tests/ghci/should_run/all.T +++ b/testsuite/tests/ghci/should_run/all.T @@ -25,3 +25,4 @@ test('T7253', just_ghci, ghci_script, ['T7253.script']) test('T11328', just_ghci, ghci_script, ['T11328.script']) test('T11825', just_ghci, ghci_script, ['T11825.script']) test('T12128', just_ghci, ghci_script, ['T12128.script']) +test('T12456', just_ghci, ghci_script, ['T12456.script']) |