More tests

mmark-md · Oct 17, 2017 · 6c14877 · 6c14877
1 parent e978eb1
commit 6c14877
Show file tree

Hide file tree

Showing 2 changed files with 83 additions and 5 deletions.
diff --git a/Text/MMark/Parser.hs b/Text/MMark/Parser.hs
@@ -524,16 +524,18 @@ isAsciiPunctuation x =
 
 isTransparentPunctuation :: Char -> Bool
 isTransparentPunctuation = \case
+  '!' -> True
+  '"' -> True
+  '(' -> True
+  ')' -> True
   ',' -> True
+  '-' -> True
   '.' -> True
   ':' -> True
-  '!' -> True
+  ';' -> True
   '?' -> True
-  '(' -> True
-  ')' -> True
   '{' -> True
   '}' -> True
-  '-' -> True
   '–' -> True
   '—' -> True
   _   -> False

diff --git a/tests/Text/MMarkSpec.hs b/tests/Text/MMarkSpec.hs
@@ -551,7 +551,83 @@ spec = parallel $ do
       it "CM363" $
         let s = "a__\"foo\"__\n"
         in s ~-> [ err (posN 1 s) (utok '_' <> eeib <> eric) ]
-      -- TODO CM364-CM389
+      it "CM364" $
+        let s = "foo__bar__\n"
+        in s ~-> [ err (posN 3 s) (utok '_' <> eeib <> eric) ]
+      it "CM365" $
+        let s = "5__6__78\n"
+        in s ~-> [ err (posN 1 s) (utok '_' <> eeib <> eric) ]
+      it "CM366" $
+        let s = "пристаням__стремятся__\n"
+        in s ~-> [ err (posN 9 s) (utok '_' <> eeib <> eric) ]
+      it "CM367" $
+        "__foo, __bar__, baz__" ==->
+          "<p><strong>foo, <strong>bar</strong>, baz</strong></p>\n"
+      it "CM368" $
+        "foo-__\\(bar\\)__" ==-> "<p>foo-<strong>(bar)</strong></p>\n"
+      it "CM369" $
+        let s = "**foo bar **\n"
+        in s ~-> [ errFancy (posN 11 s) (nonFlanking "*") ]
+      it "CM370" $
+        let s = "**(**foo)\n"
+        in s ~-> [ errFancy (posN 1 s) (nonFlanking "*") ]
+      it "CM371" $
+        let s = "*(**foo**)*\n"
+        in s ~-> [ errFancy posI (nonFlanking "*") ]
+      xit "CM372" $ -- FIXME doesn't pass with current approach
+        "**Gomphocarpus (*Gomphocarpus physocarpus*, syn.\n*Asclepias physocarpa*)**" ==->
+        "<p><strong>Gomphocarpus (<em>Gomphocarpus physocarpus</em>, syn.\n<em>Asclepias physocarpa</em>)</strong></p>\n"
+      it "CM373" $
+        "**foo \"*bar*\" foo**" ==->
+          "<p><strong>foo &quot;<em>bar</em>&quot; foo</strong></p>\n"
+      it "CM374" $
+        let s = "**foo**bar\n"
+        in s ~-> [ errFancy (posN 5 s) (nonFlanking "**") ]
+      it "CM375" $
+        let s = "__foo bar __\n"
+        in s ~-> [ errFancy (posN 11 s) (nonFlanking "_") ]
+      it "CM376" $
+        let s = "__(__foo)\n"
+        in s ~-> [ errFancy (posN 1 s) (nonFlanking "_") ]
+      it "CM377" $
+        let s = "_(__foo__)_\n"
+        in s ~-> [ errFancy posI (nonFlanking "_") ]
+      it "CM378" $
+        let s = "__foo__bar\n"
+        in s ~-> [ errFancy (posN 5 s) (nonFlanking "__") ]
+      it "CM379" $
+        let s = "__пристаням__стремятся\n"
+        in s ~-> [ errFancy (posN 11 s) (nonFlanking "__") ]
+      it "CM380" $
+        "__foo\\_\\_bar\\_\\_baz__" ==->
+          "<p><strong>foo__bar__baz</strong></p>\n"
+      it "CM381" $
+        "__\\(bar\\)__." ==->
+          "<p><strong>(bar)</strong>.</p>\n"
+      it "CM382" $
+        "*foo [bar](/url)*" ==->
+          "<p><em>foo <a href=\"/url\">bar</a></em></p>\n"
+      it "CM383" $
+        "*foo\nbar*" ==->
+          "<p><em>foo\nbar</em></p>\n"
+      it "CM384" $
+        "_foo __bar__ baz_" ==->
+          "<p><em>foo <strong>bar</strong> baz</em></p>\n"
+      it "CM385" $
+        "_foo _bar_ baz_" ==->
+          "<p><em>foo <em>bar</em> baz</em></p>\n"
+      it "CM386" $
+        let s = "__foo_ bar_"
+        in s ~-> [ err (posN 5 s) (utoks "_ " <> etoks "__" <> eric) ]
+      it "CM387" $
+        "*foo *bar**" ==->
+          "<p><em>foo <em>bar</em></em></p>\n"
+      it "CM388" $
+        "*foo **bar** baz*" ==->
+          "<p><em>foo <strong>bar</strong> baz</em></p>\n"
+      it "CM389" $
+        let s = "*foo**bar**baz*\n"
+        in s ~-> [ err (posN 5 s) (utok '*' <> eeib) ]
       it "CM390" $
         "***foo** bar*\n" ==-> "<p><em><strong>foo</strong> bar</em></p>\n"
       it "CM391" $