diff options
| author | Asko Nõmm <asko@bien.ee> | 2022-04-19 17:50:19 +0300 |
|---|---|---|
| committer | Asko Nõmm <asko@bien.ee> | 2022-04-19 17:50:19 +0300 |
| commit | 52203a49aa544b2c11c96445d8732893160c436b (patch) | |
| tree | 84d7b0e9af92770647643bdf7ddbb898663bd7b8 /test/clarktown/parsers/heading_block_test.clj | |
| parent | 059bfa7bd9bfdde0c75646bf1dfc20d23da8a02c (diff) | |
WIP #16
Pretty much done. Needs more testing. And new documentation.
Diffstat (limited to 'test/clarktown/parsers/heading_block_test.clj')
| -rw-r--r-- | test/clarktown/parsers/heading_block_test.clj | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/test/clarktown/parsers/heading_block_test.clj b/test/clarktown/parsers/heading_block_test.clj deleted file mode 100644 index 9bfff4f..0000000 --- a/test/clarktown/parsers/heading_block_test.clj +++ /dev/null @@ -1,44 +0,0 @@ -(ns clarktown.parsers.heading-block-test - (:require - [clojure.test :refer [deftest testing is]] - [clarktown.parsers.heading-block :as heading-block])) - - -(deftest hashbang-heading-test - (testing "Hashbang heading block that's a H1" - (is (= "<h1>This is a heading block.</h1>" - (heading-block/render "# This is a heading block." nil)))) - - (testing "Hashbang heading block that's a H2" - (is (= "<h2>This is a heading block.</h2>" - (heading-block/render "## This is a heading block." nil)))) - - (testing "Hashbang heading block that's a H3" - (is (= "<h3>This is a heading block.</h3>" - (heading-block/render "### This is a heading block." nil)))) - - (testing "Hashbang heading block that's a H4" - (is (= "<h4>This is a heading block.</h4>" - (heading-block/render "#### This is a heading block." nil)))) - - (testing "Hashbang heading block that's a H5" - (is (= "<h5>This is a heading block.</h5>" - (heading-block/render "##### This is a heading block." nil))))) - - -(deftest settext-heading-text - (testing "Settext heading block that's a H1" - (is (= "<h1>This is a heading block.</h1>" - (heading-block/render "This is a heading block.\n=========" nil)))) - - (testing "Settext heading block that's a H1 spanning multiple lines" - (is (= "<h1>This is a \nheading block spanning multiple lines.</h1>" - (heading-block/render "This is a \nheading block spanning multiple lines.\n========" nil)))) - - (testing "Settext heading block that's a H2" - (is (= "<h2>This is a heading block.</h2>" - (heading-block/render "This is a heading block.\n---------" nil)))) - - (testing "Settext heading block that's a H2 spanning multiple lines" - (is (= "<h2>This is a \nheading block spanning multiple lines.</h2>" - (heading-block/render "This is a \nheading block spanning multiple lines.\n--------" nil)))))
\ No newline at end of file |
