From ff4fee9355d77580b328a404a17253d3bfac79b0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Feb 2017 01:02:50 +0530
Subject: Implement tag delete test.

* el-exiftool-tests.el (delete-test): New test.
---
 el-exiftool-tests.el | 8 ++++++++
 1 file changed, 8 insertions(+)

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
-- 
cgit v1.2.3