[commit: testsuite] master: Add tests for #6027. (404c29f)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/404c29f2943a0c003126d4fda712e4e67e0d5d43

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

commit 404c29f2943a0c003126d4fda712e4e67e0d5d43
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Thu Apr 26 12:48:53 2012 +0100

    Add tests for #6027.

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

 tests/ghci/scripts/T6027ghci.script  |    3 +++
 tests/ghci/scripts/T6027ghci.stdout  |    1 +
 tests/ghci/scripts/all.T             |    1 +
 tests/rename/should_compile/T6027.hs |   10 ++++++++++
 tests/rename/should_compile/all.T    |    1 +
 5 files changed, 16 insertions(+), 0 deletions(-)

diff --git a/tests/ghci/scripts/T6027ghci.script b/tests/ghci/scripts/T6027ghci.script
new file mode 100644
index 0000000..418c82e
--- /dev/null
+++ b/tests/ghci/scripts/T6027ghci.script
@@ -0,0 +1,3 @@
+:set -XTypeOperators
+data (?)
+:info (?)
diff --git a/tests/ghci/scripts/T6027ghci.stdout b/tests/ghci/scripts/T6027ghci.stdout
new file mode 100644
index 0000000..3b5a01c
--- /dev/null
+++ b/tests/ghci/scripts/T6027ghci.stdout
@@ -0,0 +1 @@
+data (?) 	-- Defined at <interactive>:3:6
diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T
index bdec94a..a73e2b4 100755
--- a/tests/ghci/scripts/all.T
+++ b/tests/ghci/scripts/all.T
@@ -123,3 +123,4 @@ test('T5975b',
      [pre_cmd('touch föøbà r.hs'),
       clean_cmd('rm föøbà r.hs')],
      ghci_script, ['T5975b.script'])
+test('T6027ghci', normal, ghci_script, ['T6027ghci.script'])
diff --git a/tests/rename/should_compile/T6027.hs b/tests/rename/should_compile/T6027.hs
new file mode 100644
index 0000000..3188946
--- /dev/null
+++ b/tests/rename/should_compile/T6027.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TypeOperators #-}
+
+module T6027 where
+
+data (?) a b = Q a b
+
+infixr 2 ?
+
+test :: Int ? String ? Bool
+test = 0 `Q` ("foo" `Q` True)
diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
index c445030..0fb103f 100644
--- a/tests/rename/should_compile/all.T
+++ b/tests/rename/should_compile/all.T
@@ -189,3 +189,4 @@ test('T5592',
 test('T5867',
      extra_clean(['T5867a.hi', 'T5867a.o']),
      multimod_compile, ['T5867', '-v0'])
+test('T6027', normal, compile, [''])