[commit: ghc] master: Add testcase for #10426 (fdb08e2)

[git at git.haskell.org]

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

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

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

commit fdb08e2abccf1e02dc2ef91531aebe062d8af82d
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Oct 23 17:42:11 2015 +0200

    Add testcase for #10426


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

fdb08e2abccf1e02dc2ef91531aebe062d8af82d
 testsuite/tests/patsyn/should_compile/T10426.hs | 3 +++
 testsuite/tests/patsyn/should_compile/all.T     | 1 +
 2 files changed, 4 insertions(+)

diff --git a/testsuite/tests/patsyn/should_compile/T10426.hs b/testsuite/tests/patsyn/should_compile/T10426.hs
new file mode 100644
index 0000000..bb85a19
--- /dev/null
+++ b/testsuite/tests/patsyn/should_compile/T10426.hs
@@ -0,0 +1,3 @@
+{-# LANGUAGE PatternSynonyms, ViewPatterns, EmptyCase #-}
+
+pattern Id <- (id -> _) where
diff --git a/testsuite/tests/patsyn/should_compile/all.T b/testsuite/tests/patsyn/should_compile/all.T
index 5e86a99..9d42fa0 100644
--- a/testsuite/tests/patsyn/should_compile/all.T
+++ b/testsuite/tests/patsyn/should_compile/all.T
@@ -24,4 +24,5 @@ test('T9889', normal, compile, [''])
 test('T9867', normal, compile, [''])
 test('T9975a', normal, compile_fail, [''])
 test('T9975b', normal, compile, [''])
+test('T10426', [expect_broken(10426)], compile, [''])
 test('T10747', normal, compile, [''])