diff options
| author | Arun Isaac | 2017-02-27 23:10:45 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-02-27 23:10:45 +0530 |
| commit | 32acfa10bc267f11b20885c6375b69d59f315d55 (patch) | |
| tree | 5d176c472ad2c068b8781585e28d627e85bf9cbe | |
| parent | 8658f58aad17ff65c2f810950dafee131c77dbba (diff) | |
| download | exiftool.el-32acfa10bc267f11b20885c6375b69d59f315d55.tar.gz exiftool.el-32acfa10bc267f11b20885c6375b69d59f315d55.tar.lz exiftool.el-32acfa10bc267f11b20885c6375b69d59f315d55.zip | |
Add docstring.
* tests/el-exiftool-tests.el (with-temp-test-file): Add docstring.
| -rw-r--r-- | tests/el-exiftool-tests.el | 11 |
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 |