aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorAlexander <ilabdsf@gmail.com>2019-01-06 23:06:32 +0000
committerJohn MacFarlane <jgm@berkeley.edu>2019-01-06 15:06:32 -0800
commit40c30a9d88101e2a00b904597c6ad4d8f8bce60b (patch)
treee18e2a5474c0c97b5ca8b40915fa92ac1beae985 /test
parenta5f5002eefd43820b1f54191b0cf3cbd743eca0a (diff)
downloadpandoc-40c30a9d88101e2a00b904597c6ad4d8f8bce60b.tar.gz
Add DokuWiki reader (#5108)
Closes #1792
Diffstat (limited to 'test')
-rw-r--r--test/Tests/Readers/DokuWiki.hs315
-rw-r--r--test/test-pandoc.hs2
2 files changed, 317 insertions, 0 deletions
diff --git a/test/Tests/Readers/DokuWiki.hs b/test/Tests/Readers/DokuWiki.hs
new file mode 100644
index 000000000..02fe1553b
--- /dev/null
+++ b/test/Tests/Readers/DokuWiki.hs
@@ -0,0 +1,315 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+module Tests.Readers.DokuWiki (tests) where
+
+import Prelude
+import Data.Text (Text)
+import qualified Data.Text as T
+import Test.Tasty
+import Tests.Helpers
+import Text.Pandoc
+import Text.Pandoc.Arbitrary ()
+import Text.Pandoc.Builder
+import Text.Pandoc.Shared (underlineSpan)
+
+dokuwiki :: Text -> Pandoc
+dokuwiki = purely $ readDokuWiki def{ readerStandalone = True }
+
+infix 4 =:
+(=:) :: ToString c
+ => String -> (Text, c) -> TestTree
+(=:) = test dokuwiki
+
+tests :: [TestTree]
+tests = [ testGroup "inlines"
+ [ "Bold" =:
+ "**bold**" =?>
+ para (strong "bold")
+ , "Italic" =:
+ "//italic//" =?>
+ para (emph "italic")
+ , "Underlined" =:
+ "__underlined__" =?>
+ para (underlineSpan "underlined")
+ , "Monospaced" =:
+ "''monospaced''" =?>
+ para (code "monospaced")
+ , "Combined" =:
+ "**__//''combine''//__**" =?>
+ para (strong $ underlineSpan $ emph $ code "combine")
+ , "Nowiki" =:
+ T.unlines [ "<nowiki>"
+ , "This is some text which contains addresses like this: http://www.splitbrain.org and **formatting**, but nothing is done with it."
+ , "</nowiki>"
+ ] =?>
+ para "This is some text which contains addresses like this: http://www.splitbrain.org and **formatting**, but nothing is done with it."
+ , "Percent" =:
+ "The same is true for %%//__this__ text// with a smiley ;-)%%." =?>
+ para "The same is true for //__this__ text// with a smiley ;-)."
+ , "Subscript" =:
+ "<sub>subscript</sub>" =?>
+ para (subscript "subscript")
+ , "Superscript" =:
+ "<sup>superscript</sup>" =?>
+ para (superscript "superscript")
+ , "Deleted" =:
+ "<del>deleted</del>" =?>
+ 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")
+ , "Inline file" =:
+ "foo <file></code></file> bar" =?>
+ para (text "foo " <> code "</code>" <> 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")
+ , "Inline PHP" =:
+ "<php>echo '<p>Hello World</p>';</php>" =?>
+ para (codeWith ("", ["php"], []) "echo '<p>Hello World</p>';")
+ , "Linebreak" =:
+ T.unlines [ "This is some text with some linebreaks\\\\ Note that the"
+ , "two backslashes are only recognized at the end of a line\\\\"
+ , "or followed by\\\\ a whitespace \\\\this happens without it."
+ ] =?>
+ para ("This is some text with some linebreaks" <> linebreak <> "Note that the\n" <>
+ "two backslashes are only recognized at the end of a line" <> linebreak <>
+ "or followed by" <> linebreak <> "a whitespace \\\\this happens without it.")
+ , testGroup "External links"
+ [ "Autolink" =:
+ "http://www.google.com" =?>
+ para (link "http://www.google.com" "" (str "http://www.google.com"))
+ , "Link without description" =:
+ "[[https://example.com]]" =?>
+ para (link "https://example.com" "" (str "https://example.com"))
+ , "Link with description" =:
+ "[[http://www.google.com|This Link points to google]]" =?>
+ para (link "http://www.google.com" "" (text "This Link points to google"))
+ , "Trim whitespace around link and description" =:
+ "[[ http://www.google.com | This Link points to google ]]" =?>
+ para (link "http://www.google.com" "" (text "This Link points to google"))
+ , "Email address" =:
+ "<andi@splitbrain.org>" =?>
+ para (link "mailto:andi@splitbrain.org" "" (str "andi@splitbrain.org"))
+ ]
+ , testGroup "Internal links"
+ [ "Current namespace" =:
+ "[[example]]" =?>
+ para (link "example" "" (str "example"))
+ , "Current namespace starting with dot" =:
+ "[[.example]]" =?>
+ para (link "example" "" (str ".example"))
+ , "Current namespace starting with dot and colon" =:
+ "[[.:example]]" =?>
+ para (link "example" "" (str "example"))
+ , "Root namespace" =:
+ "[[:example]]" =?>
+ para (link "/example" "" (str "example"))
+ , "Parent namespace" =:
+ "[[..example]]" =?>
+ para (link "../example" "" (str "..example"))
+ , "Parent namespace with colon" =:
+ "[[..:example]]" =?>
+ para (link "../example" "" (str "example"))
+ , "Beneath the root namespace" =:
+ "[[wiki:example]]" =?>
+ para (link "/wiki/example" "" (str "example"))
+ , "Explicitly beneath the root namespace" =:
+ "[[:wiki:example]]" =?>
+ para (link "/wiki/example" "" (str "example"))
+ ]
+ , testGroup "Interwiki links"
+ [ "Interwiki without description" =:
+ "[[doku>DokuWiki]]" =?>
+ para (link "https://www.dokuwiki.org/DokuWiki" "" (str "DokuWiki"))
+ , "Interwiki link with description" =:
+ "[[doku>toolbar|quickbuttons]]" =?>
+ para (link "https://www.dokuwiki.org/toolbar" "" (str "quickbuttons"))
+ ]
+ , "Footnote" =:
+ "((This is a footnote))" =?>
+ para (note (para "This is a footnote"))
+ , testGroup "Images"
+ [ "Image" =:
+ "{{image.jpg}}" =?>
+ para (image "image.jpg" "" (str "image.jpg"))
+ , "Image with caption" =:
+ "{{image.png|This is the caption}}" =?>
+ para (image "image.png" "" "This is the caption")
+ , "Image with } in caption" =:
+ "{{image.png|There is an } in the caption}}" =?>
+ para (image "image.png" "" "There is an } in the caption")
+ , "Wiki namespace starting with dot" =:
+ "{{.wiki:image.jpg}}" =?>
+ para (image "wiki/image.jpg" "" (str "image.jpg"))
+ , "Left aligned image" =:
+ "{{wiki:dokuwiki-128.png }}" =?>
+ para (imageWith ("", ["align-left"], []) "/wiki/dokuwiki-128.png" "" (str "dokuwiki-128.png"))
+ , "Right aligned image" =:
+ "{{ wiki:dokuwiki-128.png}}" =?>
+ para (imageWith ("", ["align-right"], []) "/wiki/dokuwiki-128.png" "" (str "dokuwiki-128.png"))
+ , "Centered image" =:
+ "{{ wiki:dokuwiki-128.png }}" =?>
+ para (imageWith ("", ["align-center"], []) "/wiki/dokuwiki-128.png" "" (str "dokuwiki-128.png"))
+ , "Image with width" =:
+ "{{wiki:dokuwiki-128.png?50}}" =?>
+ para (imageWith ("", [], [("width", "50")]) "/wiki/dokuwiki-128.png" "" (str "dokuwiki-128.png"))
+ , "Image with width and height" =:
+ "{{wiki:dokuwiki-128.png?nocache&50x100}}" =?>
+ para (imageWith ("", [], [("width", "50"), ("height", "100")]) "/wiki/dokuwiki-128.png" "" (str "dokuwiki-128.png"))
+ , "Linkonly" =:
+ "{{wiki:dokuwiki-128.png?linkonly}}" =?>
+ para (link "/wiki/dokuwiki-128.png" "" (str "dokuwiki-128.png"))
+ ]
+ , "Ignore ~~NOTOC~~" =:
+ "Here is a ~~NOTOC~~ macro" =?>
+ para "Here is a macro"
+ , "Ignore ~~NOCACHE~~" =:
+ "Here is a ~~NOCACHE~~ macro" =?>
+ para "Here is a macro"
+ ]
+ , testGroup "Sectioning"
+ [ "Headline level 1" =:
+ "====== Headline Level 1 ======" =?>
+ header 1 "Headline Level 1"
+ , "Headline level 2" =:
+ "===== Headline Level 2 =====" =?>
+ header 2 "Headline Level 2"
+ , "Headline level 3" =:
+ "==== Headline Level 3 ====" =?>
+ header 3 "Headline Level 3"
+ , "Headline level 4" =:
+ "=== Headline Level 4 ===" =?>
+ header 4 "Headline Level 4"
+ , "Headline level 5" =:
+ "== Headline Level 5 ==" =?>
+ header 5 "Headline Level 5"
+ , "Only two closing = are required" =:
+ "====== Headline Level 1 ==" =?>
+ header 1 "Headline Level 1"
+ , "One closing = is not enough" =:
+ "====== Headline Level 1 =" =?>
+ para "====== Headline Level 1 ="
+ , "One closing = is not enough" =:
+ "== Headline with = sign ==" =?>
+ header 5 "Headline with = sign"
+ ]
+ , "Horizontal line" =:
+ "----" =?>
+ horizontalRule
+ , testGroup "Lists"
+ [ "Unordered list" =:
+ T.unlines [ " * This is a list"
+ , " * The second item"
+ , " * You may have different levels"
+ , " * Another item"
+ ] =?>
+ bulletList [ plain "This is a list"
+ , plain "The second item" <>
+ bulletList [ plain "You may have different levels" ]
+ , plain "Another item"
+ ]
+ , "Ordered list" =:
+ T.unlines [ " - The same list but ordered"
+ , " - Another item"
+ , " - Just use indention for deeper levels"
+ , " - That's it"
+ ] =?>
+ orderedList [ plain "The same list but ordered"
+ , plain "Another item" <>
+ orderedList [ plain "Just use indention for deeper levels" ]
+ , plain "That's it"
+ ]
+ , "Multiline list items" =: -- https://www.dokuwiki.org/faq:lists
+ T.unlines [ " - first item"
+ , " - second item with linebreak\\\\ second line"
+ , " - third item with code: <code>"
+ , "some code"
+ , "comes here"
+ , "</code>"
+ , " - fourth item"
+ ] =?>
+ orderedList [ plain "first item"
+ , plain ("second item with linebreak" <> linebreak <> " second line")
+ , plain ("third item with code: " <> code "some code\ncomes here\n")
+ , plain "fourth item"
+ ]
+ ]
+ , "Block HTML" =:
+ T.unlines [ "<HTML>"
+ , "<p style=\"border:2px dashed red;\">And this is some block HTML</p>"
+ , "</HTML>"
+ ] =?>
+ rawBlock "html" "<p style=\"border:2px dashed red;\">And this is some block HTML</p>\n"
+ , "Block PHP" =:
+ T.unlines [ "<PHP>"
+ , "echo '<p>Hello World</p>';"
+ , "</PHP>"
+ ] =?>
+ codeBlockWith ("", ["php"], []) "echo '<p>Hello World</p>';\n"
+ , "Quote" =:
+ T.unlines [ "> foo"
+ , ">no space is required after >"
+ , "> bar"
+ , ">> baz"
+ , "> bat"
+ ] =?>
+ blockQuote (plain "foo" <>
+ plain "no space is required after >" <>
+ plain "bar" <>
+ blockQuote (plain "baz") <>
+ plain "bat")
+ , "Code block" =:
+ T.unlines [ "<code>"
+ , "foo bar baz"
+ , "</code>"
+ ] =?>
+ codeBlock "foo bar baz\n"
+ , "Java code block" =:
+ T.unlines [ "<code java>"
+ , "public static void main"
+ , "</code>"
+ ] =?>
+ codeBlockWith ("", ["java"], []) "public static void main\n"
+ , "File with filename and no language" =:
+ T.unlines [ "<file - foo.bar>"
+ , "file contents"
+ , "</file>"
+ ] =?>
+ codeBlock "file contents\n"
+ , "Table" =:
+ T.unlines [ "| foo | bar |"
+ , "| bat | baz |"
+ ] =?>
+ table mempty [(AlignDefault, 0.0), (AlignDefault, 0.0)]
+ []
+ [[plain "foo", plain "bar"]
+ ,[plain "bat", plain "baz"]]
+ , "Table with header" =:
+ T.unlines [ "^ foo ^ bar ^"
+ , "| bat | baz |"
+ ] =?>
+ table mempty [(AlignDefault, 0.0), (AlignDefault, 0.0)]
+ [plain "foo", plain "bar"]
+ [[plain "bat", plain "baz"]]
+ , "Table with colspan" =:
+ T.unlines [ "^ 0,0 ^ 0,1 ^ 0,2 ^"
+ , "| 1,0 | 1,1 ||"
+ , "| 2,0 | 2,1 | 2,2 |"
+ ] =?>
+ table mempty [(AlignDefault, 0.0), (AlignDefault, 0.0), (AlignDefault, 0.0)]
+ [plain "0,0", plain "0,1", plain "0,2"]
+ [[plain "1,0", plain "1,1", mempty]
+ ,[plain "2,0", plain "2,1", plain "2,2"]
+ ]
+ , "Indented code block" =:
+ T.unlines [ "foo"
+ , " bar"
+ , " bat"
+ , "baz"
+ ] =?>
+ para "foo" <>
+ codeBlock "bar\n bat\n" <>
+ para "baz"
+ ]
diff --git a/test/test-pandoc.hs b/test/test-pandoc.hs
index 63560936c..946a676e0 100644
--- a/test/test-pandoc.hs
+++ b/test/test-pandoc.hs
@@ -11,6 +11,7 @@ import qualified Tests.Lua
import qualified Tests.Old
import qualified Tests.Readers.Creole
import qualified Tests.Readers.Docx
+import qualified Tests.Readers.DokuWiki
import qualified Tests.Readers.EPUB
import qualified Tests.Readers.FB2
import qualified Tests.Readers.HTML
@@ -80,6 +81,7 @@ tests = testGroup "pandoc tests" [ Tests.Command.tests
, testGroup "Creole" Tests.Readers.Creole.tests
, testGroup "Man" Tests.Readers.Man.tests
, testGroup "FB2" Tests.Readers.FB2.tests
+ , testGroup "DokuWiki" Tests.Readers.DokuWiki.tests
]
, testGroup "Lua filters" Tests.Lua.tests
]
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-23 01:32:47 +0000