1 files changed, 47 insertions, 0 deletions
diff --git a/tests/test-dirvish-config-hard-delete-command.el b/tests/test-dirvish-config-hard-delete-command.el
new file mode 100644
index 000000000..eb12d2830
--- /dev/null
+++ b/tests/test-dirvish-config-hard-delete-command.el
@@ -0,0 +1,47 @@
+;;; test-dirvish-config-hard-delete-command.el --- Tests for cj/--dirvish-hard-delete-command -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; `cj/--dirvish-hard-delete-command' is the pure string builder behind the
+;; forced `sudo rm -rf' hard-delete bound to D in dirvish.  It shell-quotes
+;; every path and guards the list with `--' so a leading-dash or space-bearing
+;; filename can't be misread.  The interactive command (prompt + shell-command)
+;; is verified live, not here.
+
+;;; Code:
+
+(require 'ert)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'dirvish-config)
+
+(ert-deftest test-dirvish-config-hard-delete-command-multiple ()
+  "Normal: two paths are quoted and joined behind `sudo rm -rf -- '."
+  (should (equal (cj/--dirvish-hard-delete-command '("/tmp/a.txt" "/tmp/b.txt"))
+                 "sudo rm -rf -- /tmp/a.txt /tmp/b.txt")))
+
+(ert-deftest test-dirvish-config-hard-delete-command-single ()
+  "Boundary: a single path still carries the `--' option terminator."
+  (should (equal (cj/--dirvish-hard-delete-command '("/tmp/report.pdf"))
+                 "sudo rm -rf -- /tmp/report.pdf")))
+
+(ert-deftest test-dirvish-config-hard-delete-command-spaces-and-dash ()
+  "Boundary: a path with spaces is shell-quoted, and `--' protects a
+leading-dash filename from being read as an option."
+  (let ((cmd (cj/--dirvish-hard-delete-command
+              '("/tmp/my file.txt" "/tmp/-rf"))))
+    ;; `--' precedes the paths so `-rf' is a target, not an option.
+    (should (string-prefix-p "sudo rm -rf -- " cmd))
+    ;; the space-bearing path is quoted (not a bare " " splitting the args).
+    (should (string-match-p (regexp-quote (shell-quote-argument "/tmp/my file.txt"))
+                            cmd))
+    (should (string-match-p (regexp-quote (shell-quote-argument "/tmp/-rf"))
+                            cmd))))
+
+(ert-deftest test-dirvish-config-hard-delete-command-empty ()
+  "Error: an empty list yields just the prefix (no targets) -- the
+interactive command never reaches here, guarding `No file at point' first."
+  (should (equal (cj/--dirvish-hard-delete-command '())
+                 "sudo rm -rf -- ")))
+
+(provide 'test-dirvish-config-hard-delete-command)
+;;; test-dirvish-config-hard-delete-command.el ends here