summaryrefslogtreecommitdiff
path: root/test.el
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2011-04-11 22:59:54 +0000
committerTaylor R Campbell <campbell@mumble.net>2011-04-11 22:59:54 +0000
commiteb138b57dc6004392352b73320cb3e84ab7ba262 (patch)
tree8fa3862259e3c9d165544c77a8fd9c71bc751582 /test.el
parent2e61740e43b546e9dbd6b494eae2464b782843c9 (diff)
Replace `paredit-wrap-sexp' tests by `paredit-wrap-round' &c. tests.
Ignore-this: 9bfd202133e386063b4dcddd04d24db6 darcs-hash:20110411225954-00fcc-e1942057e4e99674b84d39d6d2d024aa6c15d528
Diffstat (limited to 'test.el')
-rw-r--r--test.el26
1 files changed, 15 insertions, 11 deletions
diff --git a/test.el b/test.el
index 99434f5..ad33488 100644
--- a/test.el
+++ b/test.el
@@ -158,6 +158,21 @@ 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 ?\{ ?\})
+ ;; (paredit-wrap-angled ?\< ?\>)
+ )
+ '(("|foo" "(|foo)")
+ ("|foo bar" "(|foo) bar")
+ ("|foo bar baz" "(|foo) bar baz")
+ ("|foo bar_" "(|foo bar)")
+ ("|foo bar_ baz" "(|foo bar) baz")))
+
+(let ((current-prefix-arg '(4)))
+ (paredit-test 'paredit-wrap-sexp
+ '(("(foo |bar baz)" "(foo (|bar baz))"))))
(paredit-test 'paredit-newline
'(("\"foo|bar\"" "\"foo\n|bar\"")
@@ -198,17 +213,6 @@ Four arguments: the paredit command, the text of the buffer
;; `comment-search-forward' to wind up inside a character or a
;; string?
))
-
-(paredit-test 'paredit-wrap-sexp
- '(("|foo" "(|foo)")
- ("|foo bar" "(|foo) bar")
- ("|foo bar baz" "(|foo) bar baz")
- ("|foo bar_" "(|foo bar)")
- ("|foo bar_ baz" "(|foo bar) baz")))
-
-(let ((current-prefix-arg '(4)))
- (paredit-test 'paredit-wrap-sexp
- '(("(foo |bar baz)" "(foo (|bar baz))"))))
(paredit-test 'paredit-forward-delete
'(("f|oo" "f|o")