Add tests for region deletion across comment boundaries.

Ignore-this: 145763cd2559105046cddd21c3da31d2

darcs-hash:20110411190401-00fcc-44f724d53c52deb35d81b6c3a4bee70ef7d56222

1 files changed, 7 insertions, 1 deletions

diff --git a/test.el b/test.el
index 3ff0544..3e0770b 100644
--- a/test.el
+++ b/test.el
@@ -251,7 +251,13 @@ Four arguments: the paredit command, the text of the buffer
       ("(foo |bar_ baz)\n" "(foo | baz)\n")
       ("(foo |(bar \"baz\" ; quux\n          zot)\n     _mumble)"
        "(foo |mumble)")
-      ("(foo (bar |baz) (quux _zot) mumble)" "(foo (bar |zot) mumble)"))))
+      ("(foo (bar |baz) (quux _zot) mumble)" "(foo (bar |zot) mumble)")
+      ("(foo bar    ;baz| quux\n     zot_)" error)
+      ("(foo bar    ;baz| quux\n     _zot\n     mumble)"
+       "(foo bar    ;baz|zot\n     mumble)")
+      ("(foo bar| baz    ;quux (_)\n     zot)" error)
+      ("(foo bar| baz    ;quux ()_\n     zot)"
+       "(foo bar|\n     zot)"))))
 
 (defun paredit-canary-indent-method (state indent-point normal-indent)
   (check-parens)