081742a07e
According to SourceGraph, this is unused, but I'm checking it in for historical purposes. Change-Id: I24bcb1c71a9f6de527bb54057cf13d01493c45bf Reviewed-on: https://cl.tvl.fyi/c/depot/+/6016 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com>
26 lines
873 B
EmacsLisp
26 lines
873 B
EmacsLisp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'ert)
|
|
(require 'fs)
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; 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)))))
|