From 80d582d5fcaf163593d46b293561b8f8da3212c9 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Thu, 29 Aug 2013 15:22:36 +0200 Subject: [PATCH 1/1] Revert asynchronous tests --- tests.lisp | 8 -------- 1 file changed, 8 deletions(-) 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)) -- 1.7.10.4