Add test for #12456
authorRyan Scott <ryan.gl.scott@gmail.com>
Thu, 13 Oct 2016 01:06:48 +0000 (21:06 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Thu, 13 Oct 2016 01:06:48 +0000 (21:06 -0400)
Commit f352e5cd7bb629fe0ca3b913bfbe7bee43d62f3a fixed #12456. Let's add a test
to make sure it stays fixed.

testsuite/tests/ghci/should_run/T12456.script [new file with mode: 0644]
testsuite/tests/ghci/should_run/all.T

diff --git a/testsuite/tests/ghci/should_run/T12456.script b/testsuite/tests/ghci/should_run/T12456.script
new file mode 100644 (file)
index 0000000..4c0ed53
--- /dev/null
@@ -0,0 +1,3 @@
+:set -XPatternSynonyms -XViewPatterns
+:m + Language.Haskell.TH
+pattern A :: ExpQ; pattern A <- (undefined -> ()) where A = undefined
index f7e5018..b6aa2e9 100644 (file)
@@ -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'])