[nongnu] elpa/paredit a795774 143/224: Set `show-trailing-whitespace' to nil when running tests.

[ELPA Syncer]

branch: elpa/paredit
commit a795774d3219c9a681356149ce8e46a6854a503e
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    Set `show-trailing-whitespace' to nil when running tests.
    
    Ignore-this: 29d39397a5e43d31b9855e75e38430ab
    
    darcs-hash:20110507220356-00fcc-3d492593405908a1fec3be631241abb4268e6dcf
---
 test.el | 10 +++++++---
 1 file 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.