summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/clarktown/parsers/horizontal_line_block.clj4
-rw-r--r--test/clarktown/parsers/horizontal_line_block_test.clj10
2 files changed, 10 insertions, 4 deletions
diff --git a/src/clarktown/parsers/horizontal_line_block.clj b/src/clarktown/parsers/horizontal_line_block.clj
index 06997a6..b1d1e05 100644
--- a/src/clarktown/parsers/horizontal_line_block.clj
+++ b/src/clarktown/parsers/horizontal_line_block.clj
@@ -6,8 +6,8 @@
(defn is?
"Determines whether the given block is a horizontal line block."
[block]
- (-> (string/trim block)
- (= "***")))
+ (or (= "***" (string/trim block))
+ (= "---" (string/trim block))))
(defn render
diff --git a/test/clarktown/parsers/horizontal_line_block_test.clj b/test/clarktown/parsers/horizontal_line_block_test.clj
index 56601e2..21617b6 100644
--- a/test/clarktown/parsers/horizontal_line_block_test.clj
+++ b/test/clarktown/parsers/horizontal_line_block_test.clj
@@ -7,9 +7,15 @@
(deftest horizontal-line-block-test
(testing "Creating a horizontal line"
(is (= "<hr>"
- (horizontal-line-block/render "***" nil))))
+ (horizontal-line-block/render "***" nil)))
+
+ (is (= "<hr>"
+ (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
+ (is (false? (horizontal-line-block/is? "Test *** 123")))
+ (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