From: David Vázquez <davazp@gmail.com>
Date: Thu, 29 Aug 2013 13:22:36 +0000 (+0200)
Subject: Revert asynchronous tests
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=80d582d5fcaf163593d46b293561b8f8da3212c9

Revert asynchronous tests
---

diff --git a/tests.lisp b/tests.lisp
index c0760b9..a09ee75 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -32,13 +32,6 @@
   (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))
 
@@ -48,6 +41,5 @@
 (defmacro test-equal (form value)
   `(test (equal ,form, value)))
 
-
 (format t "Running tests...~%~%")
 (setq *timestamp* (get-internal-real-time))