diff options
| author | Tom Tromey <tom@tromey.com> | 2017-03-23 11:34:18 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2017-04-05 15:53:39 -0600 |
| commit | 335174ee5037a2751c31bfd9ecb87cedb4bc3cda (patch) | |
| tree | d2faaab5f48303aa08ef707d842d2e22e31650f6 /test/lisp/textmodes | |
| parent | d392b6e82460d94b11627998da87e33880664060 (diff) | |
| download | emacs-335174ee5037a2751c31bfd9ecb87cedb4bc3cda.tar.gz | |
add mhtml-mode.el
* etc/NEWS: Update.
* lisp/textmodes/mhtml-mode.el: New file.
* test/manual/indent/html-multi.html: New file.
* test/lisp/textmodes/mhtml-mode-tests.el: New file.
* doc/emacs/text.texi (HTML Mode): Mention mhtml-mode.
Diffstat (limited to 'test/lisp/textmodes')
| -rw-r--r-- | test/lisp/textmodes/mhtml-mode-tests.el | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/test/lisp/textmodes/mhtml-mode-tests.el b/test/lisp/textmodes/mhtml-mode-tests.el new file mode 100644 index 00000000000..d8eeb27643c --- /dev/null +++ b/test/lisp/textmodes/mhtml-mode-tests.el @@ -0,0 +1,58 @@ +;;; mhtml-mode-tests.el --- Tests for mhtml-mode + +;; Copyright (C) 2017 Free Software Foundation, Inc. + +;; Keywords: tests + +;; 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: + +;;; Code: + +(require 'mhtml-mode) +(require 'ert) + +(defun mhtml-test-syntax (before after what) + (with-temp-buffer + (mhtml-mode) + (insert before) + (save-excursion + (insert after)) + (font-lock-ensure) + (should (eq (syntax-ppss-context (syntax-ppss)) what)))) + +(ert-deftest mthml-comment-js () + (mhtml-test-syntax "<html><script>\n/* " + " some text */<script></html>" + 'comment)) + +(ert-deftest mthml-string-js () + (mhtml-test-syntax "<html><script>\n\" " + " some text \"<script></html>" + 'string)) + +(ert-deftest mthml-comment-css () + (mhtml-test-syntax "<html><style>\n/* " + " some text */<style></html>" + 'comment)) + +(ert-deftest mthml-string-css () + (mhtml-test-syntax "<html><style>\n\" " + " some text \"<style></html>" + 'string)) + +;;; mhtml-mode-tests.el ends here |