summaryrefslogtreecommitdiff
path: root/test.el
diff options
context:
space:
mode:
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