aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2017-06-16 19:20:55 +0530
committerArun Isaac2017-06-16 19:20:55 +0530
commit1c9c6feba21b98337665b6f2b4064b2bf5b75af6 (patch)
treea5d81bad6f26fea7ae6371a14b11a3beea1ff42c /tests
parent5c86f81adca3b7e2256ade3af09bbddc53a26c4d (diff)
downloadexiftool.el-1c9c6feba21b98337665b6f2b4064b2bf5b75af6.tar.gz
exiftool.el-1c9c6feba21b98337665b6f2b4064b2bf5b75af6.tar.lz
exiftool.el-1c9c6feba21b98337665b6f2b4064b2bf5b75af6.zip
Deprecate use of `car'.
* tests/exiftool-tests.el (delete-test): Replace `car' invocations with `nth 0'.
Diffstat (limited to 'tests')
-rw-r--r--tests/exiftool-tests.el4
1 files changed, 2 insertions, 2 deletions
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 ()