From 146a43469c968dad01b75aca479c4938d89ee8e4 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Tue, 9 Jul 2013 19:24:04 +0000 Subject: Add some slurp tests with characters and strings. --- test.el | 36 ++++++++++++++++++++++++++++++++++-- 1 file changed, 34 insertions(+), 2 deletions(-) (limited to 'test.el') 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) -- cgit v1.2.1