diff options
Diffstat (limited to 'test/Tests/Shared.hs')
-rw-r--r-- | test/Tests/Shared.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/test/Tests/Shared.hs b/test/Tests/Shared.hs index 5e056ac3e..5ea8d7ee4 100644 --- a/test/Tests/Shared.hs +++ b/test/Tests/Shared.hs @@ -1,14 +1,13 @@ module Tests.Shared (tests) where import System.FilePath.Posix (joinPath) -import Test.Framework -import Test.Framework.Providers.HUnit -import Test.HUnit (assertBool, (@?=)) +import Test.Tasty +import Test.Tasty.HUnit (assertBool, (@?=), testCase) import Text.Pandoc.Arbitrary () import Text.Pandoc.Builder import Text.Pandoc.Shared -tests :: [Test] +tests :: [TestTree] tests = [ testGroup "compactifyDL" [ testCase "compactifyDL with empty def" $ assertBool "compactifyDL" @@ -18,7 +17,7 @@ tests = [ testGroup "compactifyDL" , testGroup "collapseFilePath" testCollapse ] -testCollapse :: [Test] +testCollapse :: [TestTree] testCollapse = map (testCase "collapse") [ (collapseFilePath (joinPath [ ""]) @?= (joinPath [ ""])) , (collapseFilePath (joinPath [ ".","foo"]) @?= (joinPath [ "foo"])) |