From 568d4d48efbc63898ae4658f77d1151cc4f8a530 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell+paredit@mumble.net>
Date: Mon, 30 Nov 2020 17:37:44 +0000
Subject: More slurpage edge cases.

---
 test.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'test.el')

diff --git a/test.el b/test.el
index 6b7dbea..5a1955c 100644
--- a/test.el
+++ b/test.el
@@ -1282,6 +1282,7 @@ Four arguments: the paredit command, the text of the buffer
     ("\"\" |\"\"" error)
     ;; ("\"\" \"|\"" error)             ;++ Urk...
     ("\"\" \"\"|" error)
+
     ("|(#\\x) y" error)
     ("(|#\\x) y" "(|#\\x y)")
     ("(#|\\x) y" "(#|\\x y)")
@@ -1298,6 +1299,11 @@ Four arguments: the paredit command, the text of the buffer
     ("(\"x\")| y" error)
     ("(\"x\") |y" error)
     ("(\"x\") y|" error)
+    ("|()y" error)
+    ("(|)y" "(|y)")
+    (xfail "(|y)" error)
+    ("()|y" error)
+    ("()y|" error)
     ("|(x)y" error)
     (xfail "(|x)y" "(|x y)" error)
     (xfail"(x|)y" "(x| y)" error)
@@ -1361,6 +1367,7 @@ Four arguments: the paredit command, the text of the buffer
     ("\"\" |\"\"" error)
     ("\"\" \"|\"" "\"\\\"\\\"|\"")
     ("\"\" \"\"|" error)
+
     ("|x (#\\y)" error)
     ("x| (#\\y)" error)
     ("x |(#\\y)" error)
@@ -1377,6 +1384,11 @@ Four arguments: the paredit command, the text of the buffer
     ("x (\"y|\")" "(x \"y|\")" "(\"x y|\")")
     ("x (\"y\"|)" "(x \"y\"|)")
     ("x (\"y\")|" error)
+    ("|x()" error)
+    ("x|()" error)
+    ("x(|)" "(x|)")
+    (xfail "(x|)" error)
+    ("x()|" error)
     ("|x(y)" error)
     ("x|(y)" error)
     (xfail "x(|y)" "(x |y)" error)
-- 
cgit v1.2.1