diff options
| author | Arun Isaac | 2017-06-16 19:20:55 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-06-16 19:20:55 +0530 |
| commit | 1c9c6feba21b98337665b6f2b4064b2bf5b75af6 (patch) | |
| tree | a5d81bad6f26fea7ae6371a14b11a3beea1ff42c | |
| parent | 5c86f81adca3b7e2256ade3af09bbddc53a26c4d (diff) | |
| download | exiftool.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'.
| -rw-r--r-- | tests/exiftool-tests.el | 4 |
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 () |