summaryrefslogtreecommitdiff
path: root/el-exiftool-tests.el
diff options
context:
space:
mode:
authorArun Isaac2017-02-23 01:02:50 +0530
committerArun Isaac2017-02-23 01:02:50 +0530
commitff4fee9355d77580b328a404a17253d3bfac79b0 (patch)
treec98dd6089ae22076417738fa8fd8f34c1cb27a66 /el-exiftool-tests.el
parent7018c0841e34e6884682c06549b99d0b678a0d5d (diff)
downloadexiftool.el-ff4fee9355d77580b328a404a17253d3bfac79b0.tar.gz
exiftool.el-ff4fee9355d77580b328a404a17253d3bfac79b0.tar.lz
exiftool.el-ff4fee9355d77580b328a404a17253d3bfac79b0.zip
Implement tag delete test.
* el-exiftool-tests.el (delete-test): New test.
Diffstat (limited to 'el-exiftool-tests.el')
-rw-r--r--el-exiftool-tests.el8
1 files changed, 8 insertions, 0 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el
index e16ad17..5e5654a 100644
--- a/el-exiftool-tests.el
+++ b/el-exiftool-tests.el
@@ -46,6 +46,14 @@
(should (equal (el-exiftool-read temp-filename (caar tag-value-alist))
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)))))
+
(provide 'el-exiftool-tests)
;;; el-exiftool-tests.el ends here