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:
parent
7efb39d608
commit
b8aec50763
@ -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]
|
||||||
|
@ -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))
|
||||||
|
Loading…
Reference in New Issue
Block a user