From 7caced9155e32d2e04db2f574057c33f3fda85ab Mon Sep 17 00:00:00 2001
From: Marco Baringer <mb@bese.it>
Date: Wed, 18 Jan 2006 12:14:14 +0100
Subject: [PATCH] Fix a few typos in the docs. (Reported by: Peter Gijsels
 <peter.gijsels@gmail.com>)

---
 src/classes.lisp |    2 +-
 src/fixture.lisp |    2 +-
 src/run.lisp     |    2 +-
 src/suite.lisp   |    2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/classes.lisp b/src/classes.lisp
index ada97da..d2dcbdd 100644
--- a/src/classes.lisp
+++ b/src/classes.lisp
@@ -25,7 +25,7 @@
   ((tests :accessor tests :initform (make-hash-table :test 'eql)
 	  :documentation "The hash table mapping names to test
 	  objects in this suite. The values in this hash table
-	  can be eitehr test-cases of other test-suites."))
+	  can be either test-cases or other test-suites."))
   (:documentation "A test suite is a collection of tests or test suites.
 
 Test suites serve to organize tests into groups so that the
diff --git a/src/fixture.lisp b/src/fixture.lisp
index 32ca2dd..d5ff664 100644
--- a/src/fixture.lisp
+++ b/src/fixture.lisp
@@ -7,7 +7,7 @@
 ;;;; When running tests we often need to setup some kind of context
 ;;;; (create dummy db connections, simulate an http request,
 ;;;; etc.). Fixtures provide a way to conviently hide this context
-;;;; into a macro and allow the test to fuces on testing.
+;;;; into a macro and allow the test to focus on testing.
 
 ;;;; NB: A FiveAM fixture is nothing more than a macro. Since the term
 ;;;; 'fixture' is so common in testing frameworks we've provided a
diff --git a/src/run.lisp b/src/run.lisp
index 274521e..481f33a 100644
--- a/src/run.lisp
+++ b/src/run.lisp
@@ -145,7 +145,7 @@ run."))
                          (return-from run-it (run-it)))
                        (ignore ()
                          :report (lambda (stream)
-                                   (format stream "~@<Signal a test failure and abort the test ~S.~@:>" test))
+                                   (format stream "~@<Signal an exceptional test failure and abort the test ~S.~@:>" test))
                          (abort-test (make-instance 'test-failure :test-case test
                                                     :reason "Failure restart."))))
                      result-list))))
diff --git a/src/suite.lisp b/src/suite.lisp
index 64223e0..0118e1a 100644
--- a/src/suite.lisp
+++ b/src/suite.lisp
@@ -6,7 +6,7 @@
 
 ;;;; Test suites allow us to collect multiple tests into a single
 ;;;; object and run them all using asingle name. Test suites do not
-;;;; affect teh way test are run northe way the results are handled,
+;;;; affect the way test are run nor the way the results are handled,
 ;;;; they are simply a test organizing group.
 
 ;;;; Test suites can contain both tests and other test suites. Running
-- 
1.7.10.4