Commit b5ee225e authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Add expectBrokenIf and expectBrokenUnless variants.



Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent 9c41ff02
......@@ -519,6 +519,13 @@ expectBroken ticket m = do
Right _ -> do
runReaderT unexpectedSuccess env
expectBrokenIf :: Bool -> Int -> TestM a -> TestM ()
expectBrokenIf False _ m = void $ m
expectBrokenIf True ticket m = expectBroken ticket m
expectBrokenUnless :: Bool -> Int -> TestM a -> TestM ()
expectBrokenUnless b = expectBrokenIf (not b)
------------------------------------------------------------------------
-- * Miscellaneous
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment