mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

Revert "tests: adjust to windows"

Browse source 
This reverts commit 7a16333f4a.
This commit is contained in:
Daniel Kochmański 2017-02-21 07:42:48 +01:00
parent 7a16333f4a
commit 58a705cf69
1 changed files with 2 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/tests/normal-tests/run-program.lsp
View file

@ -60,7 +60,6 @@
(test terminate-process
#-msvc
(is-equal `(t :signaled ,ext:+sigterm+)
(with-run-program (terminate nil)
(is-eql :running (ext:external-process-wait process nil))
@ -69,7 +68,7 @@
(sleep 1)
(is-eql :signaled (ext:external-process-wait process nil))
(finishes (ext:terminate-process process))))
#-msvc
(is-equal `(t :signaled ,ext:+sigkill+)
(with-run-program (terminate nil)
(is-eql :running (ext:external-process-wait process nil))
@ -77,21 +76,11 @@
(finishes (ext:terminate-process process t)) ; no-op
(sleep 1)
(is-eql :signaled (ext:external-process-wait process nil))
(finishes (ext:terminate-process process t))))
#+msvc
(is-equal `(t :error nil)
(with-run-program (terminate nil)
(is-eql :running (ext:external-process-wait process nil))
(finishes (ext:terminate-process process t))
(finishes (ext:terminate-process process t)) ; no-op
(sleep 1)
(is-eql :error (ext:external-process-wait process nil))
(finishes (ext:terminate-process process t)))))
;;; We may want to craft it into an interface. Suspend/Resume *is* possible on Windows:
;;; http://stackoverflow.com/questions/11010165/how-to-suspend-resume-a-process-in-windows
#-msvc
#-windows
(test suspend-resume
(is-equal `(t :signaled ,ext:+sigkill+)
(with-run-program (heartbeat nil)