Adjust exif-tests.el to new interface
This commit is contained in:
parent
131b91c7b9
commit
0faf3496ab
1 changed files with 1 additions and 1 deletions
|
@ -36,7 +36,7 @@
|
|||
:value))
|
||||
|
||||
(ert-deftest test-exif-parse ()
|
||||
(let ((exif (exif-parse (test-image-file "black.jpg"))))
|
||||
(let ((exif (exif-parse-file (test-image-file "black.jpg"))))
|
||||
(should (equal (exif-elem exif 'make) "Panasonic"))
|
||||
(should (equal (exif-elem exif 'orientation) 1))
|
||||
(should (equal (exif-elem exif 'x-resolution) '(180 . 1)))))
|
||||
|
|
Loading…
Add table
Reference in a new issue