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

Muse reader: require that block tags are on separate lines

Browse source 
Text::Amuse already explicitly requires it anyway.
Supporting block tags on the same line as contents makes
it hard to combine closing tag parsers with indentation parsers.
Being able to combine parsers is required for no-reparsing refactoring
of Muse reader.
This commit is contained in:
Alexander Krotov 2018-02-11 18:28:37 +03:00
parent cadcf62ff3
commit 1dfda7e204
1 changed files with 26 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
test/Tests/Readers/Muse.hs
View file

@ -259,10 +259,16 @@ tests =
blockQuote (para "This is a quotation\nwith a continuation")
, testGroup "Div"
[ "Div without id" =:
"<div>Foo bar</div>" =?>
T.unlines [ "<div>"
, "Foo bar"
, "</div>"
] =?>
divWith nullAttr (para "Foo bar")
, "Div with id" =:
"<div id=\"foo\">Foo bar</div>" =?>
T.unlines [ "<div id=\"foo\">"
, "Foo bar"
, "</div>"
] =?>
divWith ("foo", [], []) (para "Foo bar")
]
, "Verse" =:
@ -290,7 +296,12 @@ tests =
, "\160\160\160is here"
]
]
, "Quote tag" =: "<quote>Hello, world</quote>" =?> blockQuote (para $ text "Hello, world")
, "Quote tag" =:
T.unlines [ "<quote>"
, "Hello, world"
, "</quote>"
]
=?> blockQuote (para $ text "Hello, world")
, "Verse tag" =:
T.unlines [ "<verse>"
, ""
@ -431,8 +442,18 @@ tests =
] =?>
para "<literal style=\"latex\">\n\\newpage\n</literal>"
]
, "Center" =: "<center>Hello, world</center>" =?> para (text "Hello, world")
, "Right" =: "<right>Hello, world</right>" =?> para (text "Hello, world")
, "Center" =:
T.unlines [ "<center>"
, "Hello, world"
, "</center>"
] =?>
para (text "Hello, world")
, "Right" =:
T.unlines [ "<right>"
, "Hello, world"
, "</right>"
] =?>
para (text "Hello, world")
, testGroup "Comments"
[ "Comment tag" =: "<comment>\nThis is a comment\n</comment>" =?> (mempty::Blocks)
, "Line comment" =: "; Comment" =?> (mempty::Blocks)
@ -1069,19 +1090,5 @@ tests =
, para "Second"
, para "Third"
])
-- Amusewiki requires block tags to be on separate lines,
-- but Emacs Muse allows them to be on the same line as contents.
, "List inside an inline tag" =:
T.unlines
[ "<quote> 1. First"
, ""
, " 2. Second"
, ""
, " 3. Third</quote>"
] =?>
blockQuote (orderedListWith (1, Decimal, Period) [ para "First"
, para "Second"
, para "Third"
])
]
]