mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-03-11 19:08:09 +00:00
Code Issues 1 Releases Wiki Activity

Test bundle

Browse Source
This commit is contained in:
Calvin Rose 2024-10-05 12:37:23 -05:00
parent 99f0af92bd
commit 3d93028088
3 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
examples/sample-bad-bundle/badmod.janet Normal file
View File

@ -0,0 +1 @@
(def abc 123)

7
examples/sample-bad-bundle/bundle.janet Normal file
View File

@ -0,0 +1,7 @@
(defn install
[manifest &]
(bundle/add-file manifest "badmod.janet"))
(defn check
[&]
(error "Check failed!"))

5
test/suite-bundle.janet
View File

@ -117,6 +117,11 @@
(assert (= 0 (length (bundle/list))) "bundles are listed correctly 7") (assert (= 0 (length (bundle/list))) "bundles are listed correctly 7")
(assert (= 0 (length (bundle/topolist))) "bundles are listed correctly 8") (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) (rmrf syspath)
(end-suite) (end-suite)