From 928fb082624e6b78040fb1aec9fe82694989d58c Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sat, 26 Nov 2022 01:42:34 +0000 Subject: 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 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)) -- cgit v1.2.1