diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-03-14 17:05:36 +0100 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-14 17:07:23 +0100 |
commit | 6ecc5b96a9854382682fd1c9231133c08dae7b17 (patch) | |
tree | 3703f769c52b951a6233a3b92736b84cc47700ed /test/Tests/Writers/Muse.hs | |
parent | 0b4ae3af662587a69e6893b7f6c347d90912c48f (diff) | |
download | pandoc-6ecc5b96a9854382682fd1c9231133c08dae7b17.tar.gz |
Use tasty for tests rather than test-framework.
Diffstat (limited to 'test/Tests/Writers/Muse.hs')
-rw-r--r-- | test/Tests/Writers/Muse.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs index 12ecfb477..9a7dec580 100644 --- a/test/Tests/Writers/Muse.hs +++ b/test/Tests/Writers/Muse.hs @@ -1,6 +1,6 @@ module Tests.Writers.Muse (tests) where -import Test.Framework +import Test.Tasty import Tests.Helpers import Text.Pandoc import Text.Pandoc.Arbitrary() @@ -14,10 +14,10 @@ museWithOpts opts = purely (writeMuse opts) . toPandoc infix 4 =: (=:) :: (ToString a, ToPandoc a) - => String -> (a, String) -> Test + => String -> (a, String) -> TestTree (=:) = test muse -tests :: [Test] +tests :: [TestTree] tests = [ testGroup "block elements" [ "plain" =: plain (text "Foo bar.") =?> "Foo bar." , testGroup "paragraphs" |