summaryrefslogtreecommitdiff
path: root/test.el
diff options
context:
space:
mode:
Diffstat (limited to 'test.el')
-rw-r--r--test.el28
1 files changed, 27 insertions, 1 deletions
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"