[project @ 2001-08-29 08:42:15 by simonmar]

Add irrefutable pattern test from the Hugs bugs list.

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

@@ -12,3 +12,4 @@ test "dsrun004" { vtr("", "", "") }
 test "dsrun005" { vtr("", "", "1") }
 test "dsrun006" { vtr("", "", "") }
 test "dsrun007" { vtr("", "", "1") }
+test "dsrun008" { vtr("", "", "1") }

testsuite/tests/ghc-regress/deSugar/should_run/dsrun008.hs

+-- !!! Double irrefutable pattern (bug in Hugs98, 29/8/2001)
+main = print (case (1,2) of ~(~(2,x)) -> x)

testsuite/tests/ghc-regress/deSugar/should_run/dsrun008.stderr

+
+Fail: dsrun008.hs:2: Irrefutable pattern failed for pattern (2, x)
+
+