diff options
| author | Asko Nomm <asko@bien.ee> | 2022-04-10 14:23:43 +0200 |
|---|---|---|
| committer | Asko Nomm <asko@bien.ee> | 2022-04-10 14:23:43 +0200 |
| commit | e79fcd4c45dbf1eb6e8ec79725fbe3c55f8b2c7d (patch) | |
| tree | a01106b853bcbbc9ced53b164698d3be56b9608f /test/clarktown/parsers/quote_block_test.clj | |
| parent | d4fd8d01eb9b57f1ee7b770ca24fc5e121b49edc (diff) | |
Re #4: Add full test coverage for quote blocks.
Diffstat (limited to 'test/clarktown/parsers/quote_block_test.clj')
| -rw-r--r-- | test/clarktown/parsers/quote_block_test.clj | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/test/clarktown/parsers/quote_block_test.clj b/test/clarktown/parsers/quote_block_test.clj new file mode 100644 index 0000000..94553cf --- /dev/null +++ b/test/clarktown/parsers/quote_block_test.clj @@ -0,0 +1,15 @@ +(ns clarktown.parsers.quote-block-test + (:require + [clojure.test :refer [deftest testing is]] + [clarktown.parsers.quote-block :as quote-block])) + + +(deftest quote-block-block-test + (testing "Creating a quote block line" + (is (= (quote-block/render "> First line\n> second line" nil) + "<blockquote>First line\nsecond line</blockquote>"))) + + (testing "Checking a quote block" + (is (true? (quote-block/is? "> Test"))) + (is (true? (quote-block/is? " > Test"))) + (is (true? (quote-block/is? ">")))))
\ No newline at end of file |