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

Fix failing image-dired test

Browse source 
* test/lisp/image/image-dired-util-tests.el (ert-x, xdg): Require.
(image-dired-thumb-name/): Delete test.
(image-dired-thumb-name/standard)
(image-dired-thumb-name/image-dired)
(image-dired-thumb-name/per-directory): New tests.
This commit is contained in:
Stefan Kangas 2022-09-22 14:17:08 +02:00
parent f43914b4d0
commit fdfd7ef6f3
1 changed files with 22 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -20,21 +20,35 @@
;;; Code:
(require 'ert)
(require 'ert-x)
(require 'image-dired)
(require 'image-dired-util)
(require 'xdg)
(ert-deftest image-dired-thumb-name ()
(ert-deftest image-dired-thumb-name/standard ()
(let ((image-dired-thumbnail-storage 'standard))
(should (file-name-absolute-p (image-dired-thumb-name "foo.jpg")))
(should (equal (file-name-nondirectory (image-dired-thumb-name "foo.jpg"))
"4abfc97f9a5d3c4c519bfb23e4da8b90.png")))
(let ((image-dired-thumbnail-storage 'image-dired))
(should (file-name-absolute-p (image-dired-thumb-name "foo.jpg")))
(should (equal (file-name-nondirectory (image-dired-thumb-name "foo.jpg"))
"foo_5baffb8d7984b3088db58efd7d8909c5.thumb.jpg")))
(should (string-search (xdg-cache-home)
(image-dired-thumb-name "foo.jpg")))
(should (string-match (rx (in "0-9a-f") ".png")
(image-dired-thumb-name "foo.jpg")))))
(ert-deftest image-dired-thumb-name/image-dired ()
;; Avoid trying to create `image-dired-dir'.
(ert-with-temp-directory dir
(let ((image-dired-dir dir)
(image-dired-thumbnail-storage 'image-dired))
(should (file-name-absolute-p (image-dired-thumb-name "foo.jpg")))
(should (equal (file-name-nondirectory
;; The checksum is based on the directory name.
(image-dired-thumb-name "/some/path/foo.jpg"))
"foo_45fff7fcc4a0945679b7b11dec36a82d.thumb.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 (equal (file-name-nondirectory (image-dired-thumb-name "foo.jpg"))
(should (equal (file-name-nondirectory
(image-dired-thumb-name "foo.jpg"))
"foo.thumb.jpg"))))
;;; image-dired-util-tests.el ends here