branch: elpa/paredit
commit 928fb082624e6b78040fb1aec9fe82694989d58c
Author: Taylor R Campbell <campb...@paredit.org>
Commit: Taylor R Campbell <campb...@paredit.org>
Test paredit-forward-kill-word, paredit-backward-kill-word.
Turns up some nasty edge cases I missed, oops.
---
test.el | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
diff --git a/test.el b/test.el
index 3930e4369b..8435d87718 100644
--- a/test.el
+++ b/test.el
@@ -1613,5 +1613,31 @@ Four arguments: the paredit command, the text of the
buffer
"\n(f xy\n z\n w)\n;;;|T "
"\n(f xy\n z\n w)\n;;;|T "))))
+(paredit-test 'paredit-forward-kill-word
+ '(("|(hello \"world\")"
+ "(| \"world\")"
+ "( \"|\")"
+ error)
+ ("(hello| \"world\")"
+ "(hello \"|\")")
+ ("(hello \"world|\")" error)
+ ("(hello \"world\"|)" error)
+ ("(hello \"world\")|" error)))
+
+(paredit-test 'paredit-backward-kill-word
+ '(("(hello \"world\")|"
+ "(hello \"|\")"
+ "(|\"\")"
+ ;; error or nop -- XXX broken
+ )
+ ("(hello \"|world\")"
+ "(|\"world\")"
+ ;; error or nop -- XXX broken
+ )
+ ("(|hello \"world\")"
+ ;; error or nop -- XXX broken
+ )
+ ("|(hello \"world\")" "|(hello \"world\")")))
+
(if (> paredit-test-nfailures 0)
(error "%S paredit tests failed" paredit-test-nfailures))
