mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-25 10:47:00 +00:00
86 lines
2.2 KiB
EmacsLisp
86 lines
2.2 KiB
EmacsLisp
;;; add-log-tests.el --- Test suite for add-log.
|
|
|
|
;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
|
|
|
|
;; Author: Masatake YAMATO <yamato@redhat.com>
|
|
;; 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 'ert)
|
|
(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 variable definition."
|
|
sh-mode "
|
|
PATH=a:/ab:/usr/abc
|
|
DIR=/pr><oc"
|
|
"><" "DIR")
|
|
|
|
(provide 'add-log-tests)
|
|
|
|
;;; add-log-tests.el ends here
|