From 3bdd8402a180623e77b13224807bb8f16df499f4 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 13 Jun 2013 18:48:19 +0000 Subject: Rework paredit-semicolon and add some tests for it. --- test.el | 28 +++++++++++++++++++++++++++- 1 file changed, 27 insertions(+), 1 deletion(-) (limited to 'test.el') diff --git a/test.el b/test.el index eb7ef04..66d22ed 100644 --- a/test.el +++ b/test.el @@ -221,7 +221,33 @@ Four arguments: the paredit command, the text of the buffer "(define (square x)\n (* |x x))"))) (paredit-test 'paredit-semicolon - '(("#\\|(" ";|#\\("))) + '(("|" ";|") + ("|foo" ";|foo") + ("f|oo" "f;|oo") + ("fo|o" "fo;|o") + ("foo|" "foo;|") + ("|(foo bar)" ";|(foo bar)") + ("(|foo bar)" "(;|foo bar\n )") + ("(f|oo bar)" "(f;|oo bar\n )") + ("(fo|o bar)" "(fo;|o bar\n )") + ("(foo| bar)" "(foo;| bar\n )") + ("(foo |bar)" "(foo ;|bar\n )") + ("(foo b|ar)" "(foo b;|ar\n )") + ("(foo ba|r)" "(foo ba;|r\n )") + ("(foo bar|)" "(foo bar;|\n )") + ("(foo bar)|" "(foo bar);|") + ("|(foo\n bar)" ";|\n(foo\n bar)") + ("(|foo\n bar)" "(;|foo\n bar)") + ("(f|oo\n bar)" "(f;|oo\n bar)") + ("(fo|o\n bar)" "(fo;|o\n bar)") + ("(foo|\n bar)" "(foo;|\n bar)") + ("(foo\n| bar)" "(foo\n;| bar\n )") + ("(foo\n |bar)" "(foo\n ;|bar\n )") + ("(foo\n b|ar)" "(foo\n b;|ar\n )") + ("(foo\n ba|r)" "(foo\n ba;|r\n )") + ("(foo\n bar|)" "(foo\n bar;|\n )") + ("(foo\n bar)|" "(foo\n bar);|") + ("#\\|(" ";|#\\("))) (paredit-test 'paredit-comment-dwim '(("\"foo|bar;baz\" ;quux" -- cgit v1.2.1