From 11ebadeaa3ca09111509cd56a428e4193a37e470 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Thu, 23 Aug 2012 19:59:53 +0200 Subject: [PATCH] Typos. --- src/random.lisp | 2 +- src/run.lisp | 2 +- src/suite.lisp | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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