665ae4dd97
* Add tests for markdown-clj and tools.namespace
See comment for why only one markdown test could be run.
Closes #1069 and #1064
* Convert 10 test libs using add-libtest
Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time
* Convert 8 more test libs using add-libtest
Also updated table and added comment for newline test
* Fix doric test
* Disable tools.namespace test that fails on windows
* Added dozen manual test libs and converted 2 test libs
add-libtest.clj supports manually-added and test-directories options
* Converts last tests to test namespaces and write libraries.csv
* Add a number of library tests from projects.md
Also add more docs around adding test libs and tweak add script
* Use :sha for gitlib and older clojure cli
* Revert "Use :sha for gitlib and older clojure cli"
This reverts commit c663ab8368.
* Fix and disable failing tests
Disabled tests that fail consistently and fixed windows one
26 lines
872 B
Clojure
26 lines
872 B
Clojure
(ns testdoc.style.code-first-test
|
|
(:require
|
|
[clojure.string :as str]
|
|
[clojure.test :as t]
|
|
[testdoc.style.code-first :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]], ["head" "(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)))))
|