diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2024-05-25 16:43:51 -0500 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2024-05-25 16:43:51 -0500 |
| commit | 4fbc71c70d41d143cd6c5d6fbd161e5b1f624fbb (patch) | |
| tree | c831fb97db27a7610dd0066bc40288f709acaca0 /test | |
| parent | Allow using keywords as names for anonymous functions. (diff) | |
Just don't do backslashes.
Diffstat (limited to 'test')
| -rw-r--r-- | test/suite-bundle.janet | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/suite-bundle.janet b/test/suite-bundle.janet index 934dd949..4522131f 100644 --- a/test/suite-bundle.janet +++ b/test/suite-bundle.janet @@ -24,6 +24,9 @@ (assert true) # smoke test # Copy since not exposed in boot.janet +(defn- bundle-rpath + [path] + (string/replace-all "\\" "/" (os/realpath path))) (def- sep (if (= :windows (os/which)) "\\" "/")) (defn- rmrf "rm -rf in janet" @@ -40,8 +43,10 @@ (def syspath (string "." sep (string (math/random)) "_jpm_tree.tmp")) (rmrf syspath) (assert (os/mkdir syspath)) -(put root-env *syspath* (os/realpath syspath)) +(put root-env *syspath* (bundle-rpath syspath)) #(setdyn *out* @"") +(pp (bundle/list)) +(pp (bundle/topolist)) (assert (empty? (bundle/list)) "initial bundle/list") (assert (empty? (bundle/topolist)) "initial bundle/topolist") |