blob: c3402d2194bfc733a7d43edc99d2777cf2852e15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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")))))
|
