From da5b1e06b77443629e9dcb210a4a53d96f674107 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 6 Jul 2013 21:11:02 +0000 Subject: Flesh out paredit-wrap-... tests a little. --- test.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/test.el b/test.el index b06bf6c..2125141 100644 --- a/test.el +++ b/test.el @@ -170,7 +170,15 @@ Four arguments: the paredit command, the text of the buffer ;; (paredit-wrap-angled ?\< ?\>) ) '(("|foo" "(|foo)") + ("f|oo" "f (|oo)") + ("fo|o" "fo (|o)") ("|foo bar" "(|foo) bar") + ("f|oo bar" "f (|oo) bar") + ("fo|o bar" "fo (|o) bar") + ("foo| bar" "foo (| bar)") + ("foo |bar" "foo (|bar)") + ("foo b|ar" "foo b (|ar)") + ("foo ba|r" "foo ba (|r)") ("|foo bar baz" "(|foo) bar baz"))) (let ((transient-mark-mode t)) -- cgit v1.2.1