summaryrefslogtreecommitdiff
path: root/test/clarktown/parsers
diff options
context:
space:
mode:
authorAsko Nomm <asko@bien.ee>2022-04-10 14:42:53 +0200
committerAsko Nomm <asko@bien.ee>2022-04-10 14:42:53 +0200
commit187bfeaeb559e8d17f63aef46deb1b2c28ee9829 (patch)
tree70f5581d27ebab67d1f3432b783989597119ebf8 /test/clarktown/parsers
parent4e2f40df1c9ce5caa983e90e2b91b30f98deaece (diff)
Close #10: Support triple-dash horizontal lines
Diffstat (limited to 'test/clarktown/parsers')
-rw-r--r--test/clarktown/parsers/horizontal_line_block_test.clj10
1 files changed, 8 insertions, 2 deletions
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