Add and fix some tests for `(' and `)' while in a character literal.

Ignore-this: 5b769eee2b831aefae5f7440a4ef2775

darcs-hash:20110411225240-00fcc-dd7e564acf7c93f087c94d1e16f18650504fe89f

1 files 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)|")
+    ("(#\\|])" "(#\\])|")
+    ("(#\\| )" "(#\\ )|")
+    ("(#\\|\")" "(#\\\")|")
     ("(\"|\")" "(\")|\")")
     ("(\"|\")" "(\")|\")")))