Add character deletion tests to verify the new `paredit-in-char-p'.

Ignore-this: 2f38714b2d3133e6ae10fc861fc6bbad

darcs-hash:20110411230236-00fcc-5cdf1cbe0a085f72a89a554dc81ddc2e9794ac66

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