diff --git a/test/babashka/impl/clojure/java/io_test.clj b/test/babashka/impl/clojure/java/io_test.clj new file mode 100644 index 00000000..ea47075b --- /dev/null +++ b/test/babashka/impl/clojure/java/io_test.clj @@ -0,0 +1,25 @@ +(ns babashka.impl.clojure.java.io-test + (:require [babashka.test-utils :as test-utils] + [clojure.edn :as edn] + [clojure.test :as t :refer [deftest is]])) + +(defn bb [& args] + (edn/read-string + {:readers *data-readers* + :eof nil} + (apply test-utils/bb nil (map str args)))) + +(deftest nio-coercion-test + (is (true? (bb " +(require '[clojure.java.io :as io]) + +(extend-protocol io/Coercions + java.nio.file.Path + (as-file [this] (.toFile this)) + (as-url [this] (.. this (toFile) (toURL)))) + +(def path (.toPath (io/file \".\"))) +;; ^ this is a java.nio.file.Path + +(.exists (io/file path)) ;; true +"))))