summaryrefslogtreecommitdiff
path: root/el-exiftool-tests.el
diff options
context:
space:
mode:
authorArun Isaac2017-02-20 13:58:40 +0530
committerArun Isaac2017-02-20 13:58:40 +0530
commit41155280f86a3048d4d09dba83d560436d18f9a9 (patch)
tree0a8a3d942469e87ec50a1421632e82bafd5d1aa7 /el-exiftool-tests.el
parent9ea665855b5a04c2c6645e653d197ca1ef456a2c (diff)
downloadexiftool.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.el9
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))))