21 lines
1 KiB
Clojure
21 lines
1 KiB
Clojure
|
(ns clojure.tools.namespace.dir-test
|
||
|
|
(:require [clojure.test :refer [deftest is]]
|
||
|
|
[clojure.tools.namespace.test-helpers :as help]
|
||
|
|
[clojure.tools.namespace.dir :as dir])
|
||
|
|
(:import
|
||
|
|
(java.io File)))
|
||
|
|
|
||
|
|
;; Only run this test on Java 1.7+, where java.nio.file.Files is available.
|
||
|
|
(when (try (Class/forName "java.nio.file.Files")
|
||
|
|
(catch ClassNotFoundException _ false))
|
||
|
|
(deftest t-scan-by-canonical-path
|
||
|
|
(let [dir (help/create-temp-dir "t-scan-by-canonical-path")
|
||
|
|
main-clj (help/create-source dir 'example.main :clj '[example.one])
|
||
|
|
one-cljc (help/create-source dir 'example.one :clj)
|
||
|
|
other-dir (help/create-temp-dir "t-scan-by-canonical-path-other")
|
||
|
|
link (File. other-dir "link")]
|
||
|
|
(java.nio.file.Files/createSymbolicLink (.toPath link) (.toPath dir)
|
||
|
|
(make-array java.nio.file.attribute.FileAttribute 0))
|
||
|
|
(is (= (::dir/files (dir/scan-dirs {} [dir]))
|
||
|
|
(::dir/files (dir/scan-dirs {} [link])))))))
|