Package: emacs;
Reported by: Michal Nazarewicz <mina86 <at> mina86.com>
Date: Thu, 22 May 2014 03:49:01 UTC
Severity: wishlist
Tags: patch
Done: Stefan Monnier <monnier <at> iro.umontreal.ca>
Bug is archived. No further changes may be made.
View this message in rfc822 format
From: help-debbugs <at> gnu.org (GNU bug Tracking System) To: Michal Nazarewicz <mina86 <at> mina86.com> Subject: bug#17547: closed (Re: [PATCH] Add basic test suits for tildify package.) Date: Wed, 28 May 2014 01:03:02 +0000
[Message part 1 (text/plain, inline)]
Your bug report #17547: [PATCH] Add basic test suits for tildify package. which was filed against the emacs package, has been closed. The explanation is attached below, along with your original report. If you require more details, please reply to 17547 <at> debbugs.gnu.org. -- 17547: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17547 GNU Bug Tracking System Contact help-debbugs <at> gnu.org with problems
[Message part 2 (message/rfc822, inline)]
From: Stefan Monnier <monnier <at> iro.umontreal.ca> To: Michal Nazarewicz <mina86 <at> mina86.com> Cc: Milan Zamazal <pdm <at> zamazal.org>, 17547-done <at> debbugs.gnu.org Subject: Re: [PATCH] Add basic test suits for tildify package. Date: Tue, 27 May 2014 21:02:36 -0400[ Please try not to send the same email to both emacs-devel and bug-gnu-emacs. ] Thanks, installed. Stefan >>>>> "Michal" == Michal Nazarewicz <mina86 <at> mina86.com> writes: > --- > lisp/ChangeLog | 5 ++ > lisp/textmodes/tildify.el | 22 +++++---- > test/ChangeLog | 4 ++ > test/automated/tildify-tests.el | 106 ++++++++++++++++++++++++++++++++++++++++ > 4 files changed, 128 insertions(+), 9 deletions(-) > create mode 100644 test/automated/tildify-tests.el > diff --git a/lisp/ChangeLog b/lisp/ChangeLog > index 09796f7..c2b1612 100644 > --- a/lisp/ChangeLog > +++ b/lisp/ChangeLog > @@ -1,3 +1,8 @@ > +2014-05-21 Michal Nazarewicz <mina86 <at> mina86.com> > + > + * textmodes/tildify.el (tildify-buffer, tildify-region): Add > + dont-ask option. > + > 2014-05-19 Leo Liu <sdl.web <at> gmail.com> > * emacs-lisp/cl-lib.el (cl-endp): Conform to CL's semantics. > diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el > index 9732e7f..339f900 100644 > --- a/lisp/textmodes/tildify.el > +++ b/lisp/textmodes/tildify.el > @@ -3,7 +3,7 @@ > ;; Copyright (C) 1997-2014 Free Software Foundation, Inc. > ;; Author: Milan Zamazal <pdm <at> zamazal.org> > -;; Version: 4.5 > +;; Version: 4.5.1 > ;; Keywords: text, TeX, SGML, wp > ;; This file is part of GNU Emacs. > @@ -172,20 +172,22 @@ END-REGEX defines end of the corresponding text part and can be either: > ;;; *** Interactive functions *** > ;;;###autoload > -(defun tildify-region (beg end) > +(defun tildify-region (beg end &optional dont-ask) > "Add hard spaces in the region between BEG and END. > See variables `tildify-pattern-alist', `tildify-string-alist', and > `tildify-ignored-environments-alist' for information about configuration > parameters. > -This function performs no refilling of the changed text." > - (interactive "*r") > +This function performs no refilling of the changed text. > +If DONT-ASK is set, or called interactively with prefix argument, user > +won't be prompted for confirmation of each substitution." > + (interactive "*rP") > (setq tildify-count 0) > (let (a > z > (marker-end (copy-marker end)) > end-env > finish > - (ask t) > + (ask (not dont-ask)) > (case-fold-search nil) > (regexp (tildify-build-regexp)) ; beginnings of environments > aux) > @@ -226,14 +228,16 @@ This function performs no refilling of the changed text." > (message "%d spaces replaced." tildify-count)) > ;;;###autoload > -(defun tildify-buffer () > +(defun tildify-buffer (&optional dont-ask) > "Add hard spaces in the current buffer. > See variables `tildify-pattern-alist', `tildify-string-alist', and > `tildify-ignored-environments-alist' for information about configuration > parameters. > -This function performs no refilling of the changed text." > - (interactive "*") > - (tildify-region (point-min) (point-max))) > +This function performs no refilling of the changed text. > +If DONT-ASK is set, or called interactively with prefix argument, user > +won't be prompted for confirmation of each substitution." > + (interactive "*P") > + (tildify-region (point-min) (point-max) dont-ask)) > ;;; *** Auxiliary functions *** > diff --git a/test/ChangeLog b/test/ChangeLog > index 3fed975..17468c2 100644 > --- a/test/ChangeLog > +++ b/test/ChangeLog > @@ -1,3 +1,7 @@ > +2014-05-21 Michal Nazarewicz <mina86 <at> mina86.com> > + > + * automated/tildify-tests.el: New file. > + > 2014-05-15 Dmitry Antipov <dmantipov <at> yandex.ru> > * automated/fns-tests.el: New file. > diff --git a/test/automated/tildify-tests.el b/test/automated/tildify-tests.el > new file mode 100644 > index 0000000..4223029 > --- /dev/null > +++ b/test/automated/tildify-tests.el > @@ -0,0 +1,106 @@ > +;;; tildify-test.el --- ERT tests for teldify.el > + > +;; Copyright (C) 2014 Free Software Foundation, Inc. > + > +;; Author: Michal Nazarewicz <mina86 <at> mina86.com> > +;; Version: 4.5 > +;; Keywords: text, TeX, SGML, wp > + > +;; 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/>. > + > +;;; Commentary: > + > +;; This package defines regression tests for the tildify package. > + > +;;; Code: > + > +(require 'ert) > +(require 'tildify) > + > +(defun tildify-test--example-sentence (space) > + "Return an example sentence with SPACE where hard space is required." > + (concat "Lorem ipsum v" space "dolor sit amet, a" space > + "consectetur adipiscing elit.")) > + > + > +(defun tildify-test--example-html (sentence &optional with-nbsp) > + "Return an example HTML code. > +SENTENCE is placed where spaces should not be replaced with hard spaces, and > +WITH-NBSP is placed where spaces should be replaced with hard spaces. If the > +latter is missing, SENTENCE will be used in all placeholder positions." > + (let ((with-nbsp (or with-nbsp sentence))) > + (concat "<p>" with-nbsp "</p>\n" > + "<pre>" sentence "</pre>\n" > + "<! -- " sentence " -- >\n" > + "<p>" with-nbsp "</p>\n" > + "<" sentence ">\n"))) > + > + > +(defun tildify-test--test (modes input expected) > + "Test tildify running in MODES. > +INPUT is the initial content of the buffer and EXPECTED is expected result > +after `tildify-buffer' is run." > + (dolist (mode modes) > + (with-temp-buffer > + (funcall mode) > + (let ((header (concat "Testing `tildify-buffer' in " > + (symbol-name mode) "\n"))) > + (insert header input) > + (tildify-buffer t) > + (should (string-equal (concat header expected) (buffer-string))))) > + (with-temp-buffer > + (funcall mode) > + (let ((header (concat "Testing `tildify-region' in " > + (symbol-name mode) "\n"))) > + (insert header input) > + (tildify-region (point-min) (point-max) t) > + (should (string-equal (concat header expected) (buffer-string))))))) > + > +(ert-deftest tildify-test-html () > + "Tests tildification in an HTML document" > + (let* ((sentence (tildify-test--example-sentence " ")) > + (with-nbsp (tildify-test--example-sentence " "))) > + (tildify-test--test '(html-mode sgml-mode) > + (tildify-test--example-html sentence sentence) > + (tildify-test--example-html sentence with-nbsp)))) > + > + > +(defun tildify-test--example-tex (sentence &optional with-nbsp) > + "Return an example (La)Tex code. > +SENTENCE is placed where spaces should not be replaced with hard spaces, and > +WITH-NBSP is placed where spaces should be replaced with hard spaces. If the > +latter is missing, SENTENCE will be used in all placeholder positions." > + (let ((with-nbsp (or with-nbsp sentence))) > + (concat with-nbsp "\n" > + "\\begin{verbatim}\n" sentence "\n\\end{verbatim}\n" > + "\\verb#" sentence "#\n" > + "$$" sentence "$$\n" > + "$" sentence "$\n" > + "\\[" sentence "\\]\n" > + "\\v A % " sentence "\n" > + with-nbsp "\n"))) > + > +(ert-deftest tildify-test-tex () > + "Tests tildification in a (La)TeX document" > + (let* ((sentence (tildify-test--example-sentence " ")) > + (with-nbsp (tildify-test--example-sentence "~"))) > + (tildify-test--test '(tex-mode latex-mode plain-tex-mode) > + (tildify-test--example-tex sentence sentence) > + (tildify-test--example-tex sentence with-nbsp)))) > + > +(provide 'tildify-tests) > + > +;;; tildify-tests.el ends here > -- > 1.9.1.423.g4596e3a
[Message part 3 (message/rfc822, inline)]
From: Michal Nazarewicz <mina86 <at> mina86.com> To: emacs-devel <at> gnu.org, bug-gnu-emacs <at> gnu.org Subject: [PATCH] Add basic test suits for tildify package. Date: Wed, 21 May 2014 17:37:50 -1000--- lisp/ChangeLog | 5 ++ lisp/textmodes/tildify.el | 22 +++++---- test/ChangeLog | 4 ++ test/automated/tildify-tests.el | 106 ++++++++++++++++++++++++++++++++++++++++ 4 files changed, 128 insertions(+), 9 deletions(-) create mode 100644 test/automated/tildify-tests.el diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 09796f7..c2b1612 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-05-21 Michal Nazarewicz <mina86 <at> mina86.com> + + * textmodes/tildify.el (tildify-buffer, tildify-region): Add + dont-ask option. + 2014-05-19 Leo Liu <sdl.web <at> gmail.com> * emacs-lisp/cl-lib.el (cl-endp): Conform to CL's semantics. diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el index 9732e7f..339f900 100644 --- a/lisp/textmodes/tildify.el +++ b/lisp/textmodes/tildify.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1997-2014 Free Software Foundation, Inc. ;; Author: Milan Zamazal <pdm <at> zamazal.org> -;; Version: 4.5 +;; Version: 4.5.1 ;; Keywords: text, TeX, SGML, wp ;; This file is part of GNU Emacs. @@ -172,20 +172,22 @@ END-REGEX defines end of the corresponding text part and can be either: ;;; *** Interactive functions *** ;;;###autoload -(defun tildify-region (beg end) +(defun tildify-region (beg end &optional dont-ask) "Add hard spaces in the region between BEG and END. See variables `tildify-pattern-alist', `tildify-string-alist', and `tildify-ignored-environments-alist' for information about configuration parameters. -This function performs no refilling of the changed text." - (interactive "*r") +This function performs no refilling of the changed text. +If DONT-ASK is set, or called interactively with prefix argument, user +won't be prompted for confirmation of each substitution." + (interactive "*rP") (setq tildify-count 0) (let (a z (marker-end (copy-marker end)) end-env finish - (ask t) + (ask (not dont-ask)) (case-fold-search nil) (regexp (tildify-build-regexp)) ; beginnings of environments aux) @@ -226,14 +228,16 @@ This function performs no refilling of the changed text." (message "%d spaces replaced." tildify-count)) ;;;###autoload -(defun tildify-buffer () +(defun tildify-buffer (&optional dont-ask) "Add hard spaces in the current buffer. See variables `tildify-pattern-alist', `tildify-string-alist', and `tildify-ignored-environments-alist' for information about configuration parameters. -This function performs no refilling of the changed text." - (interactive "*") - (tildify-region (point-min) (point-max))) +This function performs no refilling of the changed text. +If DONT-ASK is set, or called interactively with prefix argument, user +won't be prompted for confirmation of each substitution." + (interactive "*P") + (tildify-region (point-min) (point-max) dont-ask)) ;;; *** Auxiliary functions *** diff --git a/test/ChangeLog b/test/ChangeLog index 3fed975..17468c2 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,7 @@ +2014-05-21 Michal Nazarewicz <mina86 <at> mina86.com> + + * automated/tildify-tests.el: New file. + 2014-05-15 Dmitry Antipov <dmantipov <at> yandex.ru> * automated/fns-tests.el: New file. diff --git a/test/automated/tildify-tests.el b/test/automated/tildify-tests.el new file mode 100644 index 0000000..4223029 --- /dev/null +++ b/test/automated/tildify-tests.el @@ -0,0 +1,106 @@ +;;; tildify-test.el --- ERT tests for teldify.el + +;; Copyright (C) 2014 Free Software Foundation, Inc. + +;; Author: Michal Nazarewicz <mina86 <at> mina86.com> +;; Version: 4.5 +;; Keywords: text, TeX, SGML, wp + +;; 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/>. + +;;; Commentary: + +;; This package defines regression tests for the tildify package. + +;;; Code: + +(require 'ert) +(require 'tildify) + +(defun tildify-test--example-sentence (space) + "Return an example sentence with SPACE where hard space is required." + (concat "Lorem ipsum v" space "dolor sit amet, a" space + "consectetur adipiscing elit.")) + + +(defun tildify-test--example-html (sentence &optional with-nbsp) + "Return an example HTML code. +SENTENCE is placed where spaces should not be replaced with hard spaces, and +WITH-NBSP is placed where spaces should be replaced with hard spaces. If the +latter is missing, SENTENCE will be used in all placeholder positions." + (let ((with-nbsp (or with-nbsp sentence))) + (concat "<p>" with-nbsp "</p>\n" + "<pre>" sentence "</pre>\n" + "<! -- " sentence " -- >\n" + "<p>" with-nbsp "</p>\n" + "<" sentence ">\n"))) + + +(defun tildify-test--test (modes input expected) + "Test tildify running in MODES. +INPUT is the initial content of the buffer and EXPECTED is expected result +after `tildify-buffer' is run." + (dolist (mode modes) + (with-temp-buffer + (funcall mode) + (let ((header (concat "Testing `tildify-buffer' in " + (symbol-name mode) "\n"))) + (insert header input) + (tildify-buffer t) + (should (string-equal (concat header expected) (buffer-string))))) + (with-temp-buffer + (funcall mode) + (let ((header (concat "Testing `tildify-region' in " + (symbol-name mode) "\n"))) + (insert header input) + (tildify-region (point-min) (point-max) t) + (should (string-equal (concat header expected) (buffer-string))))))) + +(ert-deftest tildify-test-html () + "Tests tildification in an HTML document" + (let* ((sentence (tildify-test--example-sentence " ")) + (with-nbsp (tildify-test--example-sentence " "))) + (tildify-test--test '(html-mode sgml-mode) + (tildify-test--example-html sentence sentence) + (tildify-test--example-html sentence with-nbsp)))) + + +(defun tildify-test--example-tex (sentence &optional with-nbsp) + "Return an example (La)Tex code. +SENTENCE is placed where spaces should not be replaced with hard spaces, and +WITH-NBSP is placed where spaces should be replaced with hard spaces. If the +latter is missing, SENTENCE will be used in all placeholder positions." + (let ((with-nbsp (or with-nbsp sentence))) + (concat with-nbsp "\n" + "\\begin{verbatim}\n" sentence "\n\\end{verbatim}\n" + "\\verb#" sentence "#\n" + "$$" sentence "$$\n" + "$" sentence "$\n" + "\\[" sentence "\\]\n" + "\\v A % " sentence "\n" + with-nbsp "\n"))) + +(ert-deftest tildify-test-tex () + "Tests tildification in a (La)TeX document" + (let* ((sentence (tildify-test--example-sentence " ")) + (with-nbsp (tildify-test--example-sentence "~"))) + (tildify-test--test '(tex-mode latex-mode plain-tex-mode) + (tildify-test--example-tex sentence sentence) + (tildify-test--example-tex sentence with-nbsp)))) + +(provide 'tildify-tests) + +;;; tildify-tests.el ends here -- 1.9.1.423.g4596e3a
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.