From b8aec50763add056e7f70545398a514468477790 Mon Sep 17 00:00:00 2001 From: Calvin Rose Date: Sun, 26 May 2024 10:35:53 -0500 Subject: [PATCH] Something is up with code. --- src/boot/boot.janet | 4 +++- test/suite-bundle.janet | 5 +++-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/boot/boot.janet b/src/boot/boot.janet index aebf8b13..8cb9b846 100644 --- 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 index ef618e80..a43a7778 100644 --- 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))