Set `show-trailing-whitespace' to nil when running tests.

Ignore-this: 29d39397a5e43d31b9855e75e38430ab

darcs-hash:20110507220356-00fcc-3d492593405908a1fec3be631241abb4268e6dcf

1 files changed, 7 insertions, 3 deletions

diff --git a/test.el b/test.el
index f76f6cc..5a5d9ec 100644
--- a/test.el
+++ b/test.el
@@ -37,9 +37,7 @@ Four arguments: the paredit command, the text of the buffer
     (let ((before (car example)))
       (dolist (expected (cdr example))
         (with-temp-buffer
-          (scheme-mode)
-          (set (make-local-variable 'indent-tabs-mode) nil)
-          (set (make-local-variable 'comment-column) 40)
+          (paredit-test-buffer-setup)
           (insert before)
           (goto-char (point-min))
           (if (search-forward "_" nil t)
@@ -60,6 +58,12 @@ Four arguments: the paredit command, the text of the buffer
               (paredit-test-failed command before (buffer-string) expected)))
         (setq before expected)))))
 
+(defun paredit-test-buffer-setup ()
+  (scheme-mode)
+  (set (make-local-variable 'indent-tabs-mode) nil)
+  (set (make-local-variable 'comment-column) 40)
+  (set (make-local-variable 'show-trailing-whitespace) nil))
+
 (paredit-do-commands (spec keys command examples)
     nil                                 ;string case
   ;; `paredit-backslash' has a funny example.