summaryrefslogtreecommitdiff
path: root/test.el
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2011-04-11 23:22:48 +0000
committerTaylor R Campbell <campbell@mumble.net>2011-04-11 23:22:48 +0000
commit88a5cf7a242f3e6b37ae5d2229b718948e32a5db (patch)
treefe0969ac7b077364dde81567931ee6337cce198c /test.el
parentb558286e191bf2f9c0c0d3d8c4d2acc0134b5407 (diff)
Be explicit about Transient Mark Mode in `paredit-wrap-*' tests.
Ignore-this: 1295ab71a3e11223dd5dfca96c6a8292 darcs-hash:20110411232248-00fcc-5bbb48a3bfcddbd0dbd836df292c2059966ec413
Diffstat (limited to 'test.el')
-rw-r--r--test.el24
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