blob: 9e1f4aa4a1ab49a92d779fe8ebdc8269a870e23d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
;;; test-system-lib--completion-file-annotator.el --- Tests for cj/completion-file-annotator -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for `cj/completion-file-annotator', the annotation-function
;; factory used to annotate file-basename completion pickers with size and
;; modification date.
;;; Code:
(require 'ert)
(require 'system-lib)
(ert-deftest test-system-lib-completion-file-annotator-normal-file-shows-size-and-date ()
"Normal: a regular file is annotated with a size and an ISO date."
(let ((file (make-temp-file "cfa-test-" nil ".txt" "hello world")))
(unwind-protect
(let* ((annotate (cj/completion-file-annotator
(lambda (_cand) file)))
(result (funcall annotate "anything")))
(should (stringp result))
;; file-size-human-readable of 11 bytes is "11"
(should (string-match-p "11" result))
;; ISO date for the file's mtime
(should (string-match-p
(format-time-string "%Y-%m-%d"
(file-attribute-modification-time
(file-attributes file)))
result)))
(delete-file file))))
(ert-deftest test-system-lib-completion-file-annotator-boundary-directory-marked-dir ()
"Boundary: a directory candidate is annotated with the `dir' marker."
(let ((dir (make-temp-file "cfa-dir-" t)))
(unwind-protect
(let* ((annotate (cj/completion-file-annotator (lambda (_c) dir)))
(result (funcall annotate "d")))
(should (stringp result))
(should (string-match-p "dir" result)))
(delete-directory dir t))))
(ert-deftest test-system-lib-completion-file-annotator-error-nil-path-returns-nil ()
"Error: a candidate whose path-resolver returns nil yields no annotation."
(let ((annotate (cj/completion-file-annotator (lambda (_c) nil))))
(should (null (funcall annotate "missing")))))
(ert-deftest test-system-lib-completion-file-annotator-error-missing-file-returns-nil ()
"Error: a path that does not exist yields no annotation."
(let* ((path (expand-file-name "definitely-not-here-12345.txt"
temporary-file-directory))
(annotate (cj/completion-file-annotator (lambda (_c) path))))
(should (null (funcall annotate "gone")))))
(provide 'test-system-lib--completion-file-annotator)
;;; test-system-lib--completion-file-annotator.el ends here
|
