[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112255: * test/automated/add-log-tes
From: |
Masatake YAMATO |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112255: * test/automated/add-log-tests.el: New file. |
Date: |
Wed, 10 Apr 2013 02:37:17 +0900 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112255
fixes bug: http://debbugs.gnu.org/14112
committer: Masatake YAMATO <address@hidden>
branch nick: trunk
timestamp: Wed 2013-04-10 02:37:17 +0900
message:
* test/automated/add-log-tests.el: New file.
added:
test/automated/add-log-tests.el
modified:
test/ChangeLog
=== modified file 'test/ChangeLog'
--- a/test/ChangeLog 2013-03-30 16:55:47 +0000
+++ b/test/ChangeLog 2013-04-09 17:37:17 +0000
@@ -1,3 +1,7 @@
+2013-04-09 Masatake YAMATO <address@hidden>
+
+ * automated/add-log-tests.el: New file. (Bug#14112)
+
2013-03-30 Fabián Ezequiel Gallina <address@hidden>
* automated/python-tests.el (python-indent-block-enders): New test.
=== added file 'test/automated/add-log-tests.el'
--- a/test/automated/add-log-tests.el 1970-01-01 00:00:00 +0000
+++ b/test/automated/add-log-tests.el 2013-04-09 17:37:17 +0000
@@ -0,0 +1,84 @@
+;;; add-log-tests.el --- Test suite for add-log.
+
+;; Copyright (C) 2013 Free Software Foundation, Inc.
+
+;; Author: Masatake YAMATO <address@hidden>
+;; Keywords: vc tools
+
+;; 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 'add-log)
+
+(defmacro add-log-current-defun-deftest (name doc major-mode
+ content marker expected-defun)
+ "Generate an ert test for mode-own `add-log-current-defun-function'.
+Run `add-log-current-defun' at the point where MARKER specifies in a
+buffer which content is CONTENT under MAJOR-MODE. Then it compares the
+result with EXPECTED-DEFUN."
+ (let ((xname (intern (concat "add-log-current-defun-test-"
+ (symbol-name name)
+ ))))
+ `(ert-deftest ,xname ()
+ ,doc
+ (with-temp-buffer
+ (insert ,content)
+ (goto-char (point-min))
+ (funcall ',major-mode)
+ (should (equal (when (search-forward ,marker nil t)
+ (replace-match "" nil t)
+ (add-log-current-defun))
+ ,expected-defun))))))
+
+(add-log-current-defun-deftest
+ sh-func1
+ "Test sh-current-defun-name can find function."
+ sh-mode "
+function foo
+{
+ ><
+}" "><" "foo")
+
+(add-log-current-defun-deftest
+ sh-func2
+ "Test sh-current-defun-name can find function."
+ sh-mode "
+foo()
+{
+ ><
+}" "><" "foo")
+
+(add-log-current-defun-deftest
+ sh-func3
+ "Test sh-current-defun-name can find function."
+ sh-mode "
+function foo()
+{
+ ><
+}" "><" "foo")
+
+(add-log-current-defun-deftest
+ sh-var
+ "Test sh-current-defun-name can find variabe definition."
+ sh-mode "
+PATH=a:/ab:/usr/abc
+DIR=/pr><oc"
+"><" "DIR")
+
+(provide 'add-log-tests)
+
+;;; add-log-tests.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112255: * test/automated/add-log-tests.el: New file.,
Masatake YAMATO <=