test/clarktown/matchers/quote_block_test.clj


1
2
3
4
5
6
7
8
9
10
11

(ns clarktown.matchers.quote-block-test
  (:require
    [clojure.test :refer [deftest testing is]]
    [clarktown.matchers.quote-block :as quote-block]))


(deftest quote-block-matcher-test
  (testing "Checking a quote block"
    (is (true? (quote-block/match? "> Test")))
    (is (true? (quote-block/match? "    > Test")))
    (is (true? (quote-block/match? ">")))))