From 1c9c6feba21b98337665b6f2b4064b2bf5b75af6 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 16 Jun 2017 19:20:55 +0530
Subject: Deprecate use of `car'.

* tests/exiftool-tests.el (delete-test): Replace `car' invocations
with `nth 0'.
---
 tests/exiftool-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tests')

diff --git a/tests/exiftool-tests.el b/tests/exiftool-tests.el
index 6f14ffe..8d040c4 100644
--- a/tests/exiftool-tests.el
+++ b/tests/exiftool-tests.el
@@ -64,11 +64,11 @@
 
 (ert-deftest delete-test ()
   (with-temp-test-file "test1.png" temp-file
-    (exiftool-write temp-file (car exiftool-tests--tag-value))
+    (exiftool-write temp-file (nth 0 exiftool-tests--tag-value))
     (let ((delete-pair
 	   (cons (caar exiftool-tests--tag-value) "")))
       (exiftool-write temp-file delete-pair)
-      (should (equal (car (exiftool-read temp-file "Marked"))
+      (should (equal (nth 0 (exiftool-read temp-file "Marked"))
 		     delete-pair)))))
 
 (ert-deftest copy-all-test ()
-- 
cgit 1.4.1