diff options
author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-05-14 13:40:13 +0100 |
---|---|---|
committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-05-14 14:50:54 +0100 |
commit | 37a28207a5e30fb4737f77cd8d458f2b9090275f (patch) | |
tree | 56826c4a1c05ee9c80909b9cb46e90cb2c2a0d2e | |
parent | d93dc415916f23088c70eb6613d685911fb14e23 (diff) | |
download | haskell-37a28207a5e30fb4737f77cd8d458f2b9090275f.tar.gz |
Add test for #6091.
-rw-r--r-- | testsuite/tests/ghci/scripts/T6091.hs | 5 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T6091.script | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T6091.stdout | 2 | ||||
-rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
4 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T6091.hs b/testsuite/tests/ghci/scripts/T6091.hs new file mode 100644 index 0000000000..b70cec48f8 --- /dev/null +++ b/testsuite/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/testsuite/tests/ghci/scripts/T6091.script b/testsuite/tests/ghci/scripts/T6091.script new file mode 100644 index 0000000000..2ea305e379 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T6091.script @@ -0,0 +1,2 @@ +:l T6091.hs +:info foo diff --git a/testsuite/tests/ghci/scripts/T6091.stdout b/testsuite/tests/ghci/scripts/T6091.stdout new file mode 100644 index 0000000000..f8610ba95d --- /dev/null +++ b/testsuite/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/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index fa24d549ef..716bb1cebd 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/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']) |