From b20a7fcb0b44a1bea6814f4c2440957f12d67d3a Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Thu, 20 Mar 2008 12:39:42 +0000 Subject: [PATCH] Fixed some tests in ParseRainTest --- frontends/ParseRainTest.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/frontends/ParseRainTest.hs b/frontends/ParseRainTest.hs index 0dc9788..ff8d04e 100644 --- a/frontends/ParseRainTest.hs +++ b/frontends/ParseRainTest.hs @@ -255,11 +255,11 @@ testRange :: [ParseTest A.Expression] testRange = [ pass("[0..1]", RP.expression, assertPatternMatch "testRange 0" $ pat $ - A.ExprConstr m $ A.RangeConstr m A.Any (intLiteral 0) (intLiteral 1)) + A.ExprConstr m $ A.RangeConstr m (A.List A.Any) (intLiteral 0) (intLiteral 1)) ,pass("[0..10000]", RP.expression, assertPatternMatch "testRange 1" $ pat $ - A.ExprConstr m $ A.RangeConstr m A.Any (intLiteral 0) (intLiteral 10000)) + A.ExprConstr m $ A.RangeConstr m (A.List A.Any) (intLiteral 0) (intLiteral 10000)) ,pass("[-3..-1]", RP.expression, assertPatternMatch "testRange 2" $ pat $ - A.ExprConstr m $ A.RangeConstr m A.Any (intLiteral $ -3) (intLiteral $ -1)) + A.ExprConstr m $ A.RangeConstr m (A.List A.Any) (intLiteral $ -3) (intLiteral $ -1)) --For now, at least, this should fail: ,fail("[0..x]", RP.expression) ]