Be explicit about Transient Mark Mode in `paredit-wrap-*' tests.

Ignore-this: 1295ab71a3e11223dd5dfca96c6a8292

darcs-hash:20110411232248-00fcc-5bbb48a3bfcddbd0dbd836df292c2059966ec413

1 files changed, 20 insertions, 4 deletions

diff --git a/test.el b/test.el
index 179527f..6cc5462 100644
--- a/test.el
+++ b/test.el
@@ -158,7 +158,7 @@ Four arguments: the paredit command, the text of the buffer
   '(("(foo #\\|(  )" "(foo #\\()\n|")
     ("(foo|\n )   ;bar" "(foo)   ;bar\n|")
     ("((foo|\n)    (bar))" "((foo)\n |(bar))")))
-
+
 (paredit-test-bracketed '((paredit-wrap-round ?\( ?\))
                           (paredit-wrap-square ?\[ ?\])
                           (paredit-wrap-curly ?\{ ?\})
@@ -166,9 +166,25 @@ Four arguments: the paredit command, the text of the buffer
                           )
   '(("|foo" "(|foo)")
     ("|foo bar" "(|foo) bar")
-    ("|foo bar baz" "(|foo) bar baz")
-    ("|foo bar_" "(|foo bar)")
-    ("|foo bar_ baz" "(|foo bar) baz")))
+    ("|foo bar baz" "(|foo) bar baz")))
+
+(let ((transient-mark-mode t))
+  (paredit-test-bracketed '((paredit-wrap-round ?\( ?\))
+                            (paredit-wrap-square ?\[ ?\])
+                            (paredit-wrap-curly ?\{ ?\})
+                            ;; (paredit-wrap-angled ?\< ?\>)
+                            )
+    '(("|foo bar_" "(|foo bar)")
+      ("|foo bar_ baz" "(|foo bar) baz"))))
+
+(let ((transient-mark-mode nil))
+  (paredit-test-bracketed '((paredit-wrap-round ?\( ?\))
+                            (paredit-wrap-square ?\[ ?\])
+                            (paredit-wrap-curly ?\{ ?\})
+                            ;; (paredit-wrap-angled ?\< ?\>)
+                            )
+    '(("|foo bar_" "(|foo) bar")
+      ("|foo bar_ baz" "(|foo) bar baz"))))
 
 (let ((current-prefix-arg '(4)))
   (paredit-test 'paredit-wrap-sexp