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" $ , test "Nested PROC" $
(oPROC "bar" [] ( (oPROC "bar" [] (
oSEQ oSEQ
[decl oINT oX $ [decl oINT oX []]
oempty]
) $ ) $
oPROC "foo" [] ( oPROC "foo" [] (
oSEQ oSEQ
[decl oINT oX $ [decl oINT oX $
oSEQ
[oX *:= return (0::Int) [oX *:= return (0::Int)
,oX *:= return (1::Int)]] ,oX *:= return (1::Int)]]
) oempty) ) oempty)
@ -641,11 +639,9 @@ testRemoveNesting = TestList
oSEQ oSEQ
[oPROC "bar" [] ( [oPROC "bar" [] (
oSEQ oSEQ
[decl oINT oX $ [decl oINT oX []]
oempty]
) $ ) $
decl oINT oX $ decl oINT oX
oSEQ
[oX *:= return (0::Int) [oX *:= return (0::Int)
,oX *:= return (1::Int)]] ,oX *:= return (1::Int)]]
) oempty ) oempty