Add test suites for arc-mode and tar-mode

* test/lisp/arc-mode-tests.el (arc-mode-test-archive-int-to-mode)
* test/lisp/tar-mode-tests.el (tar-mode-test-tar-grind-file-mode):
New tests.

diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el
new file mode 100644 (file)
index 0000000..04047ba
--- /dev/null
+++ b/test/lisp/arc-mode-tests.el
@@ -0,0 +1,36 @@
+;;; arc-mode-tests.el --- Test suite for arc-mode. -*- lexical-binding: t -*-
+
+;; Copyright (C) 2017 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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.
+
+;; GNU Emacs 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 GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+(require 'ert)
+(require 'arc-mode)
+
+
+(ert-deftest arc-mode-test-archive-int-to-mode ()
+  (let ((alist (list (cons 448 "-rwx------")
+                     (cons 420 "-rw-r--r--")
+                     (cons 292 "-r--r--r--")
+                     (cons 512 "----------")
+                     (cons 1024 "---S------"))))
+    (dolist (x alist)
+      (should (equal (cdr x) (archive-int-to-mode (car x)))))))
+
+(provide 'arc-mode-tests)
+
+;; arc-mode-tests.el ends here

diff --git a/test/lisp/tar-mode-tests.el b/test/lisp/tar-mode-tests.el
new file mode 100644 (file)
index 0000000..76ec058
--- /dev/null
+++ b/test/lisp/tar-mode-tests.el
@@ -0,0 +1,36 @@
+;;; tar-mode-tests.el --- Test suite for tar-mode. -*- lexical-binding: t -*-
+
+;; Copyright (C) 2017 Free Software Foundation, Inc.
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs 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.
+
+;; GNU Emacs 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 GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Code:
+(require 'ert)
+(require 'tar-mode)
+
+
+(ert-deftest tar-mode-test-tar-grind-file-mode ()
+  (let ((alist (list (cons 448 "rwx------")
+                     (cons 420 "rw-r--r--")
+                     (cons 292 "r--r--r--")
+                     (cons 512 "--------T")
+                     (cons 1024 "-----S---"))))
+    (dolist (x alist)
+      (should (equal (cdr x) (tar-grind-file-mode (car x)))))))
+
+(provide 'tar-mode-tests)
+
+;; tar-mode-tests.el ends here