Commit 0b83927e authored by Elias Pipping's avatar Elias Pipping

Tests: Cover exit code after signal

parent a44aafd8
......@@ -431,6 +431,26 @@
(handle-result "exit code matches? (no. 2)"
(equal 12 (wait-process process-info)))))
(define-test
"exit code after signal: synchronous (repeated)"
#+(and lispworks (not lispworks7+))
(skip-test "Known to fail")
(let ((process-info (%run-program "./killer.sh" :wait t)))
(handle-result "exit code matches?"
(equal (+ 128 15) (wait-process process-info)))
(handle-result "exit code matches? (no. 2)"
(equal (+ 128 15) (wait-process process-info)))))
(define-test
"exit code after signal: asynchronous (repeated)"
#+(and lispworks (not lispworks7+))
(skip-test "Known to fail")
(let ((process-info (%run-program "./killer.sh" :wait nil)))
(handle-result "exit code matches?"
(equal (+ 128 15) (wait-process process-info)))
(handle-result "exit code matches? (no. 2)"
(equal (+ 128 15) (wait-process process-info)))))
(fresh-line)
(run-tests)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment