test/clarktown/parsers/horizontal_line_block_test.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(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))))

  (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")))))