diff options
| -rw-r--r-- | dired-rmjunk.el | 16 |
1 files changed, 16 insertions, 0 deletions
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 |