tests/hash-cache.pure.lisp

   1 ;;; FIXME: Since timeouts do not work on Windows this would loop
   2 ;;; forever.
   3 (with-test (:name (:hash-cache :interrupt)
   4             :skipped-on (or :win32 :sb-safepoint))
   5   (let* ((type1 (random-type 500))
   6          (type2 (random-type 500))
   7          (wanted (subtypep type1 type2)))
   8     (dotimes (i 50) ; 2.5 seconds (= 50 * .05) of run time
   9       (block foo
  10         (sb-ext:schedule-timer (sb-ext:make-timer
  11                                 (lambda ()
  12                                   (assert (eq wanted (subtypep type1 type2)))
  13                                   (return-from foo)))
  14                                0.05)
  15         (loop
  16            (assert (eq wanted (subtypep type1 type2))))))))