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

Tried changing an existing test from using oZ to oA which revealed a problem with the csNames comparison (and matching the map orderings)

Browse Source
This commit is contained in:
Neil Brown 2008-11-16 13:05:30 +00:00
parent f2bac46655
commit b82395dc81
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
transformations/PassTest.hs
View File

@ -347,14 +347,16 @@ testInputCase = TestList
a0 a0
--Process p0 --Process p0
-} -}
testOccamPassTransform "testInputCase 0" (nameAndStopCaringPattern "tag" "Z") ( testOccamPassTransform "testInputCase 0" (nameAndStopCaringPattern "tag" "A") (
defineProtocolAndC $ (oC *? oCASEinput defineProtocolAndC $
[inputCaseOption (simpleName "a0", [], p0)] (oC *? oCASEinput
) `becomes` [inputCaseOption (simpleName "a0", [], p0)]
)
`becomes`
oSEQ oSEQ
[decl (return A.Int) oZ [decl (return A.Int) oA
[oC *? oZ [oC *? oA
,oCASE oZ ,oCASE oA
[caseOption ([0 :: Int], p0)] [caseOption ([0 :: Int], p0)]
] ]
] ]