[nongnu] elpa/paredit 928fb08262 2/3: Test paredit-forward-kill-word, paredit-backward-kill-word.

[ELPA Syncer]

branch: elpa/paredit
commit 928fb082624e6b78040fb1aec9fe82694989d58c
Author: Taylor R Campbell <campbell@paredit.org>
Commit: Taylor R Campbell <campbell@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))