Test Trac #8506
authorSimon Peyton Jones <simonpj@microsoft.com>
Wed, 6 Nov 2013 09:36:28 +0000 (09:36 +0000)
committerSimon Peyton Jones <simonpj@microsoft.com>
Wed, 6 Nov 2013 10:40:12 +0000 (10:40 +0000)
testsuite/tests/parser/should_fail/T8506.hs [new file with mode: 0644]
testsuite/tests/parser/should_fail/T8506.stderr [new file with mode: 0644]
testsuite/tests/parser/should_fail/all.T

diff --git a/testsuite/tests/parser/should_fail/T8506.hs b/testsuite/tests/parser/should_fail/T8506.hs
new file mode 100644 (file)
index 0000000..6603f56
--- /dev/null
@@ -0,0 +1,4 @@
+module T8506 where
+
+class Shapable Int where
+
diff --git a/testsuite/tests/parser/should_fail/T8506.stderr b/testsuite/tests/parser/should_fail/T8506.stderr
new file mode 100644 (file)
index 0000000..bfccfaf
--- /dev/null
@@ -0,0 +1,6 @@
+
+T8506.hs:3:16:
+    Unexpected type ‛Int’
+    In the class declaration for ‛Shapable’
+    A class declaration should have form
+      class Shapable a b c where ...
index 7e0194a..45c471e 100644 (file)
@@ -82,3 +82,4 @@ test('T7848', normal, compile_fail, ['-dppr-user-length=100'])
 test('ExportCommaComma', normal, compile_fail, [''])
 test('T8430', literate, compile_fail, [''])
 test('T8431', [timeout_multiplier(0.05)], compile_fail, ['-XAlternativeLayoutRule'])
+test('T8506', normal, compile_fail, [''])