26 lines
781 B
Clojure
26 lines
781 B
Clojure
|
(ns testdoc.style.repl-test
|
||
|
|
(:require
|
||
|
|
[clojure.string :as str]
|
||
|
|
[clojure.test :as t]
|
||
|
|
[testdoc.style.repl :as sut]))
|
||
|
|
|
||
|
|
(defn- lines
|
||
|
|
[ls]
|
||
|
|
(str/join "\n" ls))
|
||
|
|
|
||
|
|
(t/deftest parse-doc-test
|
||
|
|
(t/are [expected in] (= expected (sut/parse-doc (lines in)))
|
||
|
|
'[[a b]], ["=> a" "b"]
|
||
|
|
'[[(a b) c]], ["=> (a" "=> b)" "c"]
|
||
|
|
'[[a b] [c d]], ["=> a" "b" "=> c" "d"]
|
||
|
|
'[], ["=> a"]
|
||
|
|
'[[a b]], ["=> a" "b" "=> c"]
|
||
|
|
'[[a b]], ["=> a" "b" "c"]
|
||
|
|
'[[a (b c)]], ["=> a" "[b" "c]"]))
|
||
|
|
|
||
|
|
(t/deftest parse-doc-with-meta-test
|
||
|
|
(let [ret (sut/parse-doc (lines ["" "=> a" "6" "=> c" ":d"]))]
|
||
|
|
(t/is (= '[[a 6] [c :d]] ret))
|
||
|
|
(t/is (= 2 (-> ret first meta :testdoc.string/line)))
|
||
|
|
(t/is (= 4 (-> ret second meta :testdoc.string/line)))))
|