Re #4: Add full test coverage for quote blocks.

2 files changed, 21 insertions, 1 deletions

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 (= "<hr>"
-           (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)
+           "<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