mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-02-22 19:20:01 +00:00
Code Issues 1 Releases Wiki Activity

Pathing is not quite working...

Browse Source
This commit is contained in:
Calvin Rose 2024-05-25 16:00:43 -05:00
parent 8e0340252b
commit 14d1dc8749
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/suite-bundle.janet
View File

@ -24,20 +24,23 @@
(assert true) # smoke test
# Copy since not exposed in boot.janet
(def- sep (if (= :windows (os/which)) "\\" "/"))
(defn- rmrf
"rm -rf in janet"
[x]
(case (os/stat x :mode)
:file (os/rm x)
:directory (do
(each y (os/dir x) (rmrf (string x "/" y)))
(each y (os/dir x) (rmrf (string x sep y)))
(os/rmdir x)))
nil)
# Setup a temporary syspath for manipultation
(def syspath (string "./" (string (math/random)) "_jpm_tree.tmp"))
(math/seedrandom (os/cryptorand 16))
(def syspath (string "." sep (string (math/random)) "_jpm_tree.tmp"))
(rmrf syspath)
(os/mkdir syspath)
(assert (os/mkdir syspath))
(print (os/
(put root-env *syspath* (os/realpath syspath))
(setdyn *out* @"")
(assert (empty? (bundle/list)) "initial bundle/list")