diff options
| author | Arun Isaac | 2019-02-04 01:28:34 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-02-04 01:35:10 +0530 |
| commit | 8892e1485d2157e0e9be8f337d1d2ff7b1a6c338 (patch) | |
| tree | c085804c75afe5365d9adb1c09301eac25717bbf /tests | |
| parent | 3a07dbcb975577734d4abf6d68e1ab83a01951bb (diff) | |
| download | exiftool.el-8892e1485d2157e0e9be8f337d1d2ff7b1a6c338.tar.gz exiftool.el-8892e1485d2157e0e9be8f337d1d2ff7b1a6c338.tar.lz exiftool.el-8892e1485d2157e0e9be8f337d1d2ff7b1a6c338.zip | |
Signal a file-missing error when file is not found.
* exiftool.el (exiftool--assert-file-exists): New function.
(exiftool-read, exiftool-copy, exiftool-write): Assert that file
arguments exist before operating on them.
* tests/exiftool-tests.el (read-file-not-found-test,
copy-file-not-found-test, write-file-not-found-test): New tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/exiftool-tests.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/tests/exiftool-tests.el b/tests/exiftool-tests.el index 8d040c4..0ef5fa2 100644 --- a/tests/exiftool-tests.el +++ b/tests/exiftool-tests.el @@ -1,7 +1,7 @@ ;;; exiftool.el --- Elisp wrapper around exiftool ;; -*- lexical-binding: t -*- ;; Elisp wrapper around exiftool -;; Copyright (C) 2017 by Arun I +;; Copyright (C) 2017, 2019 by Arun I ;; ;; Author: Arun I <arunisaac@systemreboot.net> ;; Keywords: data @@ -90,6 +90,19 @@ (equal (apply 'exiftool-read temp-1 some-tags) (apply 'exiftool-read temp-2 some-tags)))))))) +(ert-deftest read-file-not-found-test () + (should-error (exiftool-read "non-existent-file.png") + :type 'file-missing)) + +(ert-deftest copy-file-not-found-test () + (should-error (exiftool-copy "non-existent-file-1.png" + "non-existent-file-2.png") + :type 'file-missing)) + +(ert-deftest write-file-not-found-test () + (should-error (exiftool-write "non-existent-file.png") + :type 'file-missing)) + (provide 'exiftool-tests) ;;; exiftool-tests.el ends here |