From 433c9d887dacf4043f03bf86b765e4c5984990bb Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Thu, 23 Aug 2007 18:45:36 +0000 Subject: [PATCH] Rain: fixed a test to expect Plus instead of Add --- RainParseTest.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RainParseTest.hs b/RainParseTest.hs index 886357f..7046ea9 100644 --- a/RainParseTest.hs +++ b/RainParseTest.hs @@ -343,7 +343,7 @@ testComm = --Output: pass ("c ! x;",RP.statement,assertEqual "testComm 0" $ A.Output m (variable "c") [A.OutExpression m (exprVariable "x")]) ,pass ("c!x;",RP.statement,assertEqual "testComm 1" $ A.Output m (variable "c") [A.OutExpression m (exprVariable "x")]) - ,pass ("c!0+x;",RP.statement,assertEqual "testComm 2" $ A.Output m (variable "c") [A.OutExpression m $ A.Dyadic m A.Add (intLiteral 0) (exprVariable "x")]) + ,pass ("c!0+x;",RP.statement,assertEqual "testComm 2" $ A.Output m (variable "c") [A.OutExpression m $ A.Dyadic m A.Plus (intLiteral 0) (exprVariable "x")]) ,fail ("c!x",RP.statement) ,fail ("c!x!y;",RP.statement) ,fail ("c!x,y;",RP.statement)