external/lift/test/test-timeout.lisp

   1 (in-package #:lift-test)
   2
   3 (deftestsuite test-lift-timeouts (lift-test)
   4   ())
   5
   6 (deftestsuite test-timeout-helper ()
   7   ()
   8   :timeout 1)
   9
  10 (addtest (test-timeout-helper)
  11   success-1
  12   (ensure t))
  13
  14 (addtest (test-timeout-helper)
  15   timeout-1
  16   (sleep 2)
  17   (ensure t))
  18
  19
  20
  21
  22 #|
  23
  24 (deftestsuite test-timeout ()
  25   ()
  26   (:timeout 1))
  27
  28 (addtest (test-timeout)
  29   test-should-pass
  30   (sleep 0.5)
  31   (ensure t))
  32
  33 (addtest (test-timeout)
  34   test-should-fail
  35   (sleep 1.5)
  36   (ensure t))
  37 |#