test: add tests for #821

Fixes #821
Fuco1 · Apr 3, 2024 · bea8f4e · bea8f4e
1 parent aacc3ce
commit bea8f4e
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/test/smartparens-ess-test.el b/test/smartparens-ess-test.el
@@ -82,3 +82,18 @@ kill it as a word/symbol"
         (sp-test--ess-mode)
       (execute-kbd-macro "\\(foo")
       (sp-buffer-equals "\"\\(foo|\\)\""))))
+
+;; #821
+(sp-ert-deftest sp-test-ess-backwards-kill-word
+  :mode 'ess-r-mode
+  (sp-test-complex "c(\"test\", \"one\")|"
+    (sp-backward-kill-word 1)
+    "c(\"test\", \"|\")")
+  (sp-test-complex "c(\"test\", \"one\"|)"
+    (sp-backward-kill-word 1)
+    "c(\"test\", \"|\")")
+  (sp-test-complex "ggplot(mtcars, aes(mpg, am)) +
+  facet_wrap|()"
+    (sp-backward-kill-word 1)
+    "ggplot(mtcars, aes(mpg, am)) +
+  facet_|()"))