From 82dbbc0eed18c86aae1a8f1f92a0c98684e63409 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 26 Jan 2021 19:05:58 -0500
Subject: Create Biz.Log library, extracted from Biz.Bild

---
 Biz/Test.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Biz/Test.hs')

diff --git a/Biz/Test.hs b/Biz/Test.hs
index 7571008..db71831 100644
--- a/Biz/Test.hs
+++ b/Biz/Test.hs
@@ -9,6 +9,7 @@ module Biz.Test
     unit,
     prop,
     with,
+    assertFailure,
     (@=?),
     (@?=),
     (@?!=),
@@ -32,6 +33,9 @@ unit = HUnit.testCase
 prop :: QuickCheck.Testable a => Tasty.TestName -> a -> Tasty.TestTree
 prop = QuickCheck.testProperty
 
+assertFailure :: String -> HUnit.Assertion
+assertFailure = HUnit.assertFailure
+
 with ::
   -- | Startup
   IO a ->
-- 
cgit v1.2.3