From b82395dc81484c58d8ed467364e6f9b530575d1a Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 16 Nov 2008 13:05:30 +0000
Subject: [PATCH] Tried changing an existing test from using oZ to oA which
 revealed a problem with the csNames comparison (and matching the map
 orderings)

---
 transformations/PassTest.hs | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/transformations/PassTest.hs b/transformations/PassTest.hs
index 69e7cc1..1b3380b 100644
--- 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)]
             ]
           ]