[nongnu] elpa/paredit eb138b5 135/224: Replace `paredit-wrap-sexp' tests by `paredit-wrap-round' &c. tests.

[ELPA Syncer]

branch: elpa/paredit
commit eb138b57dc6004392352b73320cb3e84ab7ba262
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    Replace `paredit-wrap-sexp' tests by `paredit-wrap-round' &c. tests.
    
    Ignore-this: 9bfd202133e386063b4dcddd04d24db6
    
    darcs-hash:20110411225954-00fcc-e1942057e4e99674b84d39d6d2d024aa6c15d528
---
 test.el | 26 +++++++++++++++-----------
 1 file 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")