diff options
| author | Arun Isaac | 2017-02-20 13:58:40 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-02-20 13:58:40 +0530 |
| commit | 41155280f86a3048d4d09dba83d560436d18f9a9 (patch) | |
| tree | 0a8a3d942469e87ec50a1421632e82bafd5d1aa7 /el-exiftool-tests.el | |
| parent | 9ea665855b5a04c2c6645e653d197ca1ef456a2c (diff) | |
| download | exiftool.el-41155280f86a3048d4d09dba83d560436d18f9a9.tar.gz exiftool.el-41155280f86a3048d4d09dba83d560436d18f9a9.tar.lz exiftool.el-41155280f86a3048d4d09dba83d560436d18f9a9.zip | |
Support read/write of multiple tags
* el-exiftool.el (el-exiftool-read): Support reading multiple tags.
(el-exiftool-write): Support writing multiple tags.
* el-exiftool-tests.el (read-write-test): Accommodate new function prototypes.
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)))) |