Add some trivial tests for `paredit-wrap-sexp'.

Ignore-this: 798d9dcc323a87749b2fdd7e1351c7c

darcs-hash:20110411185153-00fcc-e45fea206945d21a4483d2b0273932644c1dd977

1 files changed, 11 insertions, 0 deletions

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")