From b558286e191bf2f9c0c0d3d8c4d2acc0134b5407 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 11 Apr 2011 23:02:36 +0000 Subject: Add character deletion tests to verify the new `paredit-in-char-p'. Ignore-this: 2f38714b2d3133e6ae10fc861fc6bbad darcs-hash:20110411230236-00fcc-5cdf1cbe0a085f72a89a554dc81ddc2e9794ac66 --- test.el | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'test.el') diff --git a/test.el b/test.el index c237418..179527f 100644 --- a/test.el +++ b/test.el @@ -225,7 +225,11 @@ Four arguments: the paredit command, the text of the buffer (";foo|\n(bar);baz\n" ";foo|(bar);baz\n") (";foo|\n(bar);baz" ";foo|(bar);baz") (";foo|\n(bar ;baz\n quux)\n" error) - (";foo|\n(bar ;baz\n quux)" error))) + (";foo|\n(bar ;baz\n quux)" error) + ("|\\\\\\\\" "|\\\\" "|" error) + ("\\\\|\\\\" "\\\\|" error) + ("(|\\\\\\\\)" "(|\\\\)" "(|)" "|" error) + ("(\\\\|\\\\)" "(\\\\|)" "(\\\\|)"))) (paredit-test 'paredit-backward-delete '(("fo|o" "f|o") @@ -238,7 +242,11 @@ Four arguments: the paredit command, the text of the buffer (";foo\n|(bar);baz\n" ";foo|(bar);baz\n") (";foo\n|(bar);baz" ";foo|(bar);baz") (";foo\n|(bar ;baz\n quux)\n" error) - (";foo\n|(bar ;baz\n quux)" error))) + (";foo\n|(bar ;baz\n quux)" error) + ("\\\\\\\\|" "\\\\|" "|" error) + ("\\\\|\\\\" "|\\\\" error) + ("(\\\\\\\\|)" "(\\\\|)" "(|)" "|" error) + ("(\\\\|\\\\)" "(|\\\\)" "(|\\\\)"))) (dolist (command '(paredit-delete-region paredit-kill-region)) ;++ Need to check whether `paredit-kill-region' updates the kill ring -- cgit v1.2.1