Add some slurp tests with characters and strings.

1 files changed, 34 insertions, 2 deletions

diff --git a/test.el b/test.el
index c42f018..235fb81 100644
--- a/test.el
+++ b/test.el
@@ -1254,7 +1254,23 @@ Four arguments: the paredit command, the text of the buffer
     ("\"\"| \"\"" error)
     ("\"\" |\"\"" error)
     ;; ("\"\" \"|\"" error)             ;++ Urk...
-    ("\"\" \"\"|" error)))
+    ("\"\" \"\"|" error)
+    ("|(#\\x) y" error)
+    ("(|#\\x) y" "(|#\\x y)")
+    ("(#|\\x) y" "(#|\\x y)")
+    ("(#\\|x) y" "(#\\|x y)")
+    ("(#\\x|) y" "(#\\x| y)")
+    ("(#\\x)| y" error)
+    ("(#\\x) |y" error)
+    ("(#\\x) y|" error)
+    ("|(\"x\") y" error)
+    ("(|\"x\") y" "(|\"x\" y)")
+    ("(\"|x\") y" "(\"|x\" y)" "(\"|x y\")")
+    ("(\"x|\") y" "(\"x|\" y)" "(\"x| y\")")
+    ("(\"x\"|) y" "(\"x\"| y)")
+    ("(\"x\")| y" error)
+    ("(\"x\") |y" error)
+    ("(\"x\") y|" error)))
 
 (paredit-test 'paredit-backward-slurp-sexp
   '(("|" error)
@@ -1303,7 +1319,23 @@ Four arguments: the paredit command, the text of the buffer
     ("\"\"| \"\"" error)
     ("\"\" |\"\"" error)
     ("\"\" \"|\"" "\"\\\"\\\"|\"")
-    ("\"\" \"\"|" error)))
+    ("\"\" \"\"|" error)
+    ("|x (#\\y)" error)
+    ("x| (#\\y)" error)
+    ("x |(#\\y)" error)
+    ("x (|#\\y)" "(x |#\\y)")
+    ("x (#|\\y)" "(x #|\\y)")
+    ("x (#\\|y)" "(x #\\|y)")
+    ("x (#\\y|)" "(x #\\y|)")
+    ("x (#\\y)|" error)
+    ("|x (\"y\")" error)
+    ("x| (\"y\")" error)
+    ("x |(\"y\")" error)
+    ("x (|\"y\")" "(x |\"y\")")
+    ("x (\"|y\")" "(x \"|y\")" "(\"x |y\")")
+    ("x (\"y|\")" "(x \"y|\")" "(\"x y|\")")
+    ("x (\"y\"|)" "(x \"y\"|)")
+    ("x (\"y\")|" error)))
 
 (defun paredit-canary-indent-method (state indent-point normal-indent)
   (check-parens)