Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Man reader: fix code block tests.

Browse source 
They incorporated a spurious newline which needs to be
removed.
This commit is contained in:
John MacFarlane 2018-10-21 23:01:58 -07:00
parent 07a0835824
commit 4625150f4c
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Text/Pandoc/Readers/Man.hs
View file

@ -655,6 +655,7 @@ parseCodeBlock = try $ do
removeFinalNewline [] = []
removeFinalNewline xs = if last xs == '\n' then init xs else xs
extractText :: ManToken -> Maybe String
extractText (MLine ss) = Just $ linePartsToString ss
extractText MEmptyLine = Just ""

6
test/man-reader.native
View file

@ -14,16 +14,16 @@ Pandoc (Meta {unMeta = fromList [("date",MetaInlines [Str "Oct",Space,Str "17,",
,Header 1 ("",[],[]) [Str "Block",Space,Str "Quotes"]
,Para [Str "Code",Space,Str "in",Space,Str "a",Space,Str "block",Space,Str "quote:"]
,BlockQuote
[CodeBlock ("",[],[]) "\nsub status {\n print \"working\";\n}"]
[CodeBlock ("",[],[]) "sub status {\n print \"working\";\n}"]
,Para [Str "A",Space,Str "list:"]
,OrderedList (1,Decimal,Period)
[[Para [Str "item",Space,Str "one"]]
,[Para [Str "item",Space,Str "two"]]]
,Header 1 ("",[],[]) [Str "Code",Space,Str "Blocks"]
,Para [Str "Code:"]
,CodeBlock ("",[],[]) "\n---- (should be four hyphens)\n\nsub status {\n print \"working\";\n}\n"
,CodeBlock ("",[],[]) "---- (should be four hyphens)\n\nsub status {\n print \"working\";\n}\n"
,Para [Str "And:"]
,CodeBlock ("",[],[]) "\n\tthis code line is indented by one tab"
,CodeBlock ("",[],[]) "\tthis code line is indented by one tab"
,Para [Str "*",Space,Str "*",Space,Str "*",Space,Str "*",Space,Str "*"]
,Header 1 ("",[],[]) [Str "Lists"]
,Header 2 ("",[],[]) [Str "Unordered"]