Rename library to exiftool.el.

2 files changed, 25 insertions, 25 deletions

diff --git a/tests/Makefile b/tests/Makefile
index c501287..95d8728 100644
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -1,2 +1,2 @@
 check:
-	emacs -batch -l ert -l ../el-exiftool.el -l el-exiftool-tests.el -f ert-run-tests-batch-and-exit
+	emacs -batch -l ert -l ../exiftool.el -l exiftool-tests.el -f ert-run-tests-batch-and-exit
diff --git a/tests/el-exiftool-tests.el b/tests/exiftool-tests.el
index 6d7d01a..fa13dbf 100644
--- a/tests/el-exiftool-tests.el
+++ b/tests/exiftool-tests.el
@@ -1,45 +1,45 @@
-;;; el-exiftool.el --- Elisp wrapper around exiftool ;; -*- lexical-binding: t -*-
+;;; exiftool.el --- Elisp wrapper around exiftool ;; -*- lexical-binding: t -*-
 
 ;; Elisp wrapper around exiftool
 ;; Copyright (C) 2017 by Arun I
 ;;
 ;; Author: Arun I <arunisaac@systemreboot.net>
 ;; Keywords: data
-;; Homepage: https://git.systemreboot.net/el-exiftool
+;; Homepage: https://git.systemreboot.net/exiftool.el
 
-;; This file is part of el-exiftool.
+;; This file is part of exiftool.el.
 
-;; el-exiftool is free software: you can redistribute it and/or modify
+;; exiftool.el is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation, either version 3 of the License, or
 ;; (at your option) any later version.
 
-;; el-exiftool is distributed in the hope that it will be useful,
+;; exiftool.el is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with el-exiftool.  If not, see <http://www.gnu.org/licenses/>.
+;; along with exiftool.el.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
 ;;
-;; Unit testing for el-exiftool
+;; Unit testing for exiftool.el
 
 ;;; Code:
 
-(defvar el-exiftool-tests--tag-value
+(defvar exiftool-tests--tag-value
   '(("Marked" . "True")
     ("Creator" . "foo")
     ("Rights" . "bar")))
 
-(require 'el-exiftool)
+(require 'exiftool)
 (require 'ert)
 
 (defmacro with-temp-test-file (test-file temp-file &rest body)
   "Copy TEST-FILE to temporary file, put path in TEMP-FILE, evaluate BODY."
   (declare (indent defun))
-  `(let ((,temp-file (make-temp-file "el-exiftool-"
+  `(let ((,temp-file (make-temp-file "exiftool-"
 					 nil (concat "-" ,test-file))))
      (copy-file ,test-file ,temp-file t)
      ,@body
@@ -47,28 +47,28 @@
 
 (ert-deftest read-write-test ()
   (with-temp-test-file "test1.png" temp-file
-    (apply 'el-exiftool-write temp-file el-exiftool-tests--tag-value)
-    (should (equal (apply 'el-exiftool-read temp-file (mapcar 'car el-exiftool-tests--tag-value))
-		   el-exiftool-tests--tag-value))))
+    (apply 'exiftool-write temp-file exiftool-tests--tag-value)
+    (should (equal (apply 'exiftool-read temp-file (mapcar 'car exiftool-tests--tag-value))
+		   exiftool-tests--tag-value))))
 
 (ert-deftest delete-test ()
   (with-temp-test-file "test1.png" temp-file
-    (el-exiftool-write temp-file (car el-exiftool-tests--tag-value))
+    (exiftool-write temp-file (car exiftool-tests--tag-value))
     (let ((delete-pair
-	   (cons (caar el-exiftool-tests--tag-value) "")))
-      (el-exiftool-write temp-file delete-pair)
-      (should (equal (car (el-exiftool-read temp-file "Marked"))
+	   (cons (caar exiftool-tests--tag-value) "")))
+      (exiftool-write temp-file delete-pair)
+      (should (equal (car (exiftool-read temp-file "Marked"))
 		     delete-pair)))))
 
 (ert-deftest copy-test ()
   (with-temp-test-file "test1.png" temp-1
     (with-temp-test-file "test2.jpg" temp-2
-      (apply 'el-exiftool-write temp-1 el-exiftool-tests--tag-value)
-      (el-exiftool-copy temp-1 temp-2)
-      (let ((tags (mapcar 'car el-exiftool-tests--tag-value)))
-	(should (equal (apply 'el-exiftool-read temp-1 tags)
-		       (apply 'el-exiftool-read temp-2 tags)))))))
+      (apply 'exiftool-write temp-1 exiftool-tests--tag-value)
+      (exiftool-copy temp-1 temp-2)
+      (let ((tags (mapcar 'car exiftool-tests--tag-value)))
+	(should (equal (apply 'exiftool-read temp-1 tags)
+		       (apply 'exiftool-read temp-2 tags)))))))
 
-(provide 'el-exiftool-tests)
+(provide 'exiftool-tests)
 
-;;; el-exiftool-tests.el ends here
+;;; exiftool-tests.el ends here