diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2022-02-23 09:19:36 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2022-02-23 09:20:06 +0100 |
| commit | d6916e2a40f078bbe6af9b5163dc79ab7ccf40ba (patch) | |
| tree | fe5ba8ea48bf35433e8403c33dde27c4cb27c91e /test/Tests/Writers/HTML.hs | |
| parent | 3d7eb129bd7f7bdbcdd46e93913208065f106cb2 (diff) | |
Tests: improve location reporting of failing tests
Diffstat (limited to 'test/Tests/Writers/HTML.hs')
| -rw-r--r-- | test/Tests/Writers/HTML.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/Tests/Writers/HTML.hs b/test/Tests/Writers/HTML.hs index a81badae8..5176af1f0 100644 --- a/test/Tests/Writers/HTML.hs +++ b/test/Tests/Writers/HTML.hs @@ -4,6 +4,7 @@ module Tests.Writers.HTML (tests) where import Data.Text (unpack) import qualified Data.Text as T import Test.Tasty +import Test.Tasty.HUnit (HasCallStack) import Tests.Helpers import Text.Pandoc import Text.Pandoc.Arbitrary () @@ -33,7 +34,7 @@ which is in turn shorthand for -} infix 4 =: -(=:) :: (ToString a, ToPandoc a) +(=:) :: (ToString a, ToPandoc a, HasCallStack) => String -> (a, String) -> TestTree (=:) = test html |