diff options
| author | Taylor R Campbell <campbell@mumble.net> | 2011-04-11 23:02:36 +0000 |
|---|---|---|
| committer | Taylor R Campbell <campbell@mumble.net> | 2011-04-11 23:02:36 +0000 |
| commit | b558286e191bf2f9c0c0d3d8c4d2acc0134b5407 (patch) | |
| tree | 41123d885fbf53025f267809e3392a2321640e9e /test.el | |
| parent | 5558fd0a6d343a0ea0c35b4a64429eccb9af8e42 (diff) | |
Add character deletion tests to verify the new `paredit-in-char-p'.
Ignore-this: 2f38714b2d3133e6ae10fc861fc6bbad
darcs-hash:20110411230236-00fcc-5cdf1cbe0a085f72a89a554dc81ddc2e9794ac66
Diffstat (limited to 'test.el')
| -rw-r--r-- | test.el | 12 |
1 files changed, 10 insertions, 2 deletions
@@ -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 |