Test paredit-forward-kill-word, paredit-backward-kill-word.

Turns up some nasty edge cases I missed, oops.

1 files changed, 26 insertions, 0 deletions

diff --git a/test.el b/test.el
index 3930e43..8435d87 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))