From: Strigoides <Strigoides@gmail.com>
Date: Fri, 26 Apr 2013 12:18:44 +0000 (+1200)
Subject: Fix typo in tests.lisp and tests-report.lisp
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=262e1601f42aa136b8ce452580d784656ce1c6d1;p=jscl.git

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

diff --git a/tests-report.lisp b/tests-report.lisp
index b40da9e..529f1ad 100644
--- a/tests-report.lisp
+++ b/tests-report.lisp
@@ -4,12 +4,12 @@
 (write-line " seconds.")
 
 (cond
-  ((zerop *failed-tets*)
+  ((zerop *failed-tests*)
    (write-string "All tests (")
-   (write-string (prin1-to-string *passed-tets*))
+   (write-string (prin1-to-string *passed-tests*))
    (write-line ") passed successfully"))
   (t
-   (write-string (prin1-to-string *failed-tets*))
+   (write-string (prin1-to-string *failed-tests*))
    (write-string "/")
-   (write-string (prin1-to-string (+ *passed-tets* *failed-tets*)))
+   (write-string (prin1-to-string (+ *passed-tests* *failed-tests*)))
    (write-line " failed.")))
diff --git a/tests.lisp b/tests.lisp
index b230068..7707756 100644
--- 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 "")