Test Trac #5951
authorSimon Peyton Jones <simonpj@microsoft.com>
Fri, 30 Mar 2012 12:43:00 +0000 (13:43 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Fri, 30 Mar 2012 12:43:00 +0000 (13:43 +0100)
testsuite/tests/rename/should_fail/T5951.hs [new file with mode: 0644]
testsuite/tests/rename/should_fail/T5951.stderr [new file with mode: 0644]
testsuite/tests/rename/should_fail/all.T

diff --git a/testsuite/tests/rename/should_fail/T5951.hs b/testsuite/tests/rename/should_fail/T5951.hs
new file mode 100644 (file)
index 0000000..7075679
--- /dev/null
@@ -0,0 +1,11 @@
+module T5951 where
+
+class A a 
+class B b
+class C c
+
+instance
+       A =>
+       B =>
+       C where
+         foo = undefined
diff --git a/testsuite/tests/rename/should_fail/T5951.stderr b/testsuite/tests/rename/should_fail/T5951.stderr
new file mode 100644 (file)
index 0000000..af0ee9d
--- /dev/null
@@ -0,0 +1,2 @@
+
+T5951.hs:8:8: Malformed instance: A => B => C
index c762efc..a512d19 100644 (file)
@@ -101,3 +101,4 @@ test('T5745',
      multimod_compile_fail, ['T5745', '-v0'])
 test('T5892a', normal, compile_fail, [''])
 test('T5892b', normal, compile_fail, [''])
+test('T5951', normal, compile_fail, [''])