tests/WikiParserTest.hs

   1 module WikiParserTest
   2     ( testData
   3     )
   4     where
   5
   6 import           Data.Maybe
   7 import           Network.URI
   8 import           Rakka.Wiki
   9 import           Rakka.Wiki.Parser
  10 import           Test.HUnit
  11 import           Text.ParserCombinators.Parsec
  12
  13
  14 cmdTypeOf :: String -> Maybe CommandType
  15 cmdTypeOf "br"   = Just InlineCommandType
  16 cmdTypeOf "i"    = Just InlineCommandType
  17 cmdTypeOf "b"    = Just InlineCommandType
  18 cmdTypeOf "span" = Just InlineCommandType
  19 cmdTypeOf "div"  = Just BlockCommandType
  20 cmdTypeOf _      = Nothing
  21
  22
  23 parseWiki :: String -> Either String WikiPage
  24 parseWiki src = case parse (wikiPage cmdTypeOf) "" src of
  25                   Left  err  -> Left (show err)
  26                   Right page -> Right page
  27
  28
  29 testData :: [Test]
  30 testData = [ (parseWiki ""
  31               ~?=
  32               (Right []))
  33
  34            , (parseWiki "\n"
  35               ~?=
  36               (Right []))
  37
  38            , (parseWiki "=heading="
  39               ~?=
  40               (Right [ Heading 1 "heading" ]))
  41
  42            , (parseWiki "==      heading  ==  \n"
  43               ~?=
  44               (Right [ Heading 2 "heading" ]))
  45
  46            , (parseWiki "===== hello world =====\n"
  47               ~?=
  48               (Right [ Heading 5 "hello world" ]))
  49
  50            , (parseWiki "a =not a heading="
  51               ~?=
  52               (Right [ Paragraph [ Text "a =not a heading=" ]
  53                      ]))
  54
  55            , (parseWiki "=h=\n\n=h="
  56               ~?=
  57               (Right [ Heading 1 "h"
  58                      , Heading 1 "h"
  59                      ]))
  60            , (parseWiki "foo\nbar"
  61               ~?=
  62               (Right [ Paragraph [ Text "foo"
  63                                  , Text "\n"
  64                                  , Text "bar"
  65                                  ]
  66                      ]))
  67            , (parseWiki "foo\nbar\n\nbaz\n"
  68               ~?=
  69               (Right [ Paragraph [ Text "foo"
  70                                  , Text "\n"
  71                                  , Text "bar"
  72                                  ]
  73                      , Paragraph [ Text "baz"
  74                                  ]
  75                      ]))
  76
  77            , (parseWiki "foo\n\n\nbar"
  78               ~?=
  79               (Right [ Paragraph [ Text "foo" ]
  80                      , Paragraph [ Text "bar" ]
  81                      ]))
  82
  83            , (parseWiki "foo\n=h="
  84               ~?=
  85               (Right [ Paragraph [ Text "foo" ]
  86                      , Heading 1 "h"
  87                      ]))
  88
  89            , (parseWiki "<!-- comment -->"
  90               ~?=
  91               (Right []))
  92
  93            , (parseWiki "<!-- comment -->foo"
  94               ~?=
  95               (Right [ Paragraph [ Text "foo" ]
  96                      ]))
  97
  98            , (parseWiki "bar<!-- comment -->"
  99               ~?=
 100               (Right [ Paragraph [ Text "bar" ]
 101                      ]))
 102
 103            , (parseWiki "foo<!-- comment -->bar"
 104               ~?=
 105               (Right [ Paragraph [ Text "foo"
 106                                  , Text "bar"
 107                                  ]
 108                      ]))
 109
 110            , (parseWiki "<!-- comment -->=h="
 111               ~?=
 112               (Right [ Heading 1 "h" ]))
 113
 114            , (parseWiki "=h= <!---->"
 115               ~?=
 116               (Right [ Heading 1 "h" ]))
 117
 118            , (parseWiki "<!-- <!-- nested --> comment -->"
 119               ~?=
 120               (Right []))
 121
 122            , (parseWiki "[[[Page]]]"
 123               ~?=
 124               (Right [ Paragraph [ ObjectLink "Page" Nothing ] ]))
 125
 126            , (parseWiki "[[[Page|foo]]]"
 127               ~?=
 128               (Right [ Paragraph [ ObjectLink "Page" (Just "foo") ] ]))
 129
 130            , (parseWiki "[[Page]]"
 131               ~?=
 132               (Right [ Paragraph [ PageLink (Just "Page") Nothing Nothing ]
 133                      ]))
 134
 135            , (parseWiki "[[Page|Link to \"Page\"]]"
 136               ~?=
 137               (Right [ Paragraph [ PageLink (Just "Page") Nothing (Just "Link to \"Page\"") ]
 138                      ]))
 139
 140            , (parseWiki "[[Page#foo]]"
 141               ~?=
 142               (Right [ Paragraph [ PageLink (Just "Page") (Just "foo") Nothing ]
 143                      ]))
 144
 145            , (parseWiki "[[#foo]]"
 146               ~?=
 147               (Right [ Paragraph [ PageLink Nothing (Just "foo") Nothing ]
 148                      ]))
 149
 150            , (parseWiki "[[Page#foo|Link to \"Page#foo\"]]"
 151               ~?=
 152               (Right [ Paragraph [ PageLink (Just "Page") (Just "foo") (Just "Link to \"Page#foo\"") ]
 153                      ]))
 154
 155            , (parseWiki "foo [[Bar]] baz"
 156               ~?=
 157               (Right [ Paragraph [ Text "foo "
 158                                  , PageLink (Just "Bar") Nothing Nothing
 159                                  , Text " baz"
 160                                  ]
 161                      ]))
 162
 163            , (parseWiki "[[Foo]]\n[[Bar]]"
 164               ~?=
 165               (Right [ Paragraph [ PageLink (Just "Foo") Nothing Nothing
 166                                  , Text "\n"
 167                                  , PageLink (Just "Bar") Nothing Nothing
 168                                  ]
 169                      ]))
 170
 171            , (parseWiki " foo"
 172               ~?=
 173               (Right [ Preformatted [ Text "foo" ] ]))
 174
 175            , (parseWiki " foo\n  bar\n"
 176               ~?=
 177               (Right [ Preformatted [ Text "foo"
 178                                     , Text "\n"
 179                                     , Text " bar"
 180                                     ]
 181                      ]))
 182
 183            , (parseWiki "foo\n bar\nbaz"
 184               ~?=
 185               (Right [ Paragraph    [ Text "foo" ]
 186                      , Preformatted [ Text "bar" ]
 187                      , Paragraph    [ Text "baz" ]
 188                      ]))
 189
 190            , (parseWiki "----"
 191               ~?=
 192               (Right [ HorizontalLine ]))
 193
 194            , (parseWiki "\nfoo\nbar\n----\n"
 195               ~?=
 196               (Right [ Paragraph [ Text "foo"
 197                                  , Text "\n"
 198                                  , Text "bar"
 199                                  ]
 200                      , HorizontalLine
 201                      ]))
 202
 203            , (parseWiki "a----b"
 204               ~?=
 205               (Right [ Paragraph [ Text "a----b" ] ]))
 206
 207            , (parseWiki "* a"
 208               ~?=
 209               (Right [ List Bullet [[Inline (Text "a")]] ]))
 210
 211            , (parseWiki "* a*"
 212               ~?=
 213               (Right [ List Bullet [[Inline (Text "a*")]] ]))
 214
 215            , (parseWiki "* a\n* b\n"
 216               ~?=
 217               (Right [ List Bullet [ [Inline (Text "a")]
 218                                    , [Inline (Text "b")]
 219                                    ]
 220                      ]))
 221
 222            , (parseWiki "*a\n*#b\n*#c\n"
 223               ~?=
 224               (Right [ List Bullet [ [ Inline (Text "a")
 225                                      , Block  (List Numbered [ [Inline (Text "b")]
 226                                                              , [Inline (Text "c")]
 227                                                              ])
 228                                      ]
 229                                    ]
 230                      ]))
 231
 232            , (parseWiki "*a\n#b"
 233               ~?=
 234               (Right [ List Bullet   [ [Inline (Text "a")] ]
 235                      , List Numbered [ [Inline (Text "b")] ]
 236                      ]))
 237
 238            , (parseWiki "*a<!-- comment -->"
 239               ~?=
 240               (Right [ List Bullet [ [Inline (Text "a")] ] ]))
 241
 242            , (parseWiki "*a<!-- comment -->\n*b"
 243               ~?=
 244               (Right [ List Bullet [ [Inline (Text "a")]
 245                                    , [Inline (Text "b")]
 246                                    ]
 247                      ]))
 248
 249            , (parseWiki "foo:bar"
 250               ~?=
 251               (Right [ Paragraph [ Text "foo"
 252                                  , Text ":bar"
 253                                  ]
 254                      ]))
 255
 256            , (parseWiki "; foo: bar"
 257               ~?=
 258               (Right [ DefinitionList [Definition [Text "foo"] [Text "bar"]] ]))
 259
 260            , (parseWiki "; foo: bar\n"
 261               ~?=
 262               (Right [ DefinitionList [Definition [Text "foo"] [Text "bar"]] ]))
 263
 264            , (parseWiki "; foo\n: bar\n; bar\n: baz\n: baz"
 265               ~?=
 266               (Right [ DefinitionList [ Definition [Text "foo"] [ Text "bar" ]
 267                                       , Definition [Text "bar"] [ Text "baz"
 268                                                                 , Text "\n"
 269                                                                 , Text "baz" ]
 270                                       ]
 271                      ]))
 272
 273            , (parseWiki "<!nowiki[foo [[bar]] baz]>"
 274               ~?=
 275               (Right [ Paragraph [ Text "foo [[bar]] baz" ] ]))
 276
 277            , (parseWiki "<!verbatim[foo [[bar]] baz]>"
 278               ~?=
 279               (Right [ Preformatted [ Text "foo [[bar]] baz" ] ]))
 280
 281            , (parseWiki "<!verbatim[\nfoo [[bar]] baz\n]>"
 282               ~?=
 283               (Right [ Preformatted [ Text "foo [[bar]] baz" ] ]))
 284
 285            , (parseWiki "foo' bar"
 286               ~?=
 287               (Right [ Paragraph [ Text "foo"
 288                                  , Text "'"
 289                                  , Text " bar" ]
 290                      ]))
 291
 292            , (parseWiki "''foo''"
 293               ~?=
 294               (Right [ Paragraph [ Italic [Text "foo"] ] ]))
 295
 296            , (parseWiki "'''foo'''"
 297               ~?=
 298               (Right [ Paragraph [ Bold [Text "foo"] ] ]))
 299
 300            , (parseWiki "foo''''"
 301               ~?=
 302               (Right [ Paragraph [ Text "foo"
 303                                  , Text "'"
 304                                  ]
 305                      ]))
 306
 307            , (parseWiki "'''''foo'''''"
 308               ~?=
 309               (Right [ Paragraph [ Italic [Bold [Text "foo"]] ] ]))
 310
 311            , (parseWiki "<br />"
 312               ~?=
 313               (Right [ Paragraph [ InlineCmd (InlineCommand "br" [] []) ] ]))
 314
 315            , (parseWiki "<br style=\"clear: both\"/>"
 316               ~?=
 317               (Right [ Paragraph [ InlineCmd (InlineCommand "br" [("style", "clear: both")] []) ] ]))
 318
 319            , (parseWiki "<i><b>foo</b></i>"
 320               ~?=
 321               (Right [ Paragraph [ InlineCmd (InlineCommand "i" []
 322                                               [ InlineCmd (InlineCommand "b" [] [ Text "foo" ]) ]) ] ]))
 323
 324            , (parseWiki "<i>\nfoo\n<!-- comment -->\nbar</i>"
 325               ~?=
 326               (Right [ Paragraph [ InlineCmd (InlineCommand "i" []
 327                                               [ Text "\n"
 328                                               , Text "foo"
 329                                               , Text "\n"
 330                                               , Text "\n"
 331                                               , Text "bar"
 332                                               ]) ] ]))
 333
 334            , (parseWiki "<div>foo</div>"
 335               ~?=
 336               (Right [ BlockCmd (BlockCommand "div" []
 337                                  [ Paragraph [Text "foo"] ]) ]))
 338
 339            , (parseWiki "<div>\nbar\n</div>"
 340               ~?=
 341               (Right [ BlockCmd (BlockCommand "div" []
 342                                  [ Paragraph [Text "bar"] ]) ]))
 343
 344            , (parseWiki "<div><!-- comment --></div>"
 345               ~?=
 346               (Right [ BlockCmd (BlockCommand "div" [] []) ]))
 347
 348            , (parseWiki "foo<div id=\"bar\"/>"
 349               ~?=
 350               (Right [ Paragraph [Text "foo"]
 351                      , BlockCmd (BlockCommand "div" [("id", "bar")] [])
 352                      ]))
 353
 354            , (parseWiki "[http://example.org/]"
 355               ~?=
 356               (Right [ Paragraph [ExternalLink (fromJust $ parseURI "http://example.org/") Nothing] ]))
 357
 358            , (parseWiki "[http://example.org/ example.org]"
 359               ~?=
 360               (Right [ Paragraph [ExternalLink
 361                                   (fromJust $ parseURI "http://example.org/")
 362                                   (Just "example.org")
 363                                  ]
 364                      ]))
 365            ]