summaryrefslogtreecommitdiff
path: root/test.el
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2011-05-07 22:03:56 +0000
committerTaylor R Campbell <campbell@mumble.net>2011-05-07 22:03:56 +0000
commita795774d3219c9a681356149ce8e46a6854a503e (patch)
treede53edeccb97d67ea2d8572bc03993c5bd1405b7 /test.el
parent36c9a82384152b6064a684311c3fad5bc1246b92 (diff)
Set `show-trailing-whitespace' to nil when running tests.
Ignore-this: 29d39397a5e43d31b9855e75e38430ab darcs-hash:20110507220356-00fcc-3d492593405908a1fec3be631241abb4268e6dcf
Diffstat (limited to 'test.el')
-rw-r--r--test.el10
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.