[Git][cmucl/cmucl][rtoy-issue-26] Verify the process ran and exited successfully

[Raymond Toy]

Raymond Toy pushed to branch rtoy-issue-26 at cmucl / cmucl


Commits:
1aae3ef9 by Raymond Toy at 2016-11-29T19:01:54-08:00
Verify the process ran and exited successfully

- - - - -


1 changed file:

- tests/issues.lisp


Changes:

=====================================
tests/issues.lisp
=====================================
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -352,8 +352,12 @@
     (:tag :issues)
   (let ((start-time (get-universal-time)))
     (let ((p (ext:run-program "/usr/bin/env" '("sleep" "1") :wait nil)))
-      (declare (ignore p))
       (sleep 5)
+      ;; For this test to be valid, the process must have finished
+      ;; with a successful exit.
+      (assert-true (eq (ext:process-status p) :exited))
+      (assert-true (zerop (ext:process-exit-code p)))
+
       ;; We expect to have slept for at least 5 sec, but since
       ;; get-universal-time only has an accuracy of 1 sec, just verify
       ;; more than 3 sec have elapsed.



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/1aae3ef96a2f49ef5743031d7c88733d70a6f1ba
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20161130/adca815e/attachment.html>