From 73e664e0fe2e7b7fa8b80f6833a2a27afa897b1e Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 9 Apr 2011 20:08:25 +0000 Subject: Add test for C-u ( with trailing comment and no trailing newline. Ignore-this: b8c951ba61e9e05e5f77c90e96353e23 Add comments about why these tests are slightly bogus. darcs-hash:20110409200825-00fcc-8ae65e3261bd36c970424a3dd88e07cb925a5044 --- test.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'test.el') diff --git a/test.el b/test.el index 62f8f61..e625175 100644 --- a/test.el +++ b/test.el @@ -108,6 +108,7 @@ Four arguments: the paredit command, the text of the buffer "(x (| ;y\n z)\n w)")))) (let ((current-prefix-arg '(4))) + ;++ Oops -- `C-u (' is like `M-4 (', not like `C-u M-('. (paredit-test-bracketed '((paredit-open-round ?\( ?\)) (paredit-open-square ?\[ ?\]) (paredit-open-curly ?\{ ?\}) @@ -117,7 +118,10 @@ Four arguments: the paredit command, the text of the buffer ("(x |;y\n z\n w)" "(x (| ;y\n z\n w))") ("foo |bar baz" "foo (|bar baz)") - ("foo\n|bar\nbaz\n;quux\n" "foo\n(|bar\n baz)\n;quux\n")))) + ;++ These tests are kinda bunk. It's not immediately clear to me + ;++ which is right: including or excluding the trailing comment. + ("foo\n|bar\nbaz\n;quux\n" "foo\n(|bar\n baz)\n;quux\n") + ("foo\n|bar\nbaz\n;; quux" "foo\n(|bar\n baz\n ;; quux\n )")))) (paredit-test-bracketed '((paredit-close-round ?\( ?\)) (paredit-close-square ?\[ ?\]) -- cgit v1.2.1