From 4c5067e8b1a97d7fb0232073630a763aea50c2d9 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 6 Jun 2008 10:49:29 +0000
Subject: [PATCH] Fixed some Rain tests broken by recent changes

---
 checks/UsageCheckTest.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/checks/UsageCheckTest.hs b/checks/UsageCheckTest.hs
index e87486b..6df131e 100644
--- a/checks/UsageCheckTest.hs
+++ b/checks/UsageCheckTest.hs
@@ -114,9 +114,11 @@ testGetVarProc = TestList (map doTest tests)
                         (_, Left err) ->
                           testFailure $ name ++ " failed: " ++ show err
                         (_, Right result) ->
-                          assertEqual name (vars r (zip w $ repeat Nothing) u) result
+                          assertEqual name (vars r (zip w $ repeat Nothing) u) (blankDef result)
     where
       name = "testGetVarProc" ++ show index
+      blankDef :: Vars -> Vars
+      blankDef (Vars r w u) = Vars r (Map.map (const Nothing) w) u
 
    startState :: CompState
    startState = emptyState