aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers
diff options
context:
space:
mode:
authorYan Pas <yanp.bugz@gmail.com>2018-05-09 03:24:45 +0300
committerYan Pas <yanp.bugz@gmail.com>2018-05-09 03:24:45 +0300
commitc1617565fc2a5984e2e44d4da9adf7f8a26b3160 (patch)
tree146546caab9f32ee352297d5d99f679566d70117 /test/Tests/Readers
parentfd3676a568589f07ad0707c07b2a9f87df6e2f6c (diff)
downloadpandoc-c1617565fc2a5984e2e44d4da9adf7f8a26b3160.tar.gz
basic manfile parsing
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r--test/Tests/Readers/Man.hs23
1 files changed, 19 insertions, 4 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs
index 5dc91544b..007935be1 100644
--- a/test/Tests/Readers/Man.hs
+++ b/test/Tests/Readers/Man.hs
@@ -2,15 +2,30 @@
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
+import Text.Pandoc.Readers.Man
-creole :: Text -> Pandoc
-creole = purely $ readCreole def{ readerStandalone = True }
+man :: Text -> Pandoc
+man = purely $ readMan def
+
+infix 4 =:
+(=:) :: ToString c
+ => String -> (Text, c) -> TestTree
+(=:) = test man
tests :: [TestTree]
-tests = [] \ No newline at end of file
+tests = [
+ -- .SH "HEllo bbb" "aaa"" as"
+ testGroup "Macros" [
+ "Bold" =:
+ ".B foo\n"
+ =?> strong "foo"
+ , "Italic" =:
+ ".I foo\n"
+ =?> emph "foo"
+ ]
+ ]