[nongnu] elpa/paredit 88a5cf7 139/224: Be explicit about Transient Mark Mode in `paredit-wrap-*' tests.

[ELPA Syncer]

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

    Be explicit about Transient Mark Mode in `paredit-wrap-*' tests.
    
    Ignore-this: 1295ab71a3e11223dd5dfca96c6a8292
    
    darcs-hash:20110411232248-00fcc-5bbb48a3bfcddbd0dbd836df292c2059966ec413
---
 test.el | 24 ++++++++++++++++++++----
 1 file 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