blob: eb12d28303a0d84d2e60c1b88f58bb97f9c2989e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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
|
