From eb138b57dc6004392352b73320cb3e84ab7ba262 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 11 Apr 2011 22:59:54 +0000 Subject: 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(-) (limited to 'test.el') 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") -- cgit v1.2.1