diff options
Diffstat (limited to 'test.el')
| -rw-r--r-- | test.el | 28 |
1 files changed, 27 insertions, 1 deletions
@@ -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" |