blob: 21617b6c1d00c3c471c66bc70df944d93d02b3b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(ns clarktown.parsers.horizontal-line-block-test
(:require
[clojure.test :refer [deftest testing is]]
[clarktown.parsers.horizontal-line-block :as horizontal-line-block]))
(deftest horizontal-line-block-test
(testing "Creating a horizontal line"
(is (= "<hr>"
(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")))
(is (true? (horizontal-line-block/is? "---")))
(is (true? (horizontal-line-block/is? " ---")))
(is (false? (horizontal-line-block/is? "Test --- 123")))))
|
