From de2dc8edb2984ad23c0ff71c8e4ffe9308b50241 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 11 Apr 2011 18:51:53 +0000 Subject: 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") -- cgit v1.2.1