luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add support for BasicFileAttributes

Browse source
This commit is contained in:
Michiel Borkent 2021-11-13 11:05:21 +01:00
parent aaaab5f6eb
commit 948c38c035
2 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/babashka/impl/classes.clj
View file

@ -243,6 +243,7 @@
java.nio.file.PathMatcher
java.nio.file.Paths
java.nio.file.StandardCopyOption
java.nio.file.attribute.BasicFileAttributes
java.nio.file.attribute.FileAttribute
java.nio.file.attribute.FileTime
java.nio.file.attribute.PosixFilePermission
@ -463,7 +464,10 @@
(first (t/getInterfaces v))
;; fix for #1061
(instance? java.io.Closeable v)
java.io.Closeable)))))
java.io.Closeable
(instance? java.nio.file.attribute.BasicFileAttributes v)
java.nio.file.attribute.BasicFileAttributes
,,,)))))
(def class-map (gen-class-map))

8
test/babashka/main_test.clj
View file

@ -412,7 +412,13 @@
(let [v (bb nil "-f" (.getPath (io/file "test-resources" "babashka" "glob.clj")))]
(is (vector? v))
(is (.exists (io/file (first v)))))
(is (= :success (bb nil "(with-open [str (java.nio.file.Files/newDirectoryStream (.toPath (clojure.java.io/file \".\")))] :success)")))))
(is (= :success (bb nil "(with-open [str (java.nio.file.Files/newDirectoryStream (.toPath (clojure.java.io/file \".\")))] :success)")))
(is (string? (bb nil
'(do (import [java.nio.file Files LinkOption])
(import [java.nio.file.attribute BasicFileAttributes])
(def attrs (Files/readAttributes (.toPath (io/file ".")) BasicFileAttributes ^"[Ljava.nio.file.LinkOption;"
(into-array LinkOption [])))
(str (.lastModifiedTime attrs))))))))
(deftest future-print-test
(testing "the root binding of sci/*out*"