mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 01:37:19 +00:00
Code Issues 1 Releases Wiki Activity

Fix os/execute regression.

Browse Source
This commit is contained in:
bakpakin 2022-04-27 22:59:27 -05:00
parent 73f5c41fae
commit 427f7c362e
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/os.c
View File

@ -395,7 +395,7 @@ typedef struct {
static JanetEVGenericMessage janet_proc_wait_subr(JanetEVGenericMessage args) { static JanetEVGenericMessage janet_proc_wait_subr(JanetEVGenericMessage args) {
JanetProc *proc = (JanetProc *) args.argp; JanetProc *proc = (JanetProc *) args.argp;
WaitForSingleObject(proc->pHandle, INFINITE); WaitForSingleObject(proc->pHandle, INFINITE);
GetExitCodeProcess(proc->pHandle, &args.argi); GetExitCodeProcess(proc->pHandle, &args.tag);
return args; return args;
} }

4
test/suite0011.janet
View File

@ -50,5 +50,9 @@
(assert (= (hash 0) (hash (* -1 0))) "hash -0 same as hash 0") (assert (= (hash 0) (hash (* -1 0))) "hash -0 same as hash 0")
# os/execute regressions
(for i 0 10
(assert (= i (os/execute [(dyn :executable) "-e" (string/format "(os/exit %d)" i)] :p)) (string "os/execute " i)))
(end-suite) (end-suite)