tests/test-timeout.lisp

   1 (in-package #:trivial-shell-test)
   2
   3 (deftestsuite test-with-timeout (trivial-shell-test)
   4   ())
   5
   6 (addtest (test-with-timeout)
   7   timeout-times-out
   8   (ensure-condition timeout-error
   9     (with-timeout (1.0)
  10       (sleep 2.0))))