From 921feff8cd17ea24ac0342ddfcc4622243376b98 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 23 Feb 2017 11:01:05 +0530
Subject: Fix tag delete test.

* el-exiftool-tests.el (delete-test): Pass `el-exiftool-write'
  tag-value pairs, not an alist.
---
 el-exiftool-tests.el | 12 ++++++------
 1 file 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)
 
-- 
cgit v1.2.3