diff options
| author | Yan Pas <yanp.bugz@gmail.com> | 2018-10-17 00:21:52 +0300 |
|---|---|---|
| committer | Yan Pas <yanp.bugz@gmail.com> | 2018-10-17 00:21:52 +0300 |
| commit | 7741cdbf04f93875e6cd2051a6778c2ca35b5e40 (patch) | |
| tree | a38e396c8e1dfe8ba0c27f409f1c4537bd4d4bb3 /test/Tests | |
| parent | ce27bf9a02d98a6a5412a493577fa9d2f3cfd1fe (diff) | |
| download | pandoc-7741cdbf04f93875e6cd2051a6778c2ca35b5e40.tar.gz | |
added old-style test
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Old.hs | 4 | ||||
| -rw-r--r-- | test/Tests/Readers/Man.hs | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs index b426ffd07..842e0f656 100644 --- a/test/Tests/Old.hs +++ b/test/Tests/Old.hs @@ -171,6 +171,10 @@ tests = [ testGroup "markdown" , test "tables" ["-f", "native", "-t", "../data/sample.lua"] "tables.native" "tables.custom" ] + , testGroup "man" + [ test "reader" ["-r", "man", "-w", "native", "-s"] + "man-reader.man" "man-reader.native" + ] ] -- makes sure file is fully closed after reading diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index 4d8e13fb1..9dbfbab4d 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -73,7 +73,7 @@ tests = [ =?> orderedListWith (1,UpperAlpha,DefaultDelim) [plain $ str "first", plain $ str "second"] , "nested" =: ".IP\nfirst\n.RS\n.IP\n1a\n.IP\n1b\n.RE" - =?> fromList [BulletList [[Plain [Str "first"],BulletList [[Plain [Str "1a"]],[Plain [Str "1b"]]]]]] + =?> bulletList [(plain $ str "first") <> (bulletList [plain $ str "1a", plain $ str "1b"])] ], testGroup "CodeBlocks" [ "cb1"=: |