[project @ 2001-10-29 09:38:39 by simonmar]

Move the unused binding test from deSugar to rename, and add another
case which currently fails to produce a warning (from Marcin).  This
test is a known failure at the moment.

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

@@ -63,4 +63,3 @@ test "ds050" { vtc("-fglasgow-exts") }
 test "ds051" { vtc("") }
 test "ds052" { $expect = "fail" vtc("") }
 test "ds053" { $expect = "fail" vtc("") }
-test "ds054" { $expect = "fail" vtc("") }

testsuite/tests/ghc-regress/deSugar/should_compile/ds054.stderr

-should produce a warning

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

@@ -35,6 +35,7 @@ test "rn037"     { vtc("") }
 
 test "rn038" { $expect = "fail" vtc("") }
 test "rn039" { vtc("") }
+test "rn040" { $expect = "fail" vtc("") }
 
 test "timing001" { vtc("") }
 test "timing002" { vtc("") }

testsuite/tests/ghc-regress/deSugar/should_compile/ds054.hs → testsuite/tests/ghc-regress/rename/should_compile/rn040.hs

+{-# OPTIONS -fwarn-unused-binds #-}
 module ShouldCompile where
 
--- !!! should produce a warning about an unused identifer
+-- !!! should produce warnings about unused identifers
 x :: [()]
 x = [ () | y <- [] ]
+
+z = do w <- getContents; return ()

testsuite/tests/ghc-regress/rename/should_compile/rn040.stderr

+should produce warnings