diff options
| author | Arun Isaac | 2017-02-23 11:01:05 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-02-23 11:01:05 +0530 |
| commit | 921feff8cd17ea24ac0342ddfcc4622243376b98 (patch) | |
| tree | 3e867431514428ed12dd3e2edf462a7d693edf8b | |
| parent | ff4fee9355d77580b328a404a17253d3bfac79b0 (diff) | |
| download | exiftool.el-921feff8cd17ea24ac0342ddfcc4622243376b98.tar.gz exiftool.el-921feff8cd17ea24ac0342ddfcc4622243376b98.tar.lz exiftool.el-921feff8cd17ea24ac0342ddfcc4622243376b98.zip | |
Fix tag delete test.
* el-exiftool-tests.el (delete-test): Pass `el-exiftool-write'
tag-value pairs, not an alist.
| -rw-r--r-- | el-exiftool-tests.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el index 5e5654a..2ac588b 100644 --- a/el-exiftool-tests.el +++ b/el-exiftool-tests.el @@ -47,12 +47,12 @@ tag-value-alist))))) (ert-deftest delete-test () - (with-temp-test-file "test1.png" temp-filename - (let ((tag-value-alist '(("Marked" . "True")))) - (apply 'el-exiftool-write temp-filename tag-value-alist) - (el-exiftool-write temp-filename '(("Marked" . ""))) - (should (equal (el-exiftool-read temp-filename (caar tag-value-alist)) - tag-value-alist))))) + (with-temp-test-file "test1.png" temp-file + (el-exiftool-write temp-file '("Marked" . "True")) + (el-exiftool-write temp-file '("Marked" . "")) + (should (equal (el-exiftool-read temp-file "Marked") + '(("Marked" . "")))))) + (provide 'el-exiftool-tests) |