Fix typo in tests.lisp and tests-report.lisp

[jscl.git] / tests.lisp

diff --git a/tests.lisp b/tests.lisp
index b230068..7707756 100644 (file)
--- a/tests.lisp
+++ b/tests.lisp
@@ -1,15 +1,15 @@
-(defvar *passed-tets* 0)
-(defvar *failed-tets* 0)
+(defvar *passed-tests* 0)
+(defvar *failed-tests* 0)
 (defvar *timestamp* (get-internal-real-time))
 
 (defmacro test (condition)
   `(cond
      (,condition
       (write-line ,(concat "Test `" (prin1-to-string condition) "' passed"))
-      (incf *passed-tets*))
+      (incf *passed-tests*))
      (t
       (write-line ,(concat "Test `" (prin1-to-string condition) "' failed."))
-      (incf *failed-tets*))))
+      (incf *failed-tests*))))
 
 (write-line "Running tests...")
 (write-line "")