From e79fcd4c45dbf1eb6e8ec79725fbe3c55f8b2c7d Mon Sep 17 00:00:00 2001 From: Asko Nomm Date: Sun, 10 Apr 2022 14:23:43 +0200 Subject: Re #4: Add full test coverage for quote blocks. --- test/clarktown/parsers/quote_block_test.clj | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 test/clarktown/parsers/quote_block_test.clj (limited to 'test/clarktown/parsers/quote_block_test.clj') 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) + "
First line\nsecond line
"))) + + (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 -- cgit v1.2.3