summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/el-exiftool-tests.el11
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/el-exiftool-tests.el b/tests/el-exiftool-tests.el
index 2ac588b..7361829 100644
--- a/tests/el-exiftool-tests.el
+++ b/tests/el-exiftool-tests.el
@@ -31,13 +31,14 @@
(require 'el-exiftool)
(require 'ert)
-(defmacro with-temp-test-file (test-filename temp-filename &rest body)
+(defmacro with-temp-test-file (test-file temp-file &rest body)
+ "Copy TEST-FILE to temporary file, put path in TEMP-FILE, evaluate BODY."
(declare (indent defun))
- `(let ((,temp-filename (make-temp-file "el-exiftool-"
- nil (concat "-" ,test-filename))))
- (copy-file ,test-filename ,temp-filename t)
+ `(let ((,temp-file (make-temp-file "el-exiftool-"
+ nil (concat "-" ,test-file))))
+ (copy-file ,test-file ,temp-file t)
,@body
- (delete-file ,temp-filename)))
+ (delete-file ,temp-file)))
(ert-deftest read-write-test ()
(with-temp-test-file "test1.png" temp-filename