[nongnu] elpa/paredit 73e664e 119/224: Add test for C-u ( with trailing comment and no trailing newline.

[ELPA Syncer]

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

    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(-)

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 ?\[ ?\])