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
29 lines
1.4 KiB
Clojure
29 lines
1.4 KiB
Clojure
(ns clojure.tools.namespace.find-test
|
|
(:require [clojure.test :refer [deftest is]]
|
|
[clojure.tools.namespace.test-helpers :as help]
|
|
[clojure.tools.namespace.find :as find])
|
|
(:import (java.io File)))
|
|
|
|
(deftest t-find-clj-and-cljc-files
|
|
"main.clj depends on one.cljc which depends on two.clj.
|
|
two.cljs also exists but should not be returned"
|
|
(let [dir (help/create-temp-dir "t-find-clj-and-cljc-files")
|
|
main-clj (help/create-source dir 'example.main :clj '[example.one])
|
|
one-cljc (help/create-source dir 'example.one :cljc '[example.two])
|
|
two-clj (help/create-source dir 'example.two :clj)
|
|
two-cljs (help/create-source dir 'example.two :cljs)]
|
|
(is (help/same-files?
|
|
[main-clj one-cljc two-clj]
|
|
(find/find-sources-in-dir dir)))))
|
|
|
|
(deftest t-find-cljs-and-cljc-files
|
|
"main.cljs depends on one.cljc which depends on two.cljs.
|
|
two.clj also exists but should not be returned"
|
|
(let [dir (help/create-temp-dir "t-find-cljs-and-cljc-files")
|
|
main-cljs (help/create-source dir 'example.main :cljs '[example.one])
|
|
one-cljc (help/create-source dir 'example.one :cljc '[example.two])
|
|
two-clj (help/create-source dir 'example.two :clj)
|
|
two-cljs (help/create-source dir 'example.two :cljs)]
|
|
(is (help/same-files?
|
|
[main-cljs one-cljc two-cljs]
|
|
(find/find-sources-in-dir dir find/cljs)))))
|