Raymond Toy pushed to branch rtoy-issue-26 at cmucl / cmucl
Commits:
-
1aae3ef9
by Raymond Toy at 2016-11-29T19:01:54-08:00
1 changed file:
Changes:
| ... | ... | @@ -352,8 +352,12 @@ |
| 352 | 352 |
(:tag :issues)
|
| 353 | 353 |
(let ((start-time (get-universal-time)))
|
| 354 | 354 |
(let ((p (ext:run-program "/usr/bin/env" '("sleep" "1") :wait nil)))
|
| 355 |
(declare (ignore p))
|
|
| 356 | 355 |
(sleep 5)
|
| 356 |
;; For this test to be valid, the process must have finished
|
|
| 357 |
;; with a successful exit.
|
|
| 358 |
(assert-true (eq (ext:process-status p) :exited))
|
|
| 359 |
(assert-true (zerop (ext:process-exit-code p)))
|
|
| 360 |
|
|
| 357 | 361 |
;; We expect to have slept for at least 5 sec, but since
|
| 358 | 362 |
;; get-universal-time only has an accuracy of 1 sec, just verify
|
| 359 | 363 |
;; more than 3 sec have elapsed.
|