[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/paredit 239e065 136/224: Expand `paredit-kill' tests a lit
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/paredit 239e065 136/224: Expand `paredit-kill' tests a little. |
Date: |
Sat, 7 Aug 2021 09:22:36 -0400 (EDT) |
branch: elpa/paredit
commit 239e065218996f7f8ac077d7743e6c3b2d5199ef
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>
Expand `paredit-kill' tests a little.
Ignore-this: 24b37ef662a653c2dfc7c6bb81e9f493
Still a long way from being remotely satisfactory.
darcs-hash:20110411230018-00fcc-df5e070b386a549fce8ddb38db6aa27983e70893
---
test.el | 53 +++++++++++++++++++++++++++++++++++++++++++++++------
1 file changed, 47 insertions(+), 6 deletions(-)
diff --git a/test.el b/test.el
index ad33488..c237418 100644
--- a/test.el
+++ b/test.el
@@ -240,12 +240,6 @@ Four arguments: the paredit command, the text of the buffer
(";foo\n|(bar ;baz\n quux)\n" error)
(";foo\n|(bar ;baz\n quux)" error)))
-;++ Need lots more tests for this, the hairiest paredit command...
-
-(paredit-test 'paredit-kill
- '((";foo|\n(bar)\n" ";foo|(bar)\n")
- (";foo|\n(bar\n baz)\n" error)))
-
(dolist (command '(paredit-delete-region paredit-kill-region))
;++ Need to check whether `paredit-kill-region' updates the kill ring
;++ correctly.
@@ -265,6 +259,53 @@ Four arguments: the paredit command, the text of the buffer
("(foo bar| baz ;quux ()_\n zot)"
"(foo bar|\n zot)"))))
+;;; The hairiest paredit command: paredit-kill.
+
+;++ Need to check whether `paredit-kill' updates the kill ring.
+
+(paredit-test 'paredit-kill
+ '(("| \n " "|\n " "| " "|" error)
+ ("(| )" "(|)" "(|)")
+ ("( | )" "( |)" "( |)")
+ ("|(\n)" "|" error)
+ ("|(\n)\n" "|\n" "|" error)
+ ("|\"\n\"" "|" error)
+ ("|\"\n\"\n" "|\n" "|" error)
+ ("(a |(b) (c)\n (d) (e))"
+ "(a |\n (d) (e))"
+ "(a | (d) (e))"
+ "(a |)"
+ "(a |)")
+ ("(a (|(b) (c)\n (d) (e)) (f))"
+ "(a (|\n (d) (e)) (f))"
+ "(a (| (d) (e)) (f))"
+ "(a (|) (f))"
+ "(a (|) (f))")
+ ("(a |((b) (c)\n (d) (e)) (f))"
+ "(a | (f))"
+ "(a |)"
+ "(a |)")
+ ("(a |\"(b) (c)\n ) { ;;;; \n\n\n(d)( (e);\" (f))"
+ "(a | (f))"
+ "(a |)"
+ "(a |)")
+ ("x|(\n)(z)" "x|(z)" "x|" error)
+ ("x|\"\n\"(z)" "x|(z)" "x|" error)
+ ("(foo ;; |bar\n baz)"
+ "(foo ;; |\n baz)"
+ error)
+ ("(foo |;; bar\n baz)"
+ "(foo |\n baz)"
+ "(foo | baz)"
+ "(foo |)"
+ "(foo |)")
+ ("|(foo bar) ;baz" "|" error)
+ ("|(foo bar) ;baz\n" "|\n" "|" error)
+ ("|(foo\n bar) ;baz" "| ;baz" "|" error)
+ ("|(foo\n bar) ;baz\n" "| ;baz\n" "|\n" "|" error)
+ (";foo|\n(bar)\n" ";foo|(bar)\n" ";foo|\n" ";foo|" error)
+ (";foo|\n(bar\n baz)\n" error)))
+
(defun paredit-canary-indent-method (state indent-point normal-indent)
(check-parens)
nil)
- [nongnu] elpa/paredit ff2cbab 018/224: Bump version number: 21 -> 22 beta., (continued)
- [nongnu] elpa/paredit ff2cbab 018/224: Bump version number: 21 -> 22 beta., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 27a4b80 020/224: Fix indentation in definition of `paredit-initialize-comment-dwim'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit cd079c4 026/224: Bump copyright year., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 25e444c 056/224: Omit optional argument `yank-handler' in `paredit-kill-region'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 125b8b6 097/224: Fix docstring for `paredit-test-failure-function' in test.el., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 135c940 068/224: Count carefully at end of buffer in `paredit-count-sexps-forward'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 26ddb8a 076/224: Show point in `paredit-open-square' example., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit de2dc8e 127/224: Add some trivial tests for `paredit-wrap-sexp'., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 2463273 130/224: Add tests for region deletion across comment boundaries., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit d1b562b 133/224: Fix `paredit-backslash' within a character literal., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 239e065 136/224: Expand `paredit-kill' tests a little.,
ELPA Syncer <=
- [nongnu] elpa/paredit 9780ff5 150/224: Add CREDITS file from 2011-05-08. Needs some additions since then., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit e01d5d9 151/224: Add `megane' from a slightly newer list of credits, 2011-08-30., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 72b1fc7 152/224: Bump copyright year to 2013., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 2186c7e 155/224: Update URI references: nix paredit-23.el, add Git repository., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 427d8e1 160/224: Add a pile of `paredit-backward-barf-sexp' tests., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 758c896 170/224: Add some notes for version 24., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 4fdd1b7 172/224: In test.el, use (delete-char -1), not backward-delete-char., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 4c7ac6e 173/224: Avoid `backward-delete-char', which GNU Emacs 24 broke., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit db99ca6 176/224: Note `backward-delete-char' lossage in NEWS., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit aa26b48 181/224: Make sure M-? leaves space appropriately when there was none., ELPA Syncer, 2021/08/07