diff options
Diffstat (limited to 'el-exiftool-tests.el')
| -rw-r--r-- | el-exiftool-tests.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el index dd6380c..0dd0cc6 100644 --- a/el-exiftool-tests.el +++ b/el-exiftool-tests.el @@ -20,10 +20,9 @@ (let ((test-filename "test1.png")) (let ((temp-filename (make-temp-file "el-exiftool-" nil (concat "-" test-filename))) - (tag "xmp:Marked") - (value "True")) + (tag-value-alist '(("Marked" . "True")))) (copy-file test-filename temp-filename t) - (el-exiftool-write temp-filename (cons tag value)) - (should (equal (el-exiftool-read temp-filename tag) - value)) + (apply 'el-exiftool-write temp-filename tag-value-alist) + (should (equal (el-exiftool-read temp-filename (caar tag-value-alist)) + tag-value-alist)) (delete-file temp-filename)))) |