diff options
Diffstat (limited to 'dired-rmjunk.el')
| -rw-r--r-- | dired-rmjunk.el | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/dired-rmjunk.el b/dired-rmjunk.el index c3bc929..c1806f2 100644 --- a/dired-rmjunk.el +++ b/dired-rmjunk.el @@ -127,14 +127,6 @@ 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))) @@ -143,14 +135,6 @@ 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"))) - (defun dired-rmjunk--directories-in-patterns (&optional patterns) (let ((patterns (or patterns dired-rmjunk-patterns))) (cl-remove-duplicates @@ -158,22 +142,5 @@ does not contain a directory component." (map 'list #'dired-rmjunk--dir-name patterns)) :test #'string=))) -(ert-deftest dired-rmjunk-test-directories-in-patterns () - (should (equal (dired-rmjunk--directories-in-patterns - '(".local/share/recently-used.xbel" - "Desktop" - ".thumbnails")) - '(".local/share/"))) - (should (equal (dired-rmjunk--directories-in-patterns - '(".distlib" - ".bazaar" - ".bzr.log")) - nil)) - (should (equal (dired-rmjunk--directories-in-patterns - '(".local/share/gegl-0.2" - ".FRD/app.log" - ".FRD/links.txt")) - '(".local/share/" ".FRD/")))) - (provide 'dired-rmjunk) ;;; dired-rmjunk.el ends here |