Add regression test for `paredit-convolute-sexp' screw case.

Ignore-this: c558f1f5c6432b3276780a30fe13bd3e

darcs-hash:20110507212125-00fcc-729cb31b8bfcbd23234d7fdd8efb469a545baf3a

1 files changed, 3 insertions, 0 deletions

diff --git a/test.el b/test.el
index 746bce0..f76f6cc 100644
--- a/test.el
+++ b/test.el
@@ -346,3 +346,6 @@ Four arguments: the paredit command, the text of the buffer
 (paredit-test 'paredit-forward-barf-sexp
   '(("(paredit-canary|  ;\n (lose))")
     ("(paredit-canary|  ;\n)\n(lose)")))
+
+(paredit-test 'paredit-convolute-sexp
+  '(("(let ((x 5) (y 3)) |(frob (zwonk)) (wibblethwop))" error)))