diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2023-10-22 10:59:07 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2023-10-22 10:59:07 -0700 |
| commit | fbf9194e345f4e0fae287b3e32562df855c2224e (patch) | |
| tree | cee28e20b71d3f5fdaf840646e8789747c8dc69f /test/Tests | |
| parent | ad1a745f725e3fe12d02339b0caf1af6e8b4924f (diff) | |
DokuWiki reader: parse `<code>` and `<file>` as block-level code.
Previously we treated them as inline code in some contexts,
but that is not how DokuWiki works.
Closes #9154.
Diffstat (limited to 'test/Tests')
| -rw-r--r-- | test/Tests/Readers/DokuWiki.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/Tests/Readers/DokuWiki.hs b/test/Tests/Readers/DokuWiki.hs index c0363db31..2b955c2f4 100644 --- a/test/Tests/Readers/DokuWiki.hs +++ b/test/Tests/Readers/DokuWiki.hs @@ -71,10 +71,11 @@ tests = [ testGroup "inlines" para (strikeout "deleted") , "Inline code" =: "foo <code java>public static void main</code> bar" =?> - para (text "foo " <> codeWith ("", ["java"], []) "public static void main" <> text " bar") + para (text "foo") <> codeBlockWith ("", ["java"], []) "public static void main" + <> para (text "bar") , "Inline file" =: "foo <file></code></file> bar" =?> - para (text "foo " <> code "</code>" <> text " bar") + para (text "foo") <> codeBlock "</code>" <> para (text "bar") , "Inline HTML" =: "<html>\nThis is some <span style=\"color:red;font-size:150%;\">inline HTML</span>\n</html>" =?> para (rawInline "html" "\nThis is some <span style=\"color:red;font-size:150%;\">inline HTML</span>\n") @@ -245,7 +246,7 @@ tests = [ testGroup "inlines" ] =?> orderedList [ plain "first item" , plain ("second item with linebreak" <> linebreak <> " second line") - , plain ("third item with code: " <> code "some code\ncomes here\n") + , plain "third item with code: " <> codeBlock "some code\ncomes here\n" , plain "fourth item" ] ] |