From b76fc6a27dc451c7f2f88eb9a1f028228530af6c Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Thu, 23 Aug 2012 19:59:53 +0200 Subject: [PATCH] Fix typos. --- src/check.lisp | 2 +- src/random.lisp | 2 +- src/run.lisp | 2 +- src/suite.lisp | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/check.lisp b/src/check.lisp index 12f2256..21f7bf4 100644 --- a/src/check.lisp +++ b/src/check.lisp @@ -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) diff --git a/src/random.lisp b/src/random.lisp index 446f710..6b2059a 100644 --- a/src/random.lisp +++ b/src/random.lisp @@ -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) ()) diff --git a/src/run.lisp b/src/run.lisp index 2f9d363..417acd8 100644 --- a/src/run.lisp +++ b/src/run.lisp @@ -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) diff --git a/src/suite.lisp b/src/suite.lisp index a71c6eb..972e1f6 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -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))) -- 1.7.10.4