summaryrefslogtreecommitdiff
path: root/test.el
diff options
context:
space:
mode:
authorTaylor R Campbell <campbell@mumble.net>2011-04-11 23:02:36 +0000
committerTaylor R Campbell <campbell@mumble.net>2011-04-11 23:02:36 +0000
commitb558286e191bf2f9c0c0d3d8c4d2acc0134b5407 (patch)
tree41123d885fbf53025f267809e3392a2321640e9e /test.el
parent5558fd0a6d343a0ea0c35b4a64429eccb9af8e42 (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.el12
1 files changed, 10 insertions, 2 deletions
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