From d50f46d26d8584a03b775394de8878e028f8d8a4 Mon Sep 17 00:00:00 2001
From: Amogh Rathore <amoghdroid09@gmail.com>
Date: Thu, 24 Oct 2019 00:44:24 +0900
Subject: Add Reader support for HTML <samp> element (#5843)

The `<samp>` element is parsed as a Span with class `sample`.
Closes #5792.
---
 test/Tests/Readers/HTML.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'test')

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
-- 
cgit v1.2.3