aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/exiftool-tests.el15
1 files changed, 14 insertions, 1 deletions
diff --git a/tests/exiftool-tests.el b/tests/exiftool-tests.el
index 9d9db03..8a9b803 100644
--- a/tests/exiftool-tests.el
+++ b/tests/exiftool-tests.el
@@ -34,6 +34,7 @@
("Rights" . "bar")))
(require 'exiftool)
+(require 'cl-lib)
(require 'ert)
(defmacro with-temp-test-file (test-file temp-file &rest body)
@@ -60,7 +61,7 @@
(should (equal (car (exiftool-read temp-file "Marked"))
delete-pair)))))
-(ert-deftest copy-test ()
+(ert-deftest copy-all-test ()
(with-temp-test-file "test1.png" temp-1
(with-temp-test-file "test2.png" temp-2
(apply 'exiftool-write temp-1 exiftool-tests--tag-value)
@@ -69,6 +70,18 @@
(should (equal (apply 'exiftool-read temp-1 tags)
(apply 'exiftool-read temp-2 tags)))))))
+(ert-deftest copy-some-test ()
+ (with-temp-test-file "test1.png" temp-1
+ (with-temp-test-file "test2.png" temp-2
+ (apply 'exiftool-write temp-1 exiftool-tests--tag-value)
+ (let* ((all-tags (mapcar 'car exiftool-tests--tag-value))
+ (some-tags (cl-subseq all-tags 2)))
+ (apply 'exiftool-copy temp-1 temp-2 some-tags)
+ (should (and (not (equal (apply 'exiftool-read temp-1 all-tags)
+ (apply 'exiftool-read temp-2 all-tags)))
+ (equal (apply 'exiftool-read temp-1 some-tags)
+ (apply 'exiftool-read temp-2 some-tags))))))))
+
(provide 'exiftool-tests)
;;; exiftool-tests.el ends here