procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix image-dired-utils-tests after 83b6a8a514 (bug#61394)

Browse source
This commit is contained in:
Manuel Giraud 2023-07-27 23:26:30 +02:00 • committed by Eli Zaretskii
parent 36b6124d81
commit 5efc7b22ce
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
test/lisp/image/image-dired-util-tests.el
View file

@ -57,20 +57,23 @@
"jpg")))))
(ert-deftest image-dired-thumb-name/per-directory ()
(let ((image-dired-thumbnail-storage 'per-directory))
(should (file-name-absolute-p (image-dired-thumb-name "foo.jpg")))
(should (file-name-absolute-p (image-dired-thumb-name "/tmp/foo.jpg")))
(let ((image-dired-thumbnail-storage 'per-directory)
(rel-path "foo.jpg")
(abs-path "/tmp/foo.jpg")
(hash-name (concat (sha1 "foo.jpg") ".jpg")))
(should (file-name-absolute-p (image-dired-thumb-name rel-path)))
(should (file-name-absolute-p (image-dired-thumb-name abs-path)))
(should (equal
(file-name-nondirectory (image-dired-thumb-name "foo.jpg"))
(file-name-nondirectory (image-dired-thumb-name "/tmp/foo.jpg"))))
(file-name-nondirectory (image-dired-thumb-name rel-path))
(file-name-nondirectory (image-dired-thumb-name abs-path))))
;; The cdr below avoids the system dependency in the car of the
;; list returned by 'file-name-split': it's "" on Posix systems,
;; but the drive letter on MS-Windows.
(should (equal (cdr (file-name-split
(image-dired-thumb-name "/tmp/foo.jpg")))
'("tmp" ".image-dired" "foo.jpg.thumb.jpg")))
(image-dired-thumb-name abs-path)))
(list "tmp" ".image-dired" hash-name)))
(should (equal (file-name-nondirectory
(image-dired-thumb-name "foo.jpg"))
"foo.jpg.thumb.jpg"))))
(image-dired-thumb-name rel-path))
hash-name))))
;;; image-dired-util-tests.el ends here