suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected the test of the rain foreach-pass -- the test now passes

Browse Source
This commit is contained in:
Neil Brown 2007-08-16 14:17:44 +00:00
parent e6d4425e82
commit a49c462ca1
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
RainPassTest.hs
View File

@ -30,16 +30,16 @@ testEachPass0 = do origResult <- (evalStateT (runErrorT (transformEach orig)) st
) )
exp = tag2 A.Seq DontCare exp = tag2 A.Seq DontCare
(tag3 A.Spec DontCare (tag3 A.Spec DontCare
(tag3 A.Specification DontCare listVar (tag3 A.Specification DontCare listVarName
(tag4 A.IsExpr DontCare A.ValAbbrev (A.Array [A.Dimension 1] A.Byte) listVar) (tag4 A.IsExpr DontCare A.ValAbbrev (A.Array [A.Dimension 1] A.Byte) (makeLiteralString "1"))
) )
(tag3 A.Rep DontCare (tag3 A.Rep DontCare
(tag4 A.For DontCare indexVar (intLiteral 0) (tag2 A.SizeExpr DontCare (tag2 A.ExprVariable DontCare listVar))) (tag4 A.For DontCare indexVar (intLiteral 0) (tag2 A.SizeVariable DontCare listVar))
(tag3 A.Spec DontCare (tag3 A.Spec DontCare
(tag3 A.Specification DontCare (simpleName "c") (tag3 A.Specification DontCare (simpleName "c")
(tag4 A.Is DontCare A.Abbrev A.Byte (tag4 A.Is DontCare A.Abbrev A.Byte
(tag3 A.SubscriptedVariable DontCare (tag3 A.SubscriptedVariable DontCare
(tag2 A.Subscript DontCare (tag2 A.ExprVariable DontCare indexVar)) (tag2 A.Subscript DontCare (tag2 A.ExprVariable DontCare (tag2 A.Variable DontCare indexVar)))
listVar listVar
) )
) )
@ -49,7 +49,8 @@ testEachPass0 = do origResult <- (evalStateT (runErrorT (transformEach orig)) st
) )
) )
indexVar = Named "indexVar" DontCare indexVar = Named "indexVar" DontCare
listVar = Named "listVar" DontCare listVarName = Named "listVarName" DontCare
listVar = tag2 A.Variable DontCare listVarName