[commit: ghc] wip/rae: Test #9066 in th/T9066 (ba147ac)

[git at git.haskell.org]

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

On branch  : wip/rae
Link       : http://ghc.haskell.org/trac/ghc/changeset/ba147ac1556b8024ff580825752cc64311593226/ghc

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

commit ba147ac1556b8024ff580825752cc64311593226
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Sun Nov 2 13:44:27 2014 -0500

    Test #9066 in th/T9066


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

ba147ac1556b8024ff580825752cc64311593226
 testsuite/tests/th/T9066.hs | 10 ++++++++++
 testsuite/tests/th/all.T    |  2 ++
 2 files changed, 12 insertions(+)

diff --git a/testsuite/tests/th/T9066.hs b/testsuite/tests/th/T9066.hs
new file mode 100644
index 0000000..2e46fe5
--- /dev/null
+++ b/testsuite/tests/th/T9066.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module T9066 where
+
+$([d| data Blargh = (:<=>) Int Int
+      infix 4 :<=>
+
+      type Foo a b = Either a b
+      infix 5 `Foo`
+        |])
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index a35e126..3d64060 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -336,3 +336,5 @@ test('T8953', normal, compile, ['-v0'])
 test('T9084', normal, compile_fail, ['-v0'])
 test('T9738', normal, compile, ['-v0'])
 test('T9081', normal, compile, ['-v0'])
+test('T9066', expect_broken(9066), compile, ['-v0'])
+