Skip to content
Snippets Groups Projects
Commit 9e99edb8 authored by Raymond Toy's avatar Raymond Toy
Browse files

Add test for issue 26

Basically used the repro case from the issue.
parent 05585b8d
No related branches found
No related tags found
No related merge requests found
......@@ -347,3 +347,14 @@
(assert (null (set-difference directories
'(".dir" "dir")
:test #'string-equal)))))
(define-test issue.26
(: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)
;; 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.
(assert-true (>= (- (get-universal-time) start-time) 3)))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment