branch: elpa/paredit
commit de2dc8edb2984ad23c0ff71c8e4ffe9308b50241
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
Add some trivial tests for `paredit-wrap-sexp'.
Ignore-this: 798d9dcc323a87749b2fdd7e1351c7c
darcs-hash:20110411185153-00fcc-e45fea206945d21a4483d2b0273932644c1dd977
---
test.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/test.el b/test.el
index 1136c55..107652a 100644
--- a/test.el
+++ b/test.el
@@ -196,6 +196,17 @@ 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")
