branch: elpa/paredit
commit 4723fb37b2be84f6ccaac640f33cff893cb9bc3e
Author: Taylor R Campbell <[email protected]>
Commit: Taylor R Campbell <[email protected]>
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)|")
+ ("(#\\|])" "(#\\])|")
+ ("(#\\| )" "(#\\ )|")
+ ("(#\\|\")" "(#\\\")|")
("(\"|\")" "(\")|\")")
("(\"|\")" "(\")|\")")))
