[nongnu] elpa/paredit b558286 138/224: Add character deletion tests to verify the new `paredit-in-char-p'.

[ELPA Syncer]

branch: elpa/paredit
commit b558286e191bf2f9c0c0d3d8c4d2acc0134b5407
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>

    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(-)

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