[project @ 2003-01-23 14:30:25 by simonpj]

Add two new deriving tests

testsuite/tests/ghc-regress/deriving/should_fail/all.T

@@ -3,4 +3,6 @@ test('drvfail001', normal, compile_fail, [''])
 test('drvfail002', normal, compile_fail, [''])
 test('drvfail003', normal, compile_fail, [''])
 test('drvfail004', normal, compile_fail, [''])
+test('drvfail005', normal, compile_fail, [''])
+test('drvfail006', normal, compile_fail, [''])
 test('drvfail007', normal, compile_fail, [''])

testsuite/tests/ghc-regress/deriving/should_fail/drvfail005.hs

+module ShouldFail where
+
+data Test a = T a 
+  deriving( Show a, Read )

testsuite/tests/ghc-regress/deriving/should_fail/drvfail005.stderr

+
+drvfail005.hs:3:
+    Can't make a derived instance of `Show a (Test a)'
+    (`Show a' is not a class)
+    When deriving instances for type `Test'

testsuite/tests/ghc-regress/deriving/should_fail/drvfail006.hs

+{-# OPTIONS -fglasgow-exts #-}
+
+-- Testing the newtype-deriving stuff
+
+module ShouldFail where
+
+import Control.Monad.State
+
+newtype T a = T (StateT Int IO a) deriving( MonadState )
+	-- Here MonadState takes two type params,
+	-- but exactly one is needed.
\ No newline at end of file