Rework paredit-semicolon and add some tests for it.

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"