Revert asynchronous tests
authorDavid Vázquez <davazp@gmail.com>
Thu, 29 Aug 2013 13:22:36 +0000 (15:22 +0200)
committerDavid Vázquez <davazp@gmail.com>
Thu, 29 Aug 2013 13:22:36 +0000 (15:22 +0200)
tests.lisp

index c0760b9..a09ee75 100644 (file)
   (incf *total-tests*))
 
 
   (incf *total-tests*))
 
 
-#+jscl
-(defmacro test (condition)
-  `(funcall (oget *root* "setTimeout")
-            (lambda ()
-              (test-fn ,condition ',condition))
-            0))
-#-jscl
 (defmacro test (condition)
   `(test-fn ,condition ',condition))
 
 (defmacro test (condition)
   `(test-fn ,condition ',condition))
 
@@ -48,6 +41,5 @@
 (defmacro test-equal (form value)
   `(test (equal ,form, value)))
 
 (defmacro test-equal (form value)
   `(test (equal ,form, value)))
 
-
 (format t "Running tests...~%~%")
 (setq *timestamp* (get-internal-real-time))
 (format t "Running tests...~%~%")
 (setq *timestamp* (get-internal-real-time))