[commit: ghc] master: Add test for #12456 (fef1df4)

git at git.haskell.org git at git.haskell.org
Thu Oct 13 01:09:01 UTC 2016


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/fef1df4bb4f4b74f4a0d0d22c913d29189e140e4/ghc

>---------------------------------------------------------------

commit fef1df4bb4f4b74f4a0d0d22c913d29189e140e4
Author: Ryan Scott <ryan.gl.scott at gmail.com>
Date:   Wed Oct 12 21:06:48 2016 -0400

    Add test for #12456
    
    Commit f352e5cd7bb629fe0ca3b913bfbe7bee43d62f3a fixed #12456. Let's add a test
    to make sure it stays fixed.


>---------------------------------------------------------------

fef1df4bb4f4b74f4a0d0d22c913d29189e140e4
 testsuite/tests/ghci/should_run/T12456.script | 3 +++
 testsuite/tests/ghci/should_run/all.T         | 1 +
 2 files changed, 4 insertions(+)

diff --git a/testsuite/tests/ghci/should_run/T12456.script b/testsuite/tests/ghci/should_run/T12456.script
new file mode 100644
index 0000000..4c0ed53
--- /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 f7e5018..b6aa2e9 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'])



More information about the ghc-commits mailing list