From 4723fb37b2be84f6ccaac640f33cff893cb9bc3e Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 11 Apr 2011 22:52:40 +0000 Subject: 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(-) (limited to 'test.el') 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)|") + ("(#\\|])" "(#\\])|") + ("(#\\| )" "(#\\ )|") + ("(#\\|\")" "(#\\\")|") ("(\"|\")" "(\")|\")") ("(\"|\")" "(\")|\")"))) -- cgit v1.2.1