diff options
Diffstat (limited to 'Biz/Test.hs')
| -rw-r--r-- | Biz/Test.hs | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/Biz/Test.hs b/Biz/Test.hs index db71831..85c405f 100644 --- a/Biz/Test.hs +++ b/Biz/Test.hs @@ -18,7 +18,6 @@ where import Alpha hiding (group) import qualified Test.Tasty as Tasty -import Test.Tasty.HUnit ((@=?), (@?=)) import qualified Test.Tasty.HUnit as HUnit import qualified Test.Tasty.QuickCheck as QuickCheck @@ -74,3 +73,13 @@ assertNotEqual preface notexpected actual = a -> HUnit.Assertion expected @?!= actual = assertNotEqual "" expected actual + +infixl 2 @?!= + +(@=?) :: (Eq a, Show a) => a -> a -> HUnit.Assertion +a @=? b = a HUnit.@=? b +infixl 2 @=? + +(@?=) :: (Eq a, Show a) => a -> a -> HUnit.Assertion +a @?= b = a HUnit.@?= b +infixr 2 @?= |