Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (8 sloc) 222 Bytes
(in-package #:trivial-shell-test)
(deftestsuite test-with-timeout (trivial-shell-test)
())
(addtest (test-with-timeout)
timeout-times-out
(ensure-condition timeout-error
(with-timeout (1.0)
(sleep 2.0))))