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

2008-11-16 13:05:30 +00:00 · 2008-11-16 13:05:30 +00:00 · b82395dc81
commit b82395dc81
parent f2bac46655
1 changed files with 9 additions and 7 deletions
--- a/transformations/PassTest.hs
+++ b/transformations/PassTest.hs
@ -347,14 +347,16 @@ testInputCase = TestList
           a0
             --Process p0
   -}
-   testOccamPassTransform "testInputCase 0" (nameAndStopCaringPattern "tag" "Z") (
-     defineProtocolAndC $ (oC *? oCASEinput
-       [inputCaseOption (simpleName "a0", [], p0)]
-     ) `becomes`
+   testOccamPassTransform "testInputCase 0" (nameAndStopCaringPattern "tag" "A") (
+     defineProtocolAndC $
+       (oC *? oCASEinput
+         [inputCaseOption (simpleName "a0", [], p0)]
+       )
+       `becomes`
       oSEQ
-          [decl (return A.Int) oZ
-            [oC *? oZ
-            ,oCASE oZ
+          [decl (return A.Int) oA
+            [oC *? oA
+            ,oCASE oA
              [caseOption ([0 :: Int], p0)]
            ]
          ]