summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--el-exiftool-tests.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el
index 5e5654a..2ac588b 100644
--- a/el-exiftool-tests.el
+++ b/el-exiftool-tests.el
@@ -47,12 +47,12 @@
tag-value-alist)))))
(ert-deftest delete-test ()
- (with-temp-test-file "test1.png" temp-filename
- (let ((tag-value-alist '(("Marked" . "True"))))
- (apply 'el-exiftool-write temp-filename tag-value-alist)
- (el-exiftool-write temp-filename '(("Marked" . "")))
- (should (equal (el-exiftool-read temp-filename (caar tag-value-alist))
- tag-value-alist)))))
+ (with-temp-test-file "test1.png" temp-file
+ (el-exiftool-write temp-file '("Marked" . "True"))
+ (el-exiftool-write temp-file '("Marked" . ""))
+ (should (equal (el-exiftool-read temp-file "Marked")
+ '(("Marked" . ""))))))
+
(provide 'el-exiftool-tests)