summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2013-11-18 10:50:08 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2013-11-18 10:51:05 +0000
commitcb9a3b38e6e26ffbdec9de4b4bb73aaa00662040 (patch)
tree46ca34cbb6333e01f98ff37362c34c7b0c5408ac /testsuite
parenta0d5566989f0c27038585ea2654e5cd247948149 (diff)
downloadhaskell-cb9a3b38e6e26ffbdec9de4b4bb73aaa00662040.tar.gz
Test Trac #8535
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/tests/ghci/scripts/T8535.script2
-rw-r--r--testsuite/tests/ghci/scripts/T8535.stdout4
-rwxr-xr-xtestsuite/tests/ghci/scripts/all.T3
3 files changed, 8 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/scripts/T8535.script b/testsuite/tests/ghci/scripts/T8535.script
new file mode 100644
index 0000000000..bd41a8a629
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8535.script
@@ -0,0 +1,2 @@
+import Data.Monoid
+:info (->)
diff --git a/testsuite/tests/ghci/scripts/T8535.stdout b/testsuite/tests/ghci/scripts/T8535.stdout
new file mode 100644
index 0000000000..dbc88e18da
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8535.stdout
@@ -0,0 +1,4 @@
+data (->) a b -- Defined in ‛GHC.Prim’
+instance Monad ((->) r) -- Defined in ‛GHC.Base’
+instance Functor ((->) r) -- Defined in ‛GHC.Base’
+instance Monoid b => Monoid (a -> b) -- Defined in ‛Data.Monoid’
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 9c6ad0c3cd..966ea90c0d 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -158,4 +158,5 @@ test('T8215', normal, ghci_script, ['T8215.script'])
test('T8357', normal, ghci_script, ['T8357.script'])
test('T8383', normal, ghci_script, ['T8383.script'])
test('T8469', normal, ghci_script, ['T8469.script'])
-test('T8485', normal, ghci_script, ['T8485.script']) \ No newline at end of file
+test('T8485', normal, ghci_script, ['T8485.script'])
+test('T8535', normal, ghci_script, ['T8535.script'])