Commit 32b2573a authored by pcapriotti's avatar pcapriotti
Browse files

Add tests for #6027.

parent 3ad4e945
:set -XTypeOperators
data (?)
:info (?)
data (?) -- Defined at <interactive>:3:6
...@@ -123,3 +123,4 @@ test('T5975b', ...@@ -123,3 +123,4 @@ test('T5975b',
[pre_cmd('touch föøbàr.hs'), [pre_cmd('touch föøbàr.hs'),
clean_cmd('rm föøbàr.hs')], clean_cmd('rm föøbàr.hs')],
ghci_script, ['T5975b.script']) ghci_script, ['T5975b.script'])
test('T6027ghci', normal, ghci_script, ['T6027ghci.script'])
{-# LANGUAGE TypeOperators #-}
module T6027 where
data (?) a b = Q a b
infixr 2 ?
test :: Int ? String ? Bool
test = 0 `Q` ("foo" `Q` True)
...@@ -189,3 +189,4 @@ test('T5592', ...@@ -189,3 +189,4 @@ test('T5592',
test('T5867', test('T5867',
extra_clean(['T5867a.hi', 'T5867a.o']), extra_clean(['T5867a.hi', 'T5867a.o']),
multimod_compile, ['T5867', '-v0']) multimod_compile, ['T5867', '-v0'])
test('T6027', normal, compile, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment