From fd3676a568589f07ad0707c07b2a9f87df6e2f6c Mon Sep 17 00:00:00 2001 From: Yan Pas Date: Sun, 25 Feb 2018 03:34:17 +0300 Subject: initial --- test/Tests/Readers/Man.hs | 16 ++++++++++++++++ test/test-pandoc.hs | 2 ++ 2 files changed, 18 insertions(+) create mode 100644 test/Tests/Readers/Man.hs (limited to 'test') diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs new file mode 100644 index 000000000..5dc91544b --- /dev/null +++ b/test/Tests/Readers/Man.hs @@ -0,0 +1,16 @@ +{-# LANGUAGE OverloadedStrings #-} +module Tests.Readers.Man (tests) where + +import Data.Text (Text) +import qualified Data.Text as T +import Test.Tasty +import Tests.Helpers +import Text.Pandoc +import Text.Pandoc.Arbitrary () +import Text.Pandoc.Builder + +creole :: Text -> Pandoc +creole = purely $ readCreole def{ readerStandalone = True } + +tests :: [TestTree] +tests = [] \ No newline at end of file diff --git a/test/test-pandoc.hs b/test/test-pandoc.hs index 4cf1a952d..1ea3591b2 100644 --- a/test/test-pandoc.hs +++ b/test/test-pandoc.hs @@ -19,6 +19,7 @@ import qualified Tests.Readers.Odt import qualified Tests.Readers.Org import qualified Tests.Readers.RST import qualified Tests.Readers.Txt2Tags +import qualified Tests.Readers.Man import qualified Tests.Shared import qualified Tests.Writers.AsciiDoc import qualified Tests.Writers.ConTeXt @@ -73,6 +74,7 @@ tests = testGroup "pandoc tests" [ Tests.Command.tests , testGroup "EPUB" Tests.Readers.EPUB.tests , testGroup "Muse" Tests.Readers.Muse.tests , testGroup "Creole" Tests.Readers.Creole.tests + , testGroup "Man" Tests.Readers ] , testGroup "Lua filters" Tests.Lua.tests ] -- cgit v1.2.3