665ae4dd97
* Add tests for markdown-clj and tools.namespace
See comment for why only one markdown test could be run.
Closes #1069 and #1064
* Convert 10 test libs using add-libtest
Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time
* Convert 8 more test libs using add-libtest
Also updated table and added comment for newline test
* Fix doric test
* Disable tools.namespace test that fails on windows
* Added dozen manual test libs and converted 2 test libs
add-libtest.clj supports manually-added and test-directories options
* Converts last tests to test namespaces and write libraries.csv
* Add a number of library tests from projects.md
Also add more docs around adding test libs and tweak add script
* Use :sha for gitlib and older clojure cli
* Revert "Use :sha for gitlib and older clojure cli"
This reverts commit c663ab8368.
* Fix and disable failing tests
Disabled tests that fail consistently and fixed windows one
450 lines
22 KiB
Clojure
450 lines
22 KiB
Clojure
(ns markdown.md-test
|
|
(:require #?(:cljs [goog.string])
|
|
[clojure.test :refer [deftest is]]
|
|
[markdown.core :as markdown]
|
|
[markdown.tables :as tables]))
|
|
|
|
(def entry-function
|
|
#?(:clj markdown/md-to-html-string
|
|
:cljs markdown/md->html))
|
|
|
|
(deftest heading1
|
|
(is (= "<h1>Ticket #123</h1>" (entry-function "# Ticket #123")))
|
|
(is (= "<h1>Foo</h1>" (entry-function " # Foo")))
|
|
(is (= "<h1>foo</h1>" (entry-function "#foo")))
|
|
(is (= "<h1>foo</h1>" (entry-function "foo\n===")))
|
|
(is (= "<h1>foo</h1>" (entry-function "#foo#")))
|
|
(is (= "<h1>foo</h1>" (entry-function "#foo#\n")))
|
|
(is (= "<h1>some header <code>with_an_underscore</code></h1>"
|
|
(entry-function "# some header `with_an_underscore`")))
|
|
(is (= "<ul><li>one</li></ul><h1>heading1</h1>"
|
|
(entry-function "* one\n\nheading1\n========\n"))))
|
|
|
|
(deftest heading2
|
|
(is (= "<h2>foo</h2>" (entry-function "##foo")))
|
|
(is (= "<h2>foo</h2>" (entry-function "foo\n---")))
|
|
(is (= "<h2>foo</h2>" (entry-function "##foo##")))
|
|
(is (= "<h2>foo</h2>" (entry-function "##foo##\n"))))
|
|
|
|
(deftest heading-with-complex-anchor
|
|
(is (=
|
|
"<h3 id=\"foo_bar_baz\">foo bar BAz</h3><p>some text</p>"
|
|
(entry-function "###foo bar BAz\nsome text" :heading-anchors true)))
|
|
(is (=
|
|
"<h3 id=\"foo_bar_baz\">foo bar BAz</h3><p>some text</p>"
|
|
(entry-function "###foo bar BAz##\nsome text" :heading-anchors true))))
|
|
|
|
(deftest br
|
|
(is (= "<p>foo<br /></p>" (entry-function "foo "))))
|
|
|
|
(deftest hr
|
|
(is (= "<hr/>" (entry-function "***")))
|
|
(is (= "<hr/>" (entry-function " * * * ")))
|
|
(is (= "<hr/>" (entry-function " *****")))
|
|
(is (= "<hr/>" (entry-function "- - - "))))
|
|
|
|
(deftest em
|
|
(is (= "<p><em>foo</em></p>" (entry-function "*foo*"))))
|
|
|
|
(deftest italics
|
|
(is (= "<p><i>foo</i></p>" (entry-function "_foo_"))))
|
|
|
|
(deftest strong
|
|
(is (= "<p><strong>foo</strong></p>" (entry-function "**foo**"))))
|
|
|
|
(deftest bold-italics
|
|
(is (= "<p><b><i>foo</i></b></p>" (entry-function "***foo***"))))
|
|
|
|
(deftest bold
|
|
(is (= "<p><b>foo</b></p>" (entry-function "__foo__"))))
|
|
|
|
(deftest strong-inside-em
|
|
(is (= "<p><em>foo<strong>bar</strong>baz</em></p>" (entry-function "*foo**bar**baz*"))))
|
|
|
|
(deftest bold-inside-a-list
|
|
(is (= "<ol><li>chickens.</li></ol><p> <strong>See more: <a href='http://cluck.cluck.com'>Cluck Cluck</a></strong> </p>"
|
|
(entry-function "1. chickens. \n\n **See more: [Cluck Cluck](http://cluck.cluck.com)** \n\n"))))
|
|
|
|
(deftest em-inside-strong
|
|
(is (= "<p><strong>foo<em>bar</em>baz</strong></p>" (entry-function "**foo*bar*baz**"))))
|
|
|
|
(deftest paragraph
|
|
(is (= "<p>Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore</p>"
|
|
(entry-function "\nLorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore"))))
|
|
|
|
(deftest paragraph-multiline
|
|
(is (= "<p>Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore</p>"
|
|
(entry-function "\nLorem ipsum dolor\nsit amet, consectetur adipisicing elit,\nsed do eiusmod tempor incididunt ut labore"))))
|
|
|
|
(deftest paragraph-before-codeblock
|
|
(is (= "<p>foo</p><pre><code>bar\n</code></pre><p>baz</p>"
|
|
(entry-function "foo\n```\nbar\n```\nbaz")))
|
|
(is (= "<pre><code>foo \nbar</code></pre>" (entry-function "```\nfoo \nbar```")))
|
|
(is (= "<p><pre><code></code></pre></p>" (entry-function "```\n```")))
|
|
(is (= "<p><pre><code class=\"go\"></code></pre></p>" (entry-function "```go\n```")))
|
|
(is (= "<pre><code><html>\n</html>\n</code></pre>" (entry-function "```\n<html>\n</html>\n``` "))))
|
|
|
|
(deftest paragraph-after-codeblock
|
|
(is (= "<pre><code>foo\n</code></pre><p>bar baz</p>"
|
|
(entry-function "```\nfoo\n```\nbar\nbaz"))))
|
|
|
|
(deftest mulitple-paragraphs
|
|
(is (= "<p>foo bar baz</p><p>foo bar baz</p>"
|
|
(entry-function "\nfoo bar baz\n\n\nfoo bar baz"))))
|
|
|
|
(deftest ul
|
|
(is (= "<ul><li>foo</li><li>bar</li><li>baz</li></ul>"
|
|
(entry-function "* foo\n* bar\n* baz")))
|
|
(is (= "<ul><li>foo</li><li>bar</li><li>baz</li></ul>"
|
|
(entry-function "- foo\n- bar\n- baz")))
|
|
(is (= "<ul><li>foo</li><li>bar</li><li>baz</li></ul>"
|
|
(entry-function "+ foo\n+ bar\n+ baz"))))
|
|
|
|
(deftest list-in-a-codeblock
|
|
(is
|
|
(= "<pre><code class=\"yaml\">list:\n- 1\n- 2\n</code></pre>"
|
|
(entry-function "```yaml\nlist:\n- 1\n- 2\n```"))))
|
|
|
|
(deftest ul-followed-by-paragraph
|
|
(is (= "<ul><li>foo</li><li>bar</li><li>baz</li></ul><p>paragraph next line</p>"
|
|
(entry-function "* foo\n* bar\n* baz\n\nparagraph\nnext line"))))
|
|
|
|
(deftest ul-with-codeblock
|
|
(is (= "<ul><li>foo</li><li>bar<pre><code> (defn foo []\n bar)\n </code></pre></li><li>baz</li><li>more text</li></ul>"
|
|
(entry-function
|
|
"\n* foo\n* bar\n ```\n (defn foo []\n bar)\n ```\n* baz\n* more text\n")))
|
|
(is (= "<ul><li>foo</li><li>bar<pre><code> (defn foo []\n bar)\n </code></pre> text</li><li>baz</li><li>more text</li></ul>"
|
|
(entry-function
|
|
"\n* foo\n* bar\n ```\n (defn foo []\n bar)\n ```\n text\n* baz\n* more text\n"))))
|
|
|
|
(deftest ul-followed-by-multiline-paragraph
|
|
(is (= "<ul><li>foo</li><li>bar</li><li>baz</li></ul><p>paragraph</p>"
|
|
(entry-function "* foo\n* bar\n* baz\n\nparagraph"))))
|
|
|
|
(deftest ul-nested
|
|
(is (= "<ul><li>first item<ul><li>first sub-item<ul><li>second sub-item</li></ul></li><li>third sub-item</li></ul></li><li>second item<ul><li>first sub-item</li><li>second sub-item</li></ul></li><li>third item</li></ul>"
|
|
(entry-function "* first item\n * first sub-item\n * second sub-item\n * third sub-item\n* second item\n * first sub-item\n * second sub-item\n* third item")))
|
|
(is (= "<ul><li>first item<ul><li>first sub-item<ul><li>second sub-item</li></ul></li><li>third sub-item</li></ul></li><li>second item<ul><li>first sub-item</li><li>second sub-item</li></ul></li><li>third item</li></ul>"
|
|
(entry-function "* first item\n - first sub-item\n - second sub-item\n - third sub-item\n* second item\n + first sub-item\n + second sub-item\n* third item")))
|
|
(is (= "<ul><li>abc</li><li>def</li></ul>" (entry-function " * abc\n\n+ def"))))
|
|
|
|
(deftest ol
|
|
(is (= "<ol><li>Foo</li><li>Bar</li><li>Baz</li></ol>"
|
|
(entry-function "1. Foo\n2. Bar\n3. Baz"))))
|
|
|
|
(deftest ul-in-ol
|
|
(is (= "<ol><li>Bar<ol><li>Subbar<ul><li>foo</li><li>bar</li><li>baz</li></ul></li></ol></li><li>Baz</li></ol>"
|
|
(entry-function "1. Bar\n 2. Subbar\n * foo\n * bar\n * baz\n3. Baz"))))
|
|
|
|
(deftest ol-in-ul
|
|
(is (= "<ul><li>Foo<ol><li>Bar<ol><li>Subbar</li></ol></li></ol></li><li>Baz</li></ul>"
|
|
(entry-function "* Foo\n 1. Bar\n 1. Subbar\n* Baz")))
|
|
(is (= "<ul><li>Foo<ol><li>Bar</li></ol></li></ul>"
|
|
(entry-function "* Foo\n 1. Bar"))))
|
|
|
|
(deftest multilist
|
|
(is (=
|
|
"<ul><li>foo</li><li>bar<ul><li>baz<ol><li>foo</li><li>bar</li></ol></li><li>fuzz<ul><li>blah</li><li>blue</li></ul></li></ul></li><li>brass</li></ul>"
|
|
(entry-function
|
|
"* foo
|
|
* bar
|
|
|
|
* baz
|
|
1. foo
|
|
2. bar
|
|
|
|
* fuzz
|
|
|
|
* blah
|
|
* blue
|
|
* brass"))))
|
|
|
|
(deftest code
|
|
(is (= "<p>foo bar baz <code>x = y + z;</code> foo</p>"
|
|
(entry-function "foo bar baz `x = y + z;` foo")))
|
|
(is (= "<p>bar <code>foo --- -- bar</code> foo</p>"
|
|
(entry-function "bar `foo --- -- bar` foo")))
|
|
(is (= "<p><code><?xml version='1.0' encoding='UTF-8'?><channel></channel></code></p>"
|
|
(entry-function "`<?xml version='1.0' encoding='UTF-8'?><channel></channel>`")))
|
|
(is (= "<p>foo bar baz <code>(fn [x & xs] (str "x:" x))</code> foo</p>"
|
|
(entry-function "foo bar baz `(fn [x & xs] (str \"x:\" x))` foo")))
|
|
(is (= "<pre><code>```\nfoo\n```</code></pre>"
|
|
(entry-function " ```\n foo\n ```"))))
|
|
|
|
(deftest multiline-code
|
|
(is (= "<pre><code>x = 5\ny = 6\nz = x + y</code></pre>"
|
|
(entry-function " x = 5\n y = 6\n z = x + y")))
|
|
(is (= "<pre><code>x = 5\ny = 6\nz = x + y\n(fn [x & xs] (str "x"))</code></pre>"
|
|
(entry-function " x = 5\n y = 6\n z = x + y\n (fn [x & xs] (str \"x\"))"))))
|
|
|
|
(deftest codeblock
|
|
(is (= "<pre><code>(defn- write^ [writer text]\n (doseq [c text]\n (.write writer (int c))))\n</code></pre>"
|
|
(entry-function "```\n(defn- write^ [writer text]\n (doseq [c text]\n (.write writer (int c))))\n```")))
|
|
(is (= "<pre><code>(fn [x & xs]\n (str "x"))\n</code></pre>"
|
|
(entry-function "```\n(fn [x & xs]\n (str \"x\"))\n```")))
|
|
(is (= "<pre><code>(fn [x & xs]\n (str "x"))\n</code></pre>"
|
|
(entry-function "```\n(fn [x & xs]\n (str \"x\"))\n```")))
|
|
(is (= "<pre><code class=\"clojure\">(fn [x & xs]\n (str "x"))\n</code></pre>"
|
|
(entry-function "```clojure\n(fn [x & xs]\n (str \"x\"))\n```")))
|
|
(is (= "<pre><code class=\"nohighlight\">------------\n============\n ------------\n ============\n</code></pre>"
|
|
(entry-function
|
|
"
|
|
```nohighlight
|
|
------------
|
|
============
|
|
------------
|
|
============
|
|
```
|
|
"))))
|
|
|
|
(deftest indented-codeblock
|
|
(is (= "<pre><code>foo</code></pre>"
|
|
(entry-function " foo")))
|
|
(is (= "<pre><code>foo</code></pre><p>bar</p>"
|
|
(entry-function " foo\n\nbar")))
|
|
(is (= "<pre><code>foo</code></pre>bar"
|
|
(entry-function " foo\nbar")))
|
|
(is (= "<p>baz foo</p><p>bar</p>"
|
|
(entry-function "baz\n foo\n\nbar")))
|
|
(is (= "<p><div class=\"grid-container\"> <div class=\"child1\"> <p>Element #1</p> </div> </div></p>"
|
|
(entry-function "<div class=\"grid-container\">\n <div class=\"child1\">\n <p>Element #1</p>\n </div>\n</div>"))))
|
|
|
|
(deftest strikethrough
|
|
(is (= "<p><del>foo</del></p>"
|
|
(entry-function "~~foo~~"))))
|
|
|
|
(deftest superscript
|
|
(is (= "<p>foo<sup>bar</sup> baz</p>"
|
|
(entry-function "foo^bar baz"))))
|
|
|
|
(deftest link
|
|
(is (= "<p><a href='http://underscores_are_fine.com'>underscores<i>are</i>fine</a></p>"
|
|
(entry-function "<a href='http://underscores_are_fine.com'>underscores_are_fine</a>")))
|
|
(is (= "<p><a href='http://github.com'>github</a></p>"
|
|
(entry-function "[github](http://github.com)")))
|
|
(is (= "<p><a href='http://github.com/~'>github</a></p>"
|
|
(entry-function "[github](http://github.com/~)")))
|
|
(is (= "<p><a href='http://github.com/^'>github</a></p>"
|
|
(entry-function "[github](http://github.com/^)")))
|
|
(is (= "<p><a href='http://github.com/*'>github</a></p>"
|
|
(entry-function "[github](http://github.com/*)")))
|
|
(is (= "<ul><li><a href='http://github.com/*'>github</a></li></ul>"
|
|
(entry-function "* [github](http://github.com/*)")))
|
|
(is (= "<ul><li>hi</li></ul><p><a href='https://see-here'>a link</a></p>"
|
|
(entry-function "* hi\n\n[a link](https://see-here)")))
|
|
(is (= "<p><a href='https://clojure.github.io/core.async/#clojure.core.async/>!'>>!</a></p>"
|
|
(entry-function "[>!](https://clojure.github.io/core.async/#clojure.core.async/>!)")))
|
|
(is (= "<p><a href='https://clojure.github.io/core.async/#clojure.core.async/<!'><!</a></p>"
|
|
(entry-function "[<!](https://clojure.github.io/core.async/#clojure.core.async/<!)"))))
|
|
|
|
(deftest styled-link
|
|
(is (= "<p><a href='http://github.com'><em>github</em></a></p>"
|
|
(entry-function "[*github*](http://github.com)")))
|
|
(is (= "<p><a href='http://github.com'><i>github</i></a></p>"
|
|
(entry-function "[_github_](http://github.com)")))
|
|
(is (= "<p><a href='http://github.com'><b>github</b></a></p>"
|
|
(entry-function "[__github__](http://github.com)")))
|
|
(is (= "<p><a href='http://github.com'><strong>github</strong></a></p>"
|
|
(entry-function "[**github**](http://github.com)")))
|
|
(is (= "<p><a href='http://github.com'><del>github</del></a></p>"
|
|
(entry-function "[~~github~~](http://github.com)"))))
|
|
|
|
(deftest img
|
|
(is (= "<p><img src=\"/path/to/img.jpg\" alt=\"Alt text\" /></p>"
|
|
(entry-function "")))
|
|
(is (= "<p><img src=\"/path/to/_img_.jpg\" alt=\"Alt text\" title=\"Optional Title\" /></p>"
|
|
(entry-function "![Alt text](/path/to/_img_.jpg \"Optional Title\")"))))
|
|
|
|
(deftest img-link
|
|
(is (= "<p><a href='http://travis-ci.org/yogthos/markdown-clj'><img src=\"https://secure.travis-ci.org/yogthos/markdown-clj.png\" alt=\"Continuous Integration status\" /></a></p>"
|
|
(entry-function "[](http://travis-ci.org/yogthos/markdown-clj)")))
|
|
(is (= "<p><img src=\"https://secure.travis-ci.org/yogthos/markdown-clj.png\" alt=\"\" /></p>"
|
|
(entry-function ""))))
|
|
|
|
(deftest bad-link
|
|
(is (= "<p>[github](http://github.comfooo</p>"
|
|
(entry-function "[github](http://github.comfooo")))
|
|
(is (= "<p>[github] no way (http://github.com)</p>"
|
|
(entry-function "[github] no way (http://github.com)"))))
|
|
|
|
(deftest bad-link-title
|
|
(is (= "<p>[github(http://github.comfooo)</p>"
|
|
(entry-function "[github(http://github.comfooo)"))))
|
|
|
|
(deftest blockquote
|
|
(is (= "<blockquote><p>Foo bar baz </p></blockquote>"
|
|
(entry-function ">Foo bar baz"))))
|
|
|
|
(deftest blockquote-footer
|
|
(is (= "<blockquote><p> Foo bar baz </p><footer> Leo Tolstoy</footer></blockquote>"
|
|
(entry-function "> Foo bar baz\n>- Leo Tolstoy"))))
|
|
|
|
(deftest blockquote-empty-footer
|
|
(is (= "<blockquote><p> Foo bar baz </p><footer></footer></blockquote>"
|
|
(entry-function "> Foo bar baz\n>-"))))
|
|
|
|
(deftest blockquote-multiline-without-leading-angle-bracket
|
|
(is (= "<blockquote><p> Foo bar baz </p></blockquote>"
|
|
(entry-function "> Foo bar\nbaz"))))
|
|
|
|
(deftest blockquote-multiple-paragraphs
|
|
(is (= "<blockquote><p> Foo bar </p><p> baz </p></blockquote>"
|
|
(entry-function "> Foo bar\n>\n> baz"))))
|
|
|
|
(deftest blockquote-bullets
|
|
(is (= "<blockquote><p> list: <ul><li>foo</li><li>bar</li></ul></p></blockquote><p>end.</p>"
|
|
(entry-function "> list:\n>* foo\n>* bar\n\nend.")))
|
|
(is (= "<blockquote><p><ul><li>foo</li><li>bar</li><li>baz</li></ul></p></blockquote>"
|
|
(entry-function ">* foo\n>* bar\n>* baz"))))
|
|
|
|
(deftest blockquote-headings
|
|
(is (= "<blockquote><p><h2>Foo</h2>bar baz </p></blockquote>"
|
|
(entry-function "> ## Foo\n>bar baz")))
|
|
(is (= "<blockquote><p> Foo <h2>bar</h2> baz </p></blockquote>"
|
|
(entry-function "> Foo\n>## bar\n> baz"))))
|
|
|
|
(deftest escaped-characters
|
|
(is
|
|
(= "<p>^*‘_{}[]<em>foo</em><code>test</code><i>bar</i>{x}[y]</p>"
|
|
(entry-function "\\^\\*\\`\\_\\{\\}\\[\\]*foo*`test`_bar_{x}[y]"))))
|
|
|
|
(deftest paragraph-after-list
|
|
(is (= "<ol><li>a</li><li>b</li></ol><p>test <strong>bold</strong> and <em>italic</em></p>"
|
|
(entry-function "1. a\n2. b\n\ntest **bold** and *italic*"))))
|
|
|
|
(deftest paragraph-close-before-list
|
|
(is (= "<p>in paragraph</p><ul><li>list</li></ul>"
|
|
(entry-function "in paragraph\n- list"))))
|
|
|
|
(deftest autourl
|
|
(is (= "<p><a href=\"http://example.com/\">http://example.com/</a></p>"
|
|
(entry-function "<http://example.com/>")))
|
|
|
|
(is (= "<p>Some content with a <a href=\"http://www.google.com/abc__123__efg\">http://www.google.com/abc__123__efg</a> link it in</p>"
|
|
(entry-function "Some content with a <http://www.google.com/abc__123__efg> link it in")))
|
|
|
|
(is (= "<p><a href=\"http://foo\">http://foo</a> <a href=\"https://bar/baz\">https://bar/baz</a> <a href=\"http://foo/bar\">foo bar</a></p>"
|
|
(entry-function "<http://foo> <https://bar/baz> <a href=\"http://foo/bar\">foo bar</a>")))
|
|
|
|
#?(:bb nil :org.babashka/nbb nil
|
|
:default
|
|
(is (= "<p><a href=\"mailto:abc@google.com\">abc@google.com</a></p>"
|
|
(#?(:clj org.apache.commons.lang.StringEscapeUtils/unescapeHtml
|
|
:cljs goog.string/unescapeEntities)
|
|
(entry-function "<abc@google.com>")))))
|
|
|
|
#?(:bb nil :org.babashka/nbb nil
|
|
:default
|
|
(is (= "<p><a href=\"mailto:abc_def_ghi@google.com\">abc_def_ghi@google.com</a></p>"
|
|
(#?(:clj org.apache.commons.lang.StringEscapeUtils/unescapeHtml
|
|
:cljs goog.string/unescapeEntities)
|
|
(entry-function "<abc_def_ghi@google.com>"))))))
|
|
|
|
(deftest not-a-list
|
|
(is (= "<p>The fish was 192.8 lbs and was amazing to see.</p>"
|
|
(entry-function "The fish was\n192.8 lbs and was amazing to see."))))
|
|
|
|
(deftest dont-encode-chars-in-hrefs
|
|
(is (= "<p><a href='http://www.google.com/example_link_foo~_^*'>example_link with tilde ~ and carat ^ and splat *</a></p>"
|
|
(entry-function "[example_link with tilde ~ and carat ^ and splat *](http://www.google.com/example_link_foo~_^*)"))))
|
|
|
|
(deftest complex-link-with-terminal-encoding-inside-header
|
|
(is (= "<h2>With a link <a href='http://a.com/under_score_in_the_link/'>the contents of the_link</a></h2>"
|
|
(entry-function "##With a link [the contents of the_link](http://a.com/under_score_in_the_link/)"))))
|
|
|
|
(deftest two-links-tests-link-processing
|
|
(is (= "<h2>When you have a pair of links <a href='http://123.com/1'>link1</a> and you want both <a href='That%27s%20crazy'>Wow</a></h2>"
|
|
(entry-function "## When you have a pair of links [link1](http://123.com/1) and you want both [Wow](That%27s%20crazy)"))))
|
|
|
|
(deftest link-then-image-processing
|
|
(is (= "<p>You can have a <a href='github.com'>link</a> followed by an image <img src=\"img.png\" alt=\"\" /></p>"
|
|
(entry-function "You can have a [link](github.com) followed by an image "))))
|
|
|
|
(deftest image-then-link-processing
|
|
(is (= "<p>You can have an image <img src=\"img.png\" alt=\"\" /> followed by a <a href='github.com'>link</a></p>"
|
|
(entry-function "You can have an image  followed by a [link](github.com)"))))
|
|
|
|
(deftest link-with-optional-title
|
|
(is (= "<p><a href='https://github.com/cryogen-project/cryogen' title=\"Cryogen Github\">Cryogens site</a></p>"
|
|
(entry-function "[Cryogens site](https://github.com/cryogen-project/cryogen \"Cryogen Github\")"))))
|
|
|
|
(deftest parse-table-row
|
|
(is (= (tables/parse-table-row "| table cell contents |") [{:text "table cell contents"}]))
|
|
(is (= (tables/parse-table-row "| contents 1 | contents 2 | contents 3 | contents 4 |")
|
|
[{:text "contents 1"} {:text "contents 2"} {:text "contents 3"} {:text "contents 4"}])))
|
|
|
|
(deftest table-row->str
|
|
(is (= (tables/table-row->str
|
|
[{:text "contents 1"} {:text "contents 2"} {:text "contents 3"} {:text "contents 4"}]
|
|
true)
|
|
"<th>contents 1</th><th>contents 2</th><th>contents 3</th><th>contents 4</th>"))
|
|
(is (= (tables/table-row->str
|
|
[{:text "contents 1"} {:text "contents 2"} {:text "contents 3"} {:text "contents 4"}]
|
|
false)
|
|
"<td>contents 1</td><td>contents 2</td><td>contents 3</td><td>contents 4</td>"))
|
|
(is (= (tables/table-row->str
|
|
[{:text "contents 1" :alignment :left}
|
|
{:text "contents 2" :alignment :center}
|
|
{:text "contents 3" :alignment :right}
|
|
{:text "contents 4"}]
|
|
false)
|
|
"<td style='text-align:left'>contents 1</td><td style='text-align:center'>contents 2</td><td style='text-align:right'>contents 3</td><td>contents 4</td>")))
|
|
|
|
(deftest table->str
|
|
(is (= (tables/table->str
|
|
{:alignment-seq
|
|
[{:alignment :left} {:alignment :center} {:alignment :right} {:alignment nil}]
|
|
:data [[{:text "Header 1"}
|
|
{:text "Header 2"}
|
|
{:text "Header 3"}
|
|
{:text "Header 4"}]
|
|
[{:text "contents 1"}
|
|
{:text "contents 2"}
|
|
{:text "contents 3"}
|
|
{:text "contents 4"}]]})
|
|
"<table><thead><tr><th style='text-align:left'>Header 1</th><th style='text-align:center'>Header 2</th><th style='text-align:right'>Header 3</th><th>Header 4</th></tr></thead><tbody><tr><td style='text-align:left'>contents 1</td><td style='text-align:center'>contents 2</td><td style='text-align:right'>contents 3</td><td>contents 4</td></tr></tbody></table>")))
|
|
|
|
(deftest divider-seq->alignment
|
|
(is (= (tables/divider-seq->alignment
|
|
[{:text "-----"} {:text ":-----"} {:text "-----:"} {:text ":-----:"}])
|
|
[nil {:alignment :left} {:alignment :right} {:alignment :center}])))
|
|
|
|
(deftest n-dash
|
|
(is (= "<p>boo – bar</p>" (entry-function "boo -- bar"))))
|
|
|
|
(deftest m-dash
|
|
(is (= "<p>boo — bar</p>" (entry-function "boo --- bar"))))
|
|
|
|
(deftest inhibit-simple
|
|
(is (= "<p>_abc_</p>" (entry-function "$_abc_$" :inhibit-separator "$"))))
|
|
|
|
(deftest inhibit-simple-seq
|
|
(is (= "<p>_abc_</p>" (entry-function "$_abc_$" :inhibit-separator [\$]))))
|
|
|
|
(deftest inhibit-inline-code
|
|
(is (= "<p>`abc`</p>" (entry-function "$`abc`$" :inhibit-separator [\$]))))
|
|
|
|
(deftest inhibit-inside-code
|
|
(is (= "<p><code>a*b* & dc</code></p>" (entry-function "`a$*b* & d$c`" :inhibit-separator "$"))))
|
|
|
|
(deftest inhibit-across-backticks
|
|
(is (= "<p><code>one` `two</code></p>" (entry-function "`one$` `$two`" :inhibit-separator "$"))))
|
|
|
|
(deftest inhibit-escape
|
|
(is (= "<p>$</p>" (entry-function "$$" :inhibit-separator [\$]))))
|
|
|
|
(deftest inhibit-escape-twice
|
|
(is (= "<p>$$</p>" (entry-function "$$$$" :inhibit-separator "$"))))
|
|
|
|
(deftest img-reprocess
|
|
(is (= "<p><img src=\"img.jpg\" alt=\"Text\" /> and <a href='#'>Edit</a></p>"
|
|
(entry-function " and [Edit](#)"))))
|
|
|
|
(deftest dont-inhibit-text-within-escapes
|
|
(is (= "<p>$<em>abc</em>$</p>" (entry-function "$$*abc*$$" :inhibit-separator "$"))))
|
|
|
|
(deftest inhibit-escape-inside-code
|
|
(is (= "<p><code>$</code></p>" (entry-function "`$$`" :inhibit-separator "$"))))
|
|
|
|
(deftest whitespace-paragraphs
|
|
(is (= "<p>foo </p><p>bar</p>" (entry-function "foo\n \nbar"))))
|