[project @ 2004-11-12 12:17:23 by ross]

Documented bugs in Hugs:

	mod154	module M where != module M(module M) where
	read023	Just.let x=id in x
	read033	1.0e+x
	read034	(3 + 4 +)
	read021	empty file
	tc084	monomorphism restriction and defaulting
	tc096	monomorphism restriction and defaulting

Also omitted tc144 for Hugs, because it loops.

testsuite/tests/ghc-regress/module/all.T

@@ -200,7 +200,7 @@ test('mod150', normal, compile_fail, [''])
 test('mod151', normal, compile_fail, [''])
 test('mod152', normal, compile_fail, [''])
 test('mod153', normal, compile_fail, [''])
-test('mod154', normal, compile, [''])
+test('mod154', expect_fail_if_compiler_type('hugs'), compile, [''])
 test('mod155', normal, compile_fail, [''])
 test('mod156', normal, compile, [''])
 test('mod157', normal, multimod_compile, ['mod157', '-v0'])

testsuite/tests/ghc-regress/parser/should_compile/all.T

@@ -30,7 +30,7 @@ test('read019', normal, compile, [''])
 
 test('read021', normal, compile, [''])
 test('read022', normal, compile, ["-fglasgow-exts"])
-test('read023', normal, compile, [''])
+test('read023', expect_fail_if_compiler_type('hugs'), compile, [''])
 test('read024', normal, compile, ["-fglasgow-exts"])
 test('read025', normal, compile, [''])
 test('read026', normal, compile, [''])
@@ -40,8 +40,8 @@ test('read029', normal, compile, [''])
 test('read030', normal, compile, [''])
 test('read031', normal, compile, [''])
 test('read032', normal, compile, [''])
-test('read033', normal, compile, [''])
-test('read034', normal, compile, [''])
+test('read033', expect_fail_if_compiler_type('hugs'), compile, [''])
+test('read034', expect_fail_if_compiler_type('hugs'), compile, [''])
 test('read036', normal, compile, [''])
 test('read037', normal, compile, [''])
 test('read038', normal, compile, [''])

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

@@ -20,10 +20,10 @@ test('read018', normal, compile_fail, [''])
 test('read019', normal, compile_fail, [''])
 test('read020', normal, compile_fail, [''])
 
-# empty file (length zero) is a legal Haskell module.  It fails to compile
+# empty file (length zero) is not a legal Haskell module.  It fails to compile
 # because it doesn't contain a definition of Main.main.  GHC 5.02 crashed
 # on this example.
-test('read021', normal, compile_fail, [''])
+test('read021', expect_fail_if_compiler_type('hugs'), compile_fail, [''])
 
 test('read022', normal, compile_fail, [''])
 test('read023', normal, compile_fail, [''])

testsuite/tests/ghc-regress/typecheck/should_compile/all.T

@@ -84,7 +84,7 @@ test('tc079', normal, compile, [''])
 test('tc080', normal, compile, [''])
 test('tc081', normal, compile, [''])
 test('tc082', normal, compile, [''])
-test('tc084', normal, compile, [''])
+test('tc084', expect_fail_if_compiler_type('hugs'), compile, [''])
 test('tc085', only_compiler_types(['ghc']), compile, [''])
 test('tc086', normal, compile, [''])
 test('tc087', normal, compile, ['-fglasgow-exts'])
@@ -96,7 +96,7 @@ test('tc092', normal, compile, [''])
 test('tc093', normal, compile, [''])
 test('tc094', normal, compile, [''])
 test('tc095', normal, compile, [''])
-test('tc096', normal, compile, [''])
+test('tc096', expect_fail_if_compiler_type('hugs'), compile, [''])
 test('tc097', normal, compile, ['-fglasgow-exts'])
 test('tc098', normal, compile, [''])
 test('tc099', normal, compile, [''])
@@ -141,7 +141,7 @@ test('tc140', normal, compile, [''])
 test('tc141', normal, compile, [''])
 test('tc142', normal, compile, [''])
 test('tc143', normal, compile, [''])
-test('tc144', normal, compile, [''])
+test('tc144', omit_compiler_types(['hugs']), compile, [''])	# Hugs loops
 test('tc145', normal, compile, [''])
 test('tc146', normal, compile, [''])
 test('tc147', normal, compile, [''])