Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/712cfd757b32bee1e26019cd54503a1e4520e8ab >--------------------------------------------------------------- commit 712cfd757b32bee1e26019cd54503a1e4520e8ab Author: Paolo Capriotti <[email protected]> Date: Mon May 14 13:40:13 2012 +0100 Add test for #6091. >--------------------------------------------------------------- tests/ghci/scripts/T6091.hs | 5 +++++ tests/ghci/scripts/T6091.script | 2 ++ tests/ghci/scripts/T6091.stdout | 2 ++ tests/ghci/scripts/all.T | 1 + 4 files changed, 10 insertions(+), 0 deletions(-) diff --git a/tests/ghci/scripts/T6091.hs b/tests/ghci/scripts/T6091.hs new file mode 100644 index 0000000..b70cec4 --- /dev/null +++ b/tests/ghci/scripts/T6091.hs @@ -0,0 +1,5 @@ +module T6091 where + +infixr 4 `foo` +foo :: Int -> Int -> Int +foo x y = x * y diff --git a/tests/ghci/scripts/T6091.script b/tests/ghci/scripts/T6091.script new file mode 100644 index 0000000..2ea305e --- /dev/null +++ b/tests/ghci/scripts/T6091.script @@ -0,0 +1,2 @@ +:l T6091.hs +:info foo diff --git a/tests/ghci/scripts/T6091.stdout b/tests/ghci/scripts/T6091.stdout new file mode 100644 index 0000000..f8610ba --- /dev/null +++ b/tests/ghci/scripts/T6091.stdout @@ -0,0 +1,2 @@ +foo :: Int -> Int -> Int -- Defined at T6091.hs:5:1 +infixr 4 `foo` diff --git a/tests/ghci/scripts/all.T b/tests/ghci/scripts/all.T index fa24d54..716bb1c 100755 --- a/tests/ghci/scripts/all.T +++ b/tests/ghci/scripts/all.T @@ -126,3 +126,4 @@ test('T5975b', test('T6027ghci', normal, ghci_script, ['T6027ghci.script']) test('T6007', normal, ghci_script, ['T6007.script']) +test('T6091', normal, ghci_script, ['T6091.script']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
