mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-10-08 08:41:42 +00:00
Code Issues 1 Releases Wiki Activity

Avoid using monkey-patched assert for this failure case.

Browse Source
This commit is contained in:
Calvin Rose
2026-09-28 16:49:43 -05:00
parent 62dc34d602
commit 09b75c3a54
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/suite-ev.janet
+7 -2
View File
@@ -644,8 +644,13 @@
# os/spawn and os/execute when program does not exist gives a normal error
(def dne-path "this-long-binary-name-does-not-exist")
(assert (nil? (os/stat dne-path :mode)) "binary path does not exist 1")
# On some systems, the intial process may launch but should immediately fail. Other systems will refuse to launch a process.
(assert (let [[ok _result] (protect (let [p (os/spawn [dne-path] :p)] (assert (zero? (:wait p)))))] (not ok))
(assert (let [[ok _result]
(protect
(let [process (os/spawn [dne-path] :p)]
# if initial process launch works, it should at least fail with a non-zero exit code.
(if-not (= 0 (:wait process))
(error "should error"))))]
(not ok))
"binary path does not exist 2 - os/spawn")
(assert (let [[ok _result] (protect (os/execute [dne-path] :px))] (not ok)) "binary path does not exist 2 - os/execute")