Permalink
Browse files

Fix typos.

  • Loading branch information...
1 parent ebf1d93 commit b76fc6a27dc451c7f2f88eb9a1f028228530af6c @Ferada Ferada committed with Aug 23, 2012
Showing with 4 additions and 4 deletions.
  1. +1 −1 src/check.lisp
  2. +1 −1 src/random.lisp
  3. +1 −1 src/run.lisp
  4. +1 −1 src/suite.lisp
View
@@ -121,7 +121,7 @@ REASON-ARGS is provided, is generated based on the form of TEST:
(predicate value) - Means that we want to ensure that VALUE
satisfies PREDICATE.
- Wrapping the TEST form in a NOT simply preducse a negated reason
+ Wrapping the TEST form in a NOT simply produces a negated reason
string."
(assert (listp test)
(test)
View
@@ -144,7 +144,7 @@ Examples:
(:method ((object t)) nil))
(defmethod reason ((result for-all-test-failed))
- (format nil "Falsafiable with ~S" (slot-value result 'failure-values)))
+ (format nil "Falsifiable with ~S" (slot-value result 'failure-values)))
(defclass for-all-test-no-tests (test-failure for-all-test-result)
())
View
@@ -221,7 +221,7 @@ run."))
;;;; ** Public entry points
(defun run! (&optional (test-spec *suite*))
- "Equivalent to (explain (run TEST-SPEC))."
+ "Equivalent to (explain! (run TEST-SPEC))."
(explain! (run test-spec)))
(defun explain! (result-list)
View
@@ -79,7 +79,7 @@ See also: DEF-SUITE *SUITE*"
(progn
(when ,fail-on-error
(cerror "Create a new suite named ~A."
- "Unkown suite ~A." ',suite-name))
+ "Unknown suite ~A." ',suite-name))
(setf (get-test ',suite-name) (make-suite ',suite-name :in ',in)
*suite* (get-test ',suite-name))))
',suite-name)))

0 comments on commit b76fc6a

Please sign in to comment.