From 2ecb5f0dcf9110f8a713bac687e5719890c09d37 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell+paredit@mumble.net>
Date: Mon, 30 Nov 2020 16:31:07 +0000
Subject: Test some backward-slurp screw cases.

---
 test.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'test.el')

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
   '(("|" "|")
-- 
cgit v1.2.1