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/horizontal_line_block_test.clj | 7 ++++++- test/clarktown/parsers/quote_block_test.clj | 15 +++++++++++++++ 2 files changed, 21 insertions(+), 1 deletion(-) create mode 100644 test/clarktown/parsers/quote_block_test.clj (limited to 'test') diff --git a/test/clarktown/parsers/horizontal_line_block_test.clj b/test/clarktown/parsers/horizontal_line_block_test.clj index c8c0e90..56601e2 100644 --- a/test/clarktown/parsers/horizontal_line_block_test.clj +++ b/test/clarktown/parsers/horizontal_line_block_test.clj @@ -7,4 +7,9 @@ (deftest horizontal-line-block-test (testing "Creating a horizontal line" (is (= "
" - (horizontal-line-block/render "***" nil))))) \ No newline at end of file + (horizontal-line-block/render "***" nil)))) + + (testing "Is a horizontal line block" + (is (true? (horizontal-line-block/is? "***"))) + (is (true? (horizontal-line-block/is? " ***"))) + (is (false? (horizontal-line-block/is? "Test *** 123"))))) \ No newline at end of file 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