Fixed some Rain tests broken by recent changes
This commit is contained in:
parent
5ef075e5d2
commit
4c5067e8b1
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user