From 8892e1485d2157e0e9be8f337d1d2ff7b1a6c338 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Mon, 4 Feb 2019 01:28:34 +0530 Subject: 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. --- tests/exiftool-tests.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'tests/exiftool-tests.el') 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 ;; 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 -- cgit v1.2.3