summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test.el12
1 files changed, 12 insertions, 0 deletions
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)