22 lines
636 B
Text
22 lines
636 B
Text
|
(ns portal.runtime.fs-test
|
||
|
|
(:require [clojure.test :refer [deftest is]]
|
||
|
|
[portal.runtime.fs :as fs]))
|
||
|
|
|
||
|
|
(deftest fs
|
||
|
|
(is (some? (fs/slurp "deps.edn")))
|
||
|
|
(let [deps (fs/join (fs/cwd) "deps.edn")]
|
||
|
|
(is (= (fs/exists deps) deps)))
|
||
|
|
(is (some? (fs/home)))
|
||
|
|
(is (some? (seq (fs/paths))))
|
||
|
|
(is (contains?
|
||
|
|
(into #{} (fs/list (fs/cwd)))
|
||
|
|
(fs/join (fs/cwd) "deps.edn")))
|
||
|
|
(let [dir (str "target/" (gensym))
|
||
|
|
file (str dir "/" (gensym))]
|
||
|
|
(fs/mkdir dir)
|
||
|
|
(fs/spit file "hello")
|
||
|
|
(is (= (fs/slurp file) "hello"))
|
||
|
|
(fs/rm dir)
|
||
|
|
(is (nil? (fs/exists file)))
|
||
|
|
(is (nil? (fs/exists dir)))))
|