diff options
Diffstat (limited to 'test')
| -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 be5178e07..17ca717ea 100644 --- a/test/Tests/Readers/HTML.hs +++ b/test/Tests/Readers/HTML.hs @@ -89,6 +89,12 @@ tests = [ testGroup "base tag" , test htmlNativeDivs "<main> followed by text" $ "<main>main content</main>non-main content" =?> doc (divWith ("", [], [("role", "main")]) (plain (text "main content")) <> plain (text "non-main content")) ] + , testGroup "samp" + [ + test html "inline samp block" $ + "<samp>Answer is 42</samp>" =?> + plain (codeWith ("",["sample"],[]) "Answer is 42") + ] , askOption $ \(QuickCheckTests numtests) -> testProperty "Round trip" $ withMaxSuccess (if QuickCheckTests numtests == defaultValue |