Test bundle

janet-lang · Oct 5, 2024 · 3d93028 · 3d93028
1 parent 99f0af9
commit 3d93028
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 0 deletions.
diff --git a/examples/sample-bad-bundle/badmod.janet b/examples/sample-bad-bundle/badmod.janet
@@ -0,0 +1 @@
+(def abc 123)
diff --git a/examples/sample-bad-bundle/bundle.janet b/examples/sample-bad-bundle/bundle.janet
@@ -0,0 +1,7 @@
+(defn install
+  [manifest &]
+  (bundle/add-file manifest "badmod.janet"))
+
+(defn check
+  [&]
+  (error "Check failed!"))
diff --git a/test/suite-bundle.janet b/test/suite-bundle.janet
@@ -117,6 +117,11 @@
 (assert (= 0 (length (bundle/list))) "bundles are listed correctly 7")
 (assert (= 0 (length (bundle/topolist))) "bundles are listed correctly 8")
 
+# Try installing a bundle that fails check
+(assert-error "bad test" (bundle/install "./examples/sample-bad-bundle" :check true))
+(assert (= 0 (length (bundle/list))) "check failure 0")
+(assert (= 0 (length (bundle/topolist))) "check failure 1")
+
 (rmrf syspath)
 
 (end-suite)