1
0
mirror of https://github.com/janet-lang/janet synced 2025-01-11 16:10:27 +00:00

Something is up with code.

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

View File

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

View File

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