[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/paredit 427d8e1 160/224: Add a pile of `paredit-backward-b
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/paredit 427d8e1 160/224: Add a pile of `paredit-backward-barf-sexp' tests. |
Date: |
Sat, 7 Aug 2021 09:22:41 -0400 (EDT) |
branch: elpa/paredit
commit 427d8e1f74e828cb0e9231f1a224fdcd40afde05
Author: Taylor R Campbell <campbell@mumble.net>
Commit: Taylor R Campbell <campbell@mumble.net>
Add a pile of `paredit-backward-barf-sexp' tests.
Still need forward barfage tests, and any slurpage tests.
---
test.el | 113 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 113 insertions(+)
diff --git a/test.el b/test.el
index f99cd9a..7d12283 100644
--- a/test.el
+++ b/test.el
@@ -625,6 +625,119 @@ Four arguments: the paredit command, the text of the
buffer
(";f\n(b\n |z)\n" ";f\n(b\n |)\n" ";f\n(b\n |)\n")
(";f\n(b\n z|)\n" ";f\n(b\n z|)\n")))
+(paredit-test 'paredit-backward-barf-sexp
+ '(("|(fo)" error)
+ ;++ I think these are wrong. There should be a space.
+ ("(|fo)" "|fo()" error)
+ ("(f|o)" "f|o()" error)
+ ("(fo|)" "fo(|)" "fo(|)")
+ ("(fo)|" error)
+
+ ("|(fo (ba bz qx) zt)" error)
+ ("(|fo (ba bz qx) zt)" "|fo ((ba bz qx) zt)" error)
+ ("(f|o (ba bz qx) zt)" "f|o ((ba bz qx) zt)" error)
+ ("(fo| (ba bz qx) zt)" "fo| ((ba bz qx) zt)" error)
+ ("(fo |(ba bz qx) zt)"
+ "fo (|(ba bz qx) zt)"
+ "fo |(ba bz qx) (zt)"
+ error)
+ ("(fo (|ba bz qx) zt)"
+ "(fo |ba (bz qx) zt)"
+ "fo (|ba (bz qx) zt)"
+ "fo |ba ((bz qx) zt)"
+ error)
+ ("(fo (b|a bz qx) zt)"
+ "(fo b|a (bz qx) zt)"
+ "fo (b|a (bz qx) zt)"
+ "fo b|a ((bz qx) zt)"
+ error)
+ ("(fo (ba| bz qx) zt)"
+ "(fo ba| (bz qx) zt)"
+ "fo (ba| (bz qx) zt)"
+ "fo ba| ((bz qx) zt)"
+ error)
+ ("(fo (ba |bz qx) zt)"
+ "(fo ba (|bz qx) zt)"
+ "(fo ba |bz (qx) zt)"
+ "fo (ba |bz (qx) zt)"
+ "fo ba (|bz (qx) zt)"
+ "fo ba |bz ((qx) zt)"
+ error)
+ ("(fo (ba b|z qx) zt)"
+ "(fo ba (b|z qx) zt)"
+ "(fo ba b|z (qx) zt)"
+ "fo (ba b|z (qx) zt)"
+ "fo ba (b|z (qx) zt)"
+ "fo ba b|z ((qx) zt)"
+ error)
+ ("(fo (ba bz| qx) zt)"
+ "(fo ba (bz| qx) zt)"
+ "(fo ba bz| (qx) zt)"
+ "fo (ba bz| (qx) zt)"
+ "fo ba (bz| (qx) zt)"
+ "fo ba bz| ((qx) zt)"
+ error)
+
+ ("(fo (ba bz |qx) zt)"
+ "(fo ba (bz |qx) zt)"
+ "(fo ba bz (|qx) zt)"
+ "(fo ba bz |qx() zt)" ;++ Should have a space.
+ "fo (ba bz |qx() zt)"
+ "fo ba (bz |qx() zt)"
+ "fo ba bz (|qx() zt)"
+ "fo ba bz |qx(() zt)"
+ error)
+ ("(fo (ba bz |qx) zt)"
+ "(fo ba (bz |qx) zt)"
+ "(fo ba bz (|qx) zt)"
+ "(fo ba bz |qx() zt)"
+ "fo (ba bz |qx() zt)"
+ "fo ba (bz |qx() zt)"
+ "fo ba bz (|qx() zt)"
+ "fo ba bz |qx(() zt)"
+ error)
+ ("(fo (ba bz q|x) zt)"
+ "(fo ba (bz q|x) zt)"
+ "(fo ba bz (q|x) zt)"
+ "(fo ba bz q|x() zt)"
+ "fo (ba bz q|x() zt)"
+ "fo ba (bz q|x() zt)"
+ "fo ba bz (q|x() zt)"
+ "fo ba bz q|x(() zt)"
+ error)
+ ("(fo (ba bz qx|) zt)"
+ "(fo ba (bz qx|) zt)"
+ "(fo ba bz (qx|) zt)"
+ "(fo ba bz qx(|) zt)"
+ "(fo ba bz qx(|) zt)")
+ ("(fo (ba bz qx)| zt)"
+ "fo ((ba bz qx)| zt)"
+ "fo (ba bz qx)| (zt)"
+ error)
+ ("(fo (ba bz qx) |zt)"
+ "fo ((ba bz qx) |zt)"
+ "fo (ba bz qx) (|zt)"
+ "fo (ba bz qx) |zt()"
+ error)
+ ("(fo (ba bz qx) z|t)"
+ "fo ((ba bz qx) z|t)"
+ "fo (ba bz qx) (z|t)"
+ "fo (ba bz qx) z|t()"
+ error)
+ ("(fo (ba bz qx) zt|)"
+ "fo ((ba bz qx) zt|)"
+ "fo (ba bz qx) (zt|)"
+ "fo (ba bz qx) zt(|)"
+ "fo (ba bz qx) zt(|)")
+ ("(fo (ba bz qx) zt)|" error)
+
+ ;++ Test interaction with comments...
+
+ ("\"|\"" error)
+ ("\"|xy\"" error) ;++ Could be done. Why not?
+ ("\"x|y\"" error)
+ ("\"xy|\"" error)))
+
(defun paredit-canary-indent-method (state indent-point normal-indent)
(check-parens)
nil)
- [nongnu] elpa/paredit 135c940 068/224: Count carefully at end of buffer in `paredit-count-sexps-forward'., (continued)
- [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, 2021/08/07
- [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 <=
- [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
- [nongnu] elpa/paredit da5b1e0 183/224: Flesh out paredit-wrap-... tests a little., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 3ab28ec 185/224: Revert "Bind M-[ to paredit-wrap-square.", ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit c33e134 186/224: Fix reference to `backward-down-list', which is no more., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit e775e43 187/224: Tweak whitespace in `paredit-split-sexp'. No functional change., ELPA Syncer, 2021/08/07
- [nongnu] elpa/paredit 66d6374 189/224: Tweak HTML output a little more., ELPA Syncer, 2021/08/07