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

Adjusted an existing testcase for the changes in OccamEDSL

Browse Source
This commit is contained in:
Neil Brown 2008-11-16 12:24:24 +00:00
parent 559ba83c28
commit 42e4ca5c92
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
transformations/PassTest.hs
View File

@ -626,13 +626,11 @@ testRemoveNesting = TestList
, test "Nested PROC" $
(oPROC "bar" [] (
oSEQ
[decl oINT oX $
oempty]
[decl oINT oX []]
) $
oPROC "foo" [] (
oSEQ
[decl oINT oX $
oSEQ
[oX *:= return (0::Int)
,oX *:= return (1::Int)]]
) oempty)
@ -641,11 +639,9 @@ testRemoveNesting = TestList
oSEQ
[oPROC "bar" [] (
oSEQ
[decl oINT oX $
oempty]
[decl oINT oX []]
) $
decl oINT oX $
oSEQ
decl oINT oX
[oX *:= return (0::Int)
,oX *:= return (1::Int)]]
) oempty