Fixed some Rain tests broken by recent changes

This commit is contained in:
Neil Brown 2008-06-06 10:49:29 +00:00
parent 5ef075e5d2
commit 4c5067e8b1

View File

@ -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