diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 09:30:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-20 09:30:37 -0700 |
| commit | 62566c81821e8e886b29417ac42483b5b3e54128 (patch) | |
| tree | a154db0972350f41c149e67932d09d87d9af2372 /test/Tests | |
| parent | faa35bb014626fd4143b54904827d5bbc82bd15c (diff) | |
| download | pandoc-62566c81821e8e886b29417ac42483b5b3e54128.tar.gz | |
Man reader: handle shift in list style.
Closes #4987.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/Man.hs | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/test/Tests/Readers/Man.hs b/test/Tests/Readers/Man.hs index 902ed71cc..5368ce542 100644 --- a/test/Tests/Readers/Man.hs +++ b/test/Tests/Readers/Man.hs @@ -74,17 +74,21 @@ tests = [ ], testGroup "Lists" [ "bullet" =: - ".IP\nfirst\n.IP\nsecond" + ".IP \"\\[bu]\"\nfirst\n.IP \"\\[bu]\"\nsecond" =?> bulletList [para $ str "first", para $ str "second"] , "ordered" =: - ".IP 1 a\nfirst\n.IP 2 a\nsecond" - =?> orderedListWith (1,Decimal,DefaultDelim) [para $ str "first", para $ str "second"] + ".IP 2 a\nfirst\n.IP 3 a\nsecond" + =?> orderedListWith (2,Decimal,DefaultDelim) [para $ str "first", para $ str "second"] , "upper" =: - ".IP A a\nfirst\n.IP B a\nsecond" - =?> orderedListWith (1,UpperAlpha,DefaultDelim) [para $ str "first", para $ str "second"] + ".IP A) a\nfirst\n.IP B) a\nsecond" + =?> orderedListWith (1,UpperAlpha,OneParen) [para $ str "first", para $ str "second"] , "nested" =: - ".IP\nfirst\n.RS\n.IP\n1a\n.IP\n1b\n.RE" + ".IP \"\\[bu]\"\nfirst\n.RS\n.IP \"\\[bu]\"\n1a\n.IP \"\\[bu]\"\n1b\n.RE" =?> bulletList [(para $ str "first") <> (bulletList [para $ str "1a", para $ str "1b"])] + , "change in list style" =: + ".IP \\[bu]\nfirst\n.IP 1\nsecond" + =?> bulletList [para (str "first")] <> + orderedListWith (1,Decimal,DefaultDelim) [para (str "second")] ], testGroup "CodeBlocks" [ "cb1"=: |