diff options
Diffstat (limited to '')
| -rw-r--r-- | users/wpcarro/emacs/pkgs/fs/fs.el (renamed from users/wpcarro/emacs/.emacs.d/wpc/fs.el) | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/users/wpcarro/emacs/.emacs.d/wpc/fs.el b/users/wpcarro/emacs/pkgs/fs/fs.el index c303b2353956..125c1f1007bd 100644 --- a/users/wpcarro/emacs/.emacs.d/wpc/fs.el +++ b/users/wpcarro/emacs/pkgs/fs/fs.el @@ -31,8 +31,6 @@ Will error for inputs with a trailing slash." fs-ensure-dir) (f-touch path)) -(f-dirname "/tmp/a/b/file.txt") - (defun fs-ensure-dir (path) "Ensure that a directory and its ancestor directories in `PATH' exist." (->> path @@ -45,25 +43,5 @@ Should behave similarly in spirit to the Unix command, ls. If `FULL-PATH?' is set, return the full-path of the files." (-drop 2 (directory-files dir full-path?))) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Tests -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(ert-deftest fs-test-ensure-file () - (let ((file "/tmp/file/a/b/c/file.txt")) - ;; Ensure this file doesn't exist first to prevent false-positives. - (f-delete file t) - (fs-ensure-file file) - (should (and (f-exists? file) - (f-file? file))))) - -(ert-deftest fs-test-ensure-dir () - (let ((dir "/tmp/dir/a/b/c")) - ;; Ensure the directory doesn't exist. - (f-delete dir t) - (fs-ensure-dir dir) - (should (and (f-exists? dir) - (f-dir? dir))))) - (provide 'fs) ;;; fs.el ends here |