[#345] test for .deleteOnExit
This commit is contained in:
parent
4109aa5264
commit
56a798135c
1 changed files with 7 additions and 0 deletions
|
|
@ -395,6 +395,13 @@
|
||||||
(.unread pb (.read pb))
|
(.unread pb (.read pb))
|
||||||
(slurp pb))"))))
|
(slurp pb))"))))
|
||||||
|
|
||||||
|
(deftest delete-on-exit-test
|
||||||
|
(when test-utils/native?
|
||||||
|
(let [f (java.io.File/createTempFile "foo" "bar")
|
||||||
|
p (.getPath f)]
|
||||||
|
(bb nil (format "(.deleteOnExit (io/file \"%s\"))" p))
|
||||||
|
(is (false? (.exists f))))))
|
||||||
|
|
||||||
;;;; Scratch
|
;;;; Scratch
|
||||||
|
|
||||||
(comment
|
(comment
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue