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

Fixed some Rain tests broken by recent changes

Browse Source
This commit is contained in:
Neil Brown 2008-06-06 10:49:29 +00:00
parent 5ef075e5d2
commit 4c5067e8b1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
checks/UsageCheckTest.hs
View File

@ -114,9 +114,11 @@ testGetVarProc = TestList (map doTest tests)
(_, Left err) -> (_, Left err) ->
testFailure $ name ++ " failed: " ++ show err testFailure $ name ++ " failed: " ++ show err
(_, Right result) -> (_, Right result) ->
assertEqual name (vars r (zip w $ repeat Nothing) u) result assertEqual name (vars r (zip w $ repeat Nothing) u) (blankDef result)
where where
name = "testGetVarProc" ++ show index name = "testGetVarProc" ++ show index
blankDef :: Vars -> Vars
blankDef (Vars r w u) = Vars r (Map.map (const Nothing) w) u
startState :: CompState startState :: CompState
startState = emptyState startState = emptyState