From c70f4643e1efc2ee395c424bfa8a62764ed58b95 Mon Sep 17 00:00:00 2001 From: "Jakob L. Kreuze" Date: Sat, 25 May 2019 14:29:51 -0400 Subject: Add tests for --dir-name and --file-name --- dired-rmjunk.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/dired-rmjunk.el b/dired-rmjunk.el index 876af98..199b6fd 100644 --- a/dired-rmjunk.el +++ b/dired-rmjunk.el @@ -77,6 +77,14 @@ does not contain a directory component." (if split-offset (cl-subseq path 0 (1+ split-offset))))) +(ert-deftest dired-rmjunk-test-dir-name () + (should (equal (dired-rmjunk--dir-name ".FRD/links.txt") + ".FRD/")) + (should (equal (dired-rmjunk--dir-name ".local/share/recently-used.xbel") + ".local/share/")) + (should (equal (dired-rmjunk--dir-name ".asy") + nil))) + (defun dired-rmjunk--file-name (path) "Return the file-name portion of PATH." (let ((split-offset (cl-position ?\/ path :from-end t))) @@ -85,5 +93,13 @@ does not contain a directory component." ;; If there's no directory component, `path' IS the file-name! path))) +(ert-deftest dired-rmjunk-test-file-name () + (should (equal (dired-rmjunk--file-name ".FRD/links.txt") + "links.txt")) + (should (equal (dired-rmjunk--file-name ".local/share/recently-used.xbel") + "recently-used.xbel")) + (should (equal (dired-rmjunk--file-name ".asy") + ".asy"))) + (provide 'dired-rmjunk) ;;; dired-rmjunk.el ends here -- cgit v1.3