Test some backward-slurp screw cases.

1 files changed, 7 insertions, 1 deletions

diff --git a/test.el b/test.el
index 07389a6..6b7dbea 100644
--- a/test.el
+++ b/test.el
@@ -794,7 +794,13 @@ Four arguments: the paredit command, the text of the buffer
     ("\"|\"" error)
     ("\"|xy\"" error)                   ;++ Could be done.  Why not?
     ("\"x|y\"" error)
-    ("\"xy|\"" error)))
+    ("\"xy|\"" error)
+
+    ("|x(y)" error)
+    ("x|(y)" error)
+    (xfail "x(|y)" "x |y ()" error)
+    (xfail "x(y|)" "x y (|)" error)
+    ("x(y)|" error)))
 
 (paredit-test 'paredit-forward
   '(("|" "|")