[nongnu] elpa/paredit 4723fb3 132/224: Add and fix some tests for `(' and `)' while in a character literal.

[ELPA Syncer]

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

    Add and fix some tests for `(' and `)' while in a character literal.
    
    Ignore-this: 5b769eee2b831aefae5f7440a4ef2775
    
    darcs-hash:20110411225240-00fcc-dd7e564acf7c93f087c94d1e16f18650504fe89f
---
 test.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/test.el b/test.el
index 3e0770b..99434f5 100644
--- a/test.el
+++ b/test.el
@@ -98,7 +98,8 @@ Four arguments: the paredit command, the text of the buffer
     ("(foo |\"bar\" baz)" "(foo (|) \"bar\" baz)")
     ("(foo \"bar\"| baz)" "(foo \"bar\" (|) baz)")
     ("foo|" "foo (|)")
-    ("|foo" "(|) foo")))
+    ("|foo" "(|) foo")
+    ("\\|(" "\\|(")))
 
 (let ((current-prefix-arg 1))
   (paredit-test-bracketed '((paredit-open-round ?\( ?\))
@@ -129,11 +130,12 @@ Four arguments: the paredit command, the text of the 
buffer
 (paredit-test-bracketed '((paredit-close-round ?\( ?\))
                           (paredit-close-square ?\[ ?\])
                           (paredit-close-curly ?\{ ?\})
-                          (paredit-close-angled ?\< ?\>))
-  '(("(#\\|x)" "(#\\|x)")
-    ("(#\\|])" "(#\\|])")
-    ("(#\\| )" "(#\\| )")
-    ("(#\\|\")" "(#\\|\")")
+                          ;; (paredit-close-angled ?\< ?\>)
+                          )
+  '(("(#\\|x)" "(#\\x)|")
+    ("(#\\|])" "(#\\])|")
+    ("(#\\| )" "(#\\ )|")
+    ("(#\\|\")" "(#\\\")|")
     ("(\"|\")" "(\")|\")")
     ("(\"|\")" "(\")|\")")))