diff options
| author | Amogh Rathore <amoghdroid09@gmail.com> | 2019-11-05 01:42:30 +0900 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-11-04 08:42:30 -0800 |
| commit | bd2bd9b19d949f59a64358f756bf8b398a13db0f (patch) | |
| tree | a266e1c6ae9a0d183695bd82e9cd5a89e12d8970 /test/Tests/Readers | |
| parent | fdc0f47519d330bcc641eeaee68486431d3c46a5 (diff) | |
| download | pandoc-bd2bd9b19d949f59a64358f756bf8b398a13db0f.tar.gz | |
HTML Reader/Writer - Add support for <var> and <samp> (#5861)
Closes #5799
Diffstat (limited to 'test/Tests/Readers')
| -rw-r--r-- | test/Tests/Readers/HTML.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/Tests/Readers/HTML.hs b/test/Tests/Readers/HTML.hs index 17ca717ea..31299e40d 100644 --- a/test/Tests/Readers/HTML.hs +++ b/test/Tests/Readers/HTML.hs @@ -95,6 +95,12 @@ tests = [ testGroup "base tag" "<samp>Answer is 42</samp>" =?> plain (codeWith ("",["sample"],[]) "Answer is 42") ] + , testGroup "var" + [ + test html "inline var block" $ + "<var>result</var>" =?> + plain (codeWith ("",["variable"],[]) "result") + ] , askOption $ \(QuickCheckTests numtests) -> testProperty "Round trip" $ withMaxSuccess (if QuickCheckTests numtests == defaultValue |