[nongnu] elpa/paredit 568d4d48ef 5/7: More slurpage edge cases.

[ELPA Syncer]

branch: elpa/paredit
commit 568d4d48efbc63898ae4658f77d1151cc4f8a530
Author: Taylor R Campbell <campbell+paredit@mumble.net>
Commit: Taylor R Campbell <campbell+paredit@mumble.net>

    More slurpage edge cases.
---
 test.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test.el b/test.el
index 6b7dbea67b..5a1955c67d 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)