Fix executable test - add force option since test is being run in system temp directory
This commit is contained in:
parent
4eb7781135
commit
f7c70fa2f0
1 changed files with 2 additions and 1 deletions
|
@ -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))))))
|
||||
|
|
Loading…
Reference in a new issue