summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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