babashka/test-resources/lib_tests/portal/runtime/fs_test.cljc
Gabriel Horner 665ae4dd97
Finish up library tests (#1120)
* Add tests for markdown-clj and tools.namespace

See comment for why only one markdown test could be run.
Closes #1069 and #1064

* Convert 10 test libs using add-libtest

Also improved add-libtest to only require maven artifact
and rely on clojars for getting git-url most of the time

* Convert 8 more test libs using add-libtest

Also updated table and added comment for newline test

* Fix doric test

* Disable tools.namespace test that fails on windows

* Added dozen manual test libs and converted 2 test libs

add-libtest.clj supports manually-added and test-directories options

* Converts last tests to test namespaces and write libraries.csv

* Add a number of library tests from projects.md

Also add more docs around adding test libs and tweak add script

* Use :sha for gitlib and older clojure cli

* Revert "Use :sha for gitlib and older clojure cli"

This reverts commit c663ab8368.

* Fix and disable failing tests

Disabled tests that fail consistently and fixed windows one
2021-12-29 16:35:14 +01:00

21 lines
636 B
Clojure

(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)))))