diff options
Diffstat (limited to 'el-exiftool-tests.el')
| -rw-r--r-- | el-exiftool-tests.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el new file mode 100644 index 0000000..7fce6e8 --- /dev/null +++ b/el-exiftool-tests.el @@ -0,0 +1,14 @@ +(require 'el-exiftool) +(require 'ert) + +(ert-deftest read-write-test () + (let ((test-filename "test1.png")) + (let ((temp-filename (make-temp-file "el-exiftool-" + nil (concat "-" test-filename))) + (tag "xmp:Marked") + (value "True")) + (copy-file test-filename temp-filename t) + (el-exiftool-write temp-filename (cons tag value)) + (should (equal (el-exiftool-read temp-filename tag) + value)) + (delete-file temp-filename)))) |