[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8c8be4f: Add test suites for arc-mode and tar-mode
From: |
Tino Calancha |
Subject: |
[Emacs-diffs] master 8c8be4f: Add test suites for arc-mode and tar-mode |
Date: |
Sun, 13 Aug 2017 10:47:30 -0400 (EDT) |
branch: master
commit 8c8be4f8f439123859bf20f4d46055fa6c81f2e8
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>
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.
---
test/lisp/arc-mode-tests.el | 36 ++++++++++++++++++++++++++++++++++++
test/lisp/tar-mode-tests.el | 36 ++++++++++++++++++++++++++++++++++++
2 files changed, 72 insertions(+)
diff --git a/test/lisp/arc-mode-tests.el b/test/lisp/arc-mode-tests.el
new file mode 100644
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
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8c8be4f: Add test suites for arc-mode and tar-mode,
Tino Calancha <=