Something is up with code.

janet-lang · May 26, 2024 · b8aec50 · b8aec50
1 parent 7efb39d
commit b8aec50
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/src/boot/boot.janet b/src/boot/boot.janet
@@ -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]

diff --git a/test/suite-bundle.janet b/test/suite-bundle.janet
@@ -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))