WIP #16

Pretty much done. Needs more testing. And new documentation.

3 files changed, 34 insertions, 0 deletions

diff --git a/test/clarktown/matchers/empty_block_test.clj b/test/clarktown/matchers/empty_block_test.clj
new file mode 100644
index 0000000..8fe83e4
--- /dev/null
+++ b/test/clarktown/matchers/empty_block_test.clj
@@ -0,0 +1,9 @@
+(ns clarktown.matchers.empty-block-test
+  (:require
+    [clojure.test :refer [deftest testing is]]
+    [clarktown.matchers.empty-block :as empty-block]))
+
+(deftest empty-block-matcher-test
+  (testing "Checking an empty block"
+    (is (true? (empty-block/match? "")))
+    (is (true? (empty-block/match? "     ")))))
\ No newline at end of file
diff --git a/test/clarktown/matchers/horizontal_line_block_test.clj b/test/clarktown/matchers/horizontal_line_block_test.clj
new file mode 100644
index 0000000..c3402d2
--- /dev/null
+++ b/test/clarktown/matchers/horizontal_line_block_test.clj
@@ -0,0 +1,14 @@
+(ns clarktown.matchers.horizontal-line-block-test
+  (:require
+    [clojure.test :refer [deftest testing is]]
+    [clarktown.matchers.horizontal-line-block :as horizontal-line-block]))
+
+
+(deftest horizontal-line-block-matcher-test
+  (testing "Is a horizontal line block"
+    (is (true? (horizontal-line-block/match? "***")))
+    (is (true? (horizontal-line-block/match? "    ***")))
+    (is (false? (horizontal-line-block/match? "Test *** 123")))
+    (is (true? (horizontal-line-block/match? "---")))
+    (is (true? (horizontal-line-block/match? "    ---")))
+    (is (false? (horizontal-line-block/match? "Test --- 123")))))
\ No newline at end of file
diff --git a/test/clarktown/matchers/quote_block_test.clj b/test/clarktown/matchers/quote_block_test.clj
new file mode 100644
index 0000000..05288d6
--- /dev/null
+++ b/test/clarktown/matchers/quote_block_test.clj
@@ -0,0 +1,11 @@
+(ns clarktown.matchers.quote-block-test
+  (:require
+    [clojure.test :refer [deftest testing is]]
+    [clarktown.matchers.quote-block :as quote-block]))
+
+
+(deftest quote-block-block-matcher-test
+  (testing "Checking a quote block"
+    (is (true? (quote-block/match? "> Test")))
+    (is (true? (quote-block/match? "    > Test")))
+    (is (true? (quote-block/match? ">")))))
\ No newline at end of file