diff options
| author | Arun Isaac | 2017-02-23 01:02:50 +0530 |
|---|---|---|
| committer | Arun Isaac | 2017-02-23 01:02:50 +0530 |
| commit | ff4fee9355d77580b328a404a17253d3bfac79b0 (patch) | |
| tree | c98dd6089ae22076417738fa8fd8f34c1cb27a66 | |
| parent | 7018c0841e34e6884682c06549b99d0b678a0d5d (diff) | |
| download | exiftool.el-ff4fee9355d77580b328a404a17253d3bfac79b0.tar.gz exiftool.el-ff4fee9355d77580b328a404a17253d3bfac79b0.tar.lz exiftool.el-ff4fee9355d77580b328a404a17253d3bfac79b0.zip | |
Implement tag delete test.
* el-exiftool-tests.el (delete-test): New test.
| -rw-r--r-- | el-exiftool-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/el-exiftool-tests.el b/el-exiftool-tests.el index e16ad17..5e5654a 100644 --- a/el-exiftool-tests.el +++ b/el-exiftool-tests.el @@ -46,6 +46,14 @@ (should (equal (el-exiftool-read temp-filename (caar tag-value-alist)) 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))))) + (provide 'el-exiftool-tests) ;;; el-exiftool-tests.el ends here |