From 84e8ccd2ae3e2d9033533cdd4ce69fb254b20067 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 30 Nov 2020 16:06:29 +0000 Subject: Add some examples of slurping edge cases that we should handle. Derived from suggestion by Jonathon McKitrick . --- test.el | 33 +++++++++++++++++++++++++++++++-- 1 file changed, 31 insertions(+), 2 deletions(-) (limited to 'test.el') diff --git a/test.el b/test.el index d37d92f..539f8b2 100644 --- a/test.el +++ b/test.el @@ -1287,7 +1287,21 @@ Four arguments: the paredit command, the text of the buffer ("(\"x\"|) y" "(\"x\"| y)") ("(\"x\")| y" error) ("(\"x\") |y" error) - ("(\"x\") y|" error))) + ("(\"x\") y|" error) + ("|(x)y" error) + (xfail "(|x)y" "(|x y)" error) + (xfail"(x|)y" "(x| y)" error) + ("(x)|y" error) + ("(x)y|" error) + ("|(x) ;c\ny" error) + (xfail "(|x) ;c\ny" "(|x ;c\n y)" error) + (xfail "(x|) ;c\ny" "(x| ;c\n y)" error) + ("(x)| ;c\ny" error) + ("(x) |;c\ny" error) + ("(x) ;|c\ny" error) + ("(x) ;c|\ny" error) + ("(x) ;c\n|y" error) + ("(x) ;c\ny|" error))) (paredit-test 'paredit-backward-slurp-sexp '(("|" error) @@ -1352,7 +1366,22 @@ Four arguments: the paredit command, the text of the buffer ("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) + (xfail "x(|y)" "(x |y)" error) + (xfail "x(y|)" "(x y|)" error) + ("x(y)|" error) + ("|x ;c\n(y)" error) + ("x| ;c\n(y)" error) + ("x | ;c\n(y)" error) + ("x |;c\n(y)" error) + ("x ;|c\n(y)" error) + ("x ;c|\n(y)" error) + ("x ;c\n|(y)" error) + (xfail "x ;c\n(|y)" "(x ;c\n |y)" error) + (xfail "x ;c\n(y|)" "(x ;c\n y|)" error) + ("x ;c\n(y)|" error))) (let ((current-prefix-arg 2)) (paredit-test 'paredit-forward-slurp-sexp -- cgit v1.2.1