on master help sign in
Add Util file
commit72552e4569739687e1968e9d418070d8716b9261 authorMatthew Pickering <matthewtpickering@gmail.com> dateWed 17 Jan 2018, 18:36 (9 years ago) parent6a82eaf
1 file changed+11
test/Util.hs+11
test/Util.hsnew file+11
@@ -0,0 +1,11 @@
1+module Util where
2+
3+import Test.Inspection
4+import Test.HUnit.Base
5+
6+mkHUnitTest :: Result -> Test
7+mkHUnitTest r = TestCase $
8+ case r of
9+ Success _s -> return ()
10+ Failure s -> assertFailure s
11+