From ff06c7aadade33c80e0fc9d2013feba50a573065 Mon Sep 17 00:00:00 2001 From: Phil Jackson Date: Sun, 25 Jan 2009 16:10:01 +0000 Subject: [PATCH] * etest.el: whitespace. --- etest.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/etest.el b/etest.el index 0d298e1..157fd93 100644 --- a/etest.el +++ b/etest.el @@ -34,7 +34,7 @@ ;; Then actually load etest.el: ;; ;; (require 'etest) -;; +;; ;; Valid examples of etest usage might be: ;; ;; Checking (+ 1 1) yeilds a non-nil result: @@ -42,11 +42,11 @@ ;; ;; You can add an extra argument to the end of any test and it will be ;; used as the documentation string for the test: -;; +;; ;; (etest '(ok (+ 1 1) "Check 1 + 1 yeilds non-nil")) -;; +;; ;; If you omit this string then one will be generated for you. -;; +;; ;; Checking (+ 1 1) yeilds 2: ;; (etest '(eq (+ 1 1) 2)) ;; @@ -59,16 +59,16 @@ ;; ;; To define your own tests the `deftest' function should be used. For ;; example the following can (and is) used to test etest itself: -;; +;; ;; (deftest '(eres 1) ;; (lambda (test) ;; (etest-ok ;; (plist-get (car (etest-run (list test))) :result)))) ;; ;; Used like this: -;; +;; ;; (etest '(eres (ok t))) -;; +;; ;; I can see if etests 'built-ins' are working. (require 'etest-result-mode) @@ -240,7 +240,7 @@ similarly shaped set of results. " resuls in RESULT." (let ((type (if (plist-get result :result) :pass :fail))) (plist-put meta-info type (1+ (plist-get meta-info type))))) - + ;; This is defined so that etest can test itself (defun etest-test-tests (test result) "This test is used to test ETest itself. TEST is the test to be -- 2.11.4.GIT