unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-09-11 10:35:57 +03:00
Code Issues Projects Releases Wiki Activity

add callstack to some easytest functions

Browse Source
This commit is contained in:
Paul Chiusano 2021-08-02 14:56:24 -04:00
parent df24879407
commit 976941668e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yaks/easytest/src/EasyTest.hs
View File

@ -61,17 +61,17 @@ expect :: HasCallStack => Bool -> Test ()
expect False = crash "unexpected"
expect True = ok
expectEqual' :: (Eq a, Show a) => a -> a -> Test ()
expectEqual' :: (HasCallStack, Eq a, Show a) => a -> a -> Test ()
expectEqual' expected actual =
if expected == actual then pure ()
else crash $ unlines ["", show actual, "** did not equal expected value **", show expected]
expectEqual :: (Eq a, Show a) => a -> a -> Test ()
expectEqual :: (HasCallStack, Eq a, Show a) => a -> a -> Test ()
expectEqual expected actual =
if expected == actual then ok
else crash $ unlines ["", show actual, "** did not equal expected value **", show expected]
expectNotEqual :: (Eq a, Show a) => a -> a -> Test ()
expectNotEqual :: (HasCallStack, Eq a, Show a) => a -> a -> Test ()
expectNotEqual forbidden actual =
if forbidden /= actual then ok
else crash $ unlines ["", show actual, "** did equal the forbidden value **", show forbidden]