mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-18 06:34:48 +00:00
Code Issues 1 Releases Wiki Activity

Something is up with code.

Browse Source
This commit is contained in:
Calvin Rose 2024-05-26 10:35:53 -05:00
parent 7efb39d608
commit b8aec50763
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/boot/boot.janet
View File

@ -4122,7 +4122,9 @@
(def d (bundle-dir))
(if (os/stat d :mode)
(sort (os/dir d))
@[]))
(do
(eprint "bundle dir does not exists: " d)
@[])))
(defn- bundle-uninstall-unchecked
[bundle-name]

5
test/suite-bundle.janet
View File

@ -57,13 +57,14 @@
# Try (and fail) to install sample-bundle (missing deps)
(assert-error "missing dependencies sample-dep1, sample-dep2"
(bundle/install "./examples/sample-bundle" "sample-bundle"))
(assert (empty? (bundle/list)))
# Install deps (dep1 as :auto-remove)
(assert-no-error "sample-dep2"
(bundle/install "./examples/sample-dep2"))
(assert (= 1 (length (bundle/list))))
(assert-no-error "sample-dep1" (bundle/install "./examples/sample-dep1"))
(assert (= 2 (length (bundle/list))) "bundles are listed correctly 0")
(assert (= 2 (length (bundle/list))))
(assert-no-error "sample-dep2 reinstall" (bundle/reinstall "sample-dep2"))
(assert-no-error "sample-dep1 reinstall" (bundle/reinstall "sample-dep1" :auto-remove true))