Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/404c29f2943a0c003126d4fda712e4e67e0d5d43 >--------------------------------------------------------------- commit 404c29f2943a0c003126d4fda712e4e67e0d5d43 Author: Paolo Capriotti <[email protected]> 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, [''])
_______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
