Fix executable test - add force option since test is being run in system temp directory

This commit is contained in:
Matthew Blair 2014-04-01 23:24:42 -04:00
parent 4eb7781135
commit f7c70fa2f0

View file

@ -69,7 +69,8 @@
(testing "that files marked as executable are set executable"
(let [file (File/createTempFile "lein" "template")
path [(.getName file) (.getAbsolutePath file) :executable true]]
(binding [*dir* (.getParentFile file)]
(binding [*dir* (.getParentFile file)
*force?* true]
(.deleteOnExit file)
(->files {} path)
(is (.canExecute file))))))