aboutsummaryrefslogtreecommitdiff
path: root/el-exiftool-tests.el
diff options
context:
space:
mode:
Diffstat (limited to 'el-exiftool-tests.el')
-rw-r--r--el-exiftool-tests.el18
1 files changed, 11 insertions, 7 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el
index 0025cf4..e16ad17 100644
--- a/el-exiftool-tests.el
+++ b/el-exiftool-tests.el
@@ -31,16 +31,20 @@
(require 'el-exiftool)
(require 'ert)
+(defmacro with-temp-test-file (test-filename temp-filename &rest body)
+ (declare (indent defun))
+ `(let ((,temp-filename (make-temp-file "el-exiftool-"
+ nil (concat "-" ,test-filename))))
+ (copy-file ,test-filename ,temp-filename t)
+ ,@body
+ (delete-file ,temp-filename)))
+
(ert-deftest read-write-test ()
- (let ((test-filename "test1.png"))
- (let ((temp-filename (make-temp-file "el-exiftool-"
- nil (concat "-" test-filename)))
- (tag-value-alist '(("Marked" . "True"))))
- (copy-file test-filename temp-filename t)
+ (with-temp-test-file "test1.png" temp-filename
+ (let ((tag-value-alist '(("Marked" . "True"))))
(apply 'el-exiftool-write temp-filename tag-value-alist)
(should (equal (el-exiftool-read temp-filename (caar tag-value-alist))
- tag-value-alist))
- (delete-file temp-filename))))
+ tag-value-alist)))))
(provide 'el-exiftool-tests)