diff options
Diffstat (limited to 'emacs.d/nxhtml/tests/nxhtmltest-suites.el')
| -rw-r--r-- | emacs.d/nxhtml/tests/nxhtmltest-suites.el | 632 |
1 files changed, 632 insertions, 0 deletions
diff --git a/emacs.d/nxhtml/tests/nxhtmltest-suites.el b/emacs.d/nxhtml/tests/nxhtmltest-suites.el new file mode 100644 index 0000000..5af8ab8 --- /dev/null +++ b/emacs.d/nxhtml/tests/nxhtmltest-suites.el @@ -0,0 +1,632 @@ +;;; nxhtmltest-suites.el --- Test suites for mumamo / nXhtml +;; +;; Author: Lennart Borgman (lennart O borgman A gmail O com) +;; Created: 2008-07-08T20:17:36+0200 Tue +;; Version: 0.12 +;; Last-Updated: 2008-09-01T01:13:28+0200 Sun +;; URL: +;; Keywords: +;; Compatibility: +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Commentary: +;; +;; Defines `nxhtmltest-run'. When (getenv "nxhtmltest-run-Q") +;; returns non-nil also runs this function. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Change log: +;; +;; Added code from Christian Ohler for writing ert tests. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;; This program 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 2, or +;; (at your option) any later version. +;; +;; This program 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 this program; see the file COPYING. If not, write to +;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth +;; Floor, Boston, MA 02110-1301, USA. +;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Code: + +;;(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl)) +(eval-when-compile (require 'rng-valid)) +(eval-when-compile (require 'rngalt)) +(require 'mumamo) +(require 'mumamo-fun) +(require 'nxhtml) +(require 'nxhtml-mumamo) +(when (fboundp 'nxml-mode) + (require 'rng-valid) + (require 'rngalt)) + +(setq debug-on-error t) + +(defvar nxhtmltest-ert-default-selector "nxhtml-ert-" + "Set this to run a single test with `nxhtmltest-run-Q'.") + +(defvar nxhtmltest-bin + (file-name-directory (if load-file-name load-file-name buffer-file-name))) + +(pushnew nxhtmltest-bin load-path) +(require 'nxhtmltest-helpers) +;;(require 'ert) + +(defvar nxhtmltest-files-root + (let* ((this-dir nxhtmltest-bin) + (root (expand-file-name "in/" this-dir))) + (unless (file-accessible-directory-p root) + (error (if (file-exists-p root) + "Can't read files in test directory %s" + "Can't find test directory %s") + root)) + root)) + +(let ((distr-in "c:/EmacsW32/nxhtml/tests/in/")) + (when (file-directory-p distr-in) + (setq nxhtmltest-files-root distr-in))) + +;; (setq nxhtmltest-update-method +;; ;;'font-lock-wait +;; 'font-lock-run-timers +;; ;;'font-lock-fontify-buffer +;; ) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Define tests using ert.el + +(ert-deftest nxhtml-ert-bug531328 () + "Test of eRuby chunks with nothing between." + (ert-with-temp-buffer-include-file "bug531328.rhtml" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(eruby-html-mumamo-mode) t) + (nxhtmltest-get-fontification-method) + (nxhtmltest-fontify-default-way 2 "trans") + (ert-simulate-command '(goto-char 12) t) + (ert-should (eq major-mode 'ruby-mode)) + )) + +(ert-deftest nxhtml-ert-indent-bug-johan-2010-02-17() + "Test of eRuby indentation. +Got a bug report by mail on the emacs-on-rails list." + (ert-with-temp-buffer-include-file "bug-johan-2010-02-17.erb" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(eruby-html-mumamo-mode) t) + (nxhtmltest-fontify-default-way 2 "trans") + (ert-simulate-command '(mark-whole-buffer) t) + (ert-simulate-command '(indent-for-tab-command) t) + (nxhtmltest-goto-line 1) (ert-should (= 0 (current-indentation))) + (nxhtmltest-goto-line 2) (ert-should (= 2 (current-indentation))) + (nxhtmltest-goto-line 3) (ert-should (= 0 (current-indentation))) + )) + +(ert-deftest nxhtml-ert-indent-bug-johan-2010-02-12() + "Test of eRuby indentation. +Got a bug report by mail on the emacs-on-rails list." + (ert-with-temp-buffer-include-file "bug-johan-2010-02-12.rhtml" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(eruby-html-mumamo-mode) t) + (nxhtmltest-fontify-default-way 2 "trans") + (ert-simulate-command '(mark-whole-buffer) t) + (ert-simulate-command '(indent-for-tab-command) t) + (nxhtmltest-goto-line 12) (ert-should (= 2 (current-indentation))) + )) + +;;(setq nxhtmltest-ert-default-selector "nxhtml-ert-indent-rr-min8") +(ert-deftest nxhtml-ert-indent-rr-min8 () + "Test of indentation bug. +As per Richard Riley's bug report 2009-10-08. Last line gave an +error." + (ert-with-temp-buffer-include-file "rr-min8.php" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(nxhtml-mumamo-mode) t) + (nxhtmltest-fontify-default-way 2 "trans") + (ert-simulate-command '(mark-whole-buffer) t) + (ert-simulate-command '(indent-for-tab-command) t))) + +;;(setq nxhtmltest-ert-default-selector "nxhtml-ert-bug-400415") +(ert-deftest nxhtml-ert-bug-400415-foo2 () + "Test for changes before in-here-doc using 400415. +See URL `https://bugs.launchpad.net/nxhtml/+bug/400415'. This is +not the bug reported there however." + (ert-with-temp-buffer-include-file "bug400415-foo2.php" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(nxhtml-mumamo-mode) t) + (nxhtmltest-fontify-default-way 2 "trans") + (ert-simulate-command '(goto-char 74) t) + (ert-should (eq major-mode 'sql-mode)) + (ert-simulate-command '(goto-char 23) t) + (ert-simulate-command '(backward-delete-char-untabify 1) t) + (ert-simulate-command '(goto-char 74) t) + (ert-should (eq major-mode 'sql-mode)) + )) + +(ert-deftest nxhtml-ert-bug-300946-index () + "Test for bug 300946 in Launchpad. +See URL `https://bugs.launchpad.net/nxhtml/+bug/300946'. This is +a test for the file attached by Chris on 2008-12-02." + (ert-with-temp-buffer-include-file "bug-300946-index.html" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(nxhtml-mumamo-mode) t) + (font-lock-mode 1) + )) + +(ert-deftest nxhtml-ert-indent-bug290364 () + "Test for bug 290364 in Launchpad. +See URL `https://bugs.launchpad.net/nxhtml/+bug/290364'. + +Note: If this test fails Emacs loops. Therefore the whole test +is included in a when clause so you can avoid it easily." + ;;(when t + (ert-with-temp-buffer-include-file "bug-290364.php" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(nxhtml-mumamo-mode) t) + (font-lock-mode 1) + )) +;) + +(ert-deftest nxhtml-ert-indent-bug271497 () + "Test for bug 271497 in Launchpad. +This is a bug in Emacs 22. It should work in Emacs 23 though. +See URL `https://bugs.launchpad.net/nxhtml/+bug/271497'." + (ert-with-temp-buffer-include-file "bug271497.txt" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (load-file (ert-get-test-file-name "bug271497.el")) + (ert-simulate-command '(bug271497-mumamo) t) + ;;(font-lock-mode 1) + (nxhtmltest-fontify-default-way 2 "trans") + (ert-simulate-command '(goto-char 42) t) + (message "after goto-char 42") + (let ((ac42 after-change-functions) + ac88) + (ert-simulate-command '(goto-char 88) t) + (message "after goto-char 88") + (setq ac88 after-change-functions) + (ert-should (not (equal ac88 ac42)))))) + +(ert-deftest nxhtml-ert-indent-question43320 () + "Test for question 43320 in Launchpad. +See URL `https://answers.launchpad.net/nxhtml/+question/43320'. + +Note: This fails in Emacs 22, but should work in Emacs 23." +;; I did see some problem here: + +;; - nXhtml 081222 + unpatched Emacs 081219 => ok +;; - nXhtml 081222 + unpatched Emacs 081124 => ok +;; - nXhtml 081222 + patched Emacs 081219 => ok + +;; - nXhtml 081222 + patched Emacs 081124 => ok, but it fails if I +;; use `nxhtmltest-run-Q'! I e, it fails if the autostart.el from +;; the nxhtml dir in 081222 is used - but not if the copy in +;; c:/EmacsW32 is used??? Which turned out to be if the old +;; php-mode was used ... + + (ert-with-temp-buffer-include-file "question43320.html" + (add-hook 'ert-simulate-command-post-hook + 'nxhtmltest-should-no-mumamo-errors + nil t) + (ert-simulate-command '(nxhtml-mumamo-mode) t) + (font-lock-mode 1) + (nxhtmltest-goto-line 25) (ert-should (/= 14 (current-indentation))) + (put 'mumamo-submode-indent-offset-0 'permanent-local t) + (put 'mumamo-submode-indent-offset 'permanent-local t) + ;; + ;;(set (make-local-variable 'mumamo-submode-indent-offset-0) nil) + (set (make-local-variable 'mumamo-submode-indent-offset-0) 0) + (set (make-local-variable 'mumamo-submode-indent-offset) nil) + ;;(set (make-local-variable 'mumamo-submode-indent-offset) 2) + (ert-simulate-command '(mark-whole-buffer) t) + (ert-simulate-command '(indent-for-tab-command) t) + (nxhtmltest-goto-line 8) (ert-should (= 8 (current-indentation))) + (nxhtmltest-goto-line 9) (ert-should (= 0 (current-indentation))) + (nxhtmltest-goto-line 15) (ert-should (= 8 (current-indentation))) + (nxhtmltest-goto-line 16) (ert-should (= 8 (current-indentation))) + (nxhtmltest-goto-line 22) (ert-should (= 6 (current-indentation))) + (nxhtmltest-goto-line 25) (ert-should (= 4 (current-indentation))) + (nxhtmltest-goto-line 8) (indent-line-to 0) + ;;(message "before indent-for-tab-command") + (ert-simulate-command '(indent-for-tab-command) t) + ;;(message "after indent-for-tab-command") + (ert-should (= 8 (current-indentation))) + ;; + (set (make-local-variable 'mumamo-submode-indent-offset-0) 0) + (set (make-local-variable 'mumamo-submode-indent-offset) 2) + (ert-simulate-command '(mark-whole-buffer) t) + (ert-simulate-command '(indent-for-tab-command) t) + (nxhtmltest-goto-line 8) (ert-should (= 8 (current-indentation))) + (nxhtmltest-goto-line 9) (ert-should (= 10 (current-indentation))) + (nxhtmltest-goto-line 15) (ert-should (= 8 (current-indentation))) + (nxhtmltest-goto-line 16) (ert-should (= 8 (current-indentation))) + (nxhtmltest-goto-line 22) (ert-should (= 16 (current-indentation))) + (nxhtmltest-goto-line 25) (ert-should (= 14 (current-indentation))) + )) + +(ert-deftest nxhtml-ert-only-php-no-end () + "Check for nXml error." + (ert-with-temp-buffer-include-file "no-php-end-4.php" + (nxhtml-mumamo-mode) + (run-hooks 'after-change-major-mode-hook) + (run-hooks 'post-command-hook) + (nxhtmltest-fontify-default-way 2 "trans") + (rng-validate-mode 1) + ;;(rngalt-validate) + (ert-should (eq rng-validate-mode t)) + (nxhtmltest-should-no-mumamo-errors) + (nxhtmltest-should-no-nxml-errors) + (goto-char 324) + (message "before insert, after-change-functions local=%s" after-change-functions) + (insert "\n") + (nxhtmltest-should-no-mumamo-errors) + (nxhtmltest-should-no-nxml-errors))) + +(ert-deftest nxhtml-ert-xhtml-1.0-transitional () + "Test XHTML 1.0 Transitional with `nxhtml-mumamo-mode'. +NOTICE: This test SHOULD FAIL because there is currently no rng +schema for transitional. The schema for strict is used instead +and the file is invalid then." + (ert-with-temp-buffer-include-file "lg-080813-label.html" + (nxhtml-mumamo-mode) + (nxhtmltest-fontify-default-way 2 "trans") + (rng-validate-mode 1) + (rngalt-validate) + (ert-should (eq rng-validate-mode t)) + (nxhtmltest-should-no-mumamo-errors) +;;; (ert-should +;;; (not (eq (get-char-property 398 'category) +;;; 'rng-error))) + (ert-should + (eq (get-text-property 398 'face) + 'font-lock-function-name-face)) + (ert-should-not + (= 0 rng-error-count)) + )) + +(ert-deftest nxhtml-ert-genshi-valid-in-genshi () + (ert-with-temp-buffer-include-file "genshi-auto-mode.html" + (message "\n") + (genshi-nxhtml-mumamo-mode) + (font-lock-mode 1) + (mumamo-post-command) + (ert-should (eq font-lock-mode t)) + (ert-should (eq major-mode 'nxhtml-genshi-mode)) + (ert-should + (memq mumamo-multi-major-mode '(genshi-nxhtml-mumamo-mode + genshi-html-mumamo-mode))) + (nxhtmltest-fontify-default-way 2 "sheit") + (rng-validate-mode 1) + (rngalt-validate) + (ert-should (eq rng-validate-mode t)) + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (= 0 rng-error-count)))) + +(ert-deftest nxhtml-ert-genshi-invalid-in-nxhtml () + (ert-with-temp-buffer-include-file "genshi-auto-mode.html" + (message "\n") + (nxhtml-mumamo-mode) + (nxhtmltest-fontify-default-way 2 "sheit") + (font-lock-mode 1) + (mumamo-post-command) + (rng-validate-mode 1) + (rngalt-validate) + (ert-should (eq rng-validate-mode t)) + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (= 2 rng-error-count)))) + +(ert-deftest nxhtml-ert-genshi-magic-mode () + "Test if genshi file is recognized." + (let ((file1 (ert-get-test-file-name "genshi-auto-mode.html")) + buf1) + ;; Ensure we open the files + (setq buf1 (find-buffer-visiting file1)) + (when buf1 (kill-buffer buf1)) + ;; Open file 1 + (setq buf1 (find-file file1)) + (nxhtmltest-fontify-default-way 2 "mod") + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (with-current-buffer buf1 + (memq mumamo-multi-major-mode '(genshi-nxhtml-mumamo-mode + genshi-html-mumamo-mode)))) + (kill-buffer buf1))) + +(ert-deftest nxhtml-ert-genshi-auto-mode () + "Test if file extension .ghtml is recognized." + (let ((file1 (ert-get-test-file-name "genshi-HelloWorldPage.ghtml")) + buf1) + ;; Ensure we open the files + (setq buf1 (find-buffer-visiting file1)) + (when buf1 (kill-buffer buf1)) + ;; Open file 1 + (setq buf1 (find-file file1)) + (nxhtmltest-fontify-default-way 2 "mod") + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (with-current-buffer buf1 + (memq mumamo-multi-major-mode '(genshi-nxhtml-mumamo-mode + genshi-html-mumamo-mode)))) + (kill-buffer buf1))) + +(ert-deftest nxhtml-ert-opened-modified () + "Test if buffer get modified when opening a file." + (let ((file1 (ert-get-test-file-name "cvd-080805-ac.php")) + (file2 (ert-get-test-file-name "cvd-080805-cc.php")) + buf1 + buf2) + ;; Ensure we open the files + (setq buf1 (find-buffer-visiting file1)) + (when buf1 (kill-buffer buf1)) + (setq buf2 (find-buffer-visiting file2)) + (when buf2 (kill-buffer buf2)) + ;; Open file 1 + (setq buf1 (find-file file1)) + (nxhtmltest-fontify-default-way 2 "mod") + (nxhtmltest-should-no-mumamo-errors) + ;; Open file 2 + (setq buf2 (find-file file2)) + (nxhtmltest-fontify-default-way 2 "mod") + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (not (or (buffer-modified-p buf1) + (buffer-modified-p buf2)))) + (kill-buffer buf1) + (kill-buffer buf2))) + +(ert-deftest nxhtml-ert-wiki-strange-hili-080629 () + "From a report on EmacsWiki." + (ert-with-temp-buffer-include-file "wiki-strange-hili-080629.html" + ;;(ert-should (not font-lock-mode)) + (nxhtml-mumamo-mode) + ;;(ert-should (not font-lock-mode)) + (nxhtmltest-fontify-default-way 2 "hili") + (goto-char 44) + (nxhtmltest-should-no-mumamo-errors) + (message "face at 44=%s" (get-text-property 44 'face)) + (ert-should + (eq (get-text-property 44 'face) + 'font-lock-function-name-face)))) + +(ert-deftest nxhtml-ert-indent-wiki-080708-ind-problem () + (ert-with-temp-buffer-include-file "wiki-080708-ind-problem.rhtml" + (require 'ruby-mode nil t) + (if (not (featurep 'ruby-mode)) + ;; Fix-me: ert should maybe have some way to just display + ;; informational messages? + (error "ruby-mode not available, skipping test") + ;;(ert-should (not font-lock-mode)) + (eruby-nxhtml-mumamo-mode) + ;;(ert-should (not font-lock-mode)) + (nxhtmltest-fontify-default-way 2 "ind") + (mark-whole-buffer) + (indent-for-tab-command) + (nxhtmltest-goto-line 3) + (nxhtmltest-should-no-mumamo-errors) + (ert-should (= (current-indentation) 0))))) + +(ert-deftest nxhtml-ert-indent-wiki-080708-ind-problem-a () + "From a report on EmacsWiki. +NOTICE: This SHOULD FAIL. There is currently no support for the +kind of indentation needed here. + +Notice 2: For some reason I sometimes get the error overlayp, nil +here." + (ert-with-temp-buffer-include-file "wiki-080708-ind-problem.rhtml" + (require 'ruby-mode nil t) + (if (not (featurep 'ruby-mode)) + (error "ruby-mode not available, skipping test") + ;;(ert-should (not font-lock-mode)) + (eruby-nxhtml-mumamo-mode) + ;;(ert-should (not font-lock-mode)) + (nxhtmltest-fontify-default-way 2 "ind") + (insert " ") + (mark-whole-buffer) + (indent-for-tab-command) + (nxhtmltest-goto-line 3) + ;; Test + (nxhtmltest-should-no-mumamo-errors) + (ert-should-not (= (current-indentation) 2))))) + +(ert-deftest nxhtml-ert-sheit-2007-12-26 () + (ert-with-temp-buffer-include-file "sheit-2007-12-26.php" + ;;(ert-should (not font-lock-mode)) + (nxhtml-mumamo-mode) + ;;(ert-should (not font-lock-mode)) + (nxhtmltest-fontify-default-way 2 "sheit") + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (and + (eq (get-text-property 21 'face) + 'font-lock-comment-face) + (eq (get-text-property 22 'face) + 'font-lock-comment-face) + (eq (get-text-property 35 'face) + 'font-lock-comment-face))))) + + +;; Now some tests with a big file. Jumping backwards can fail. + +(defun nxhtml-ert-nxhtml-changes-jump-back-2 (pos) + ;;(ert-should (not font-lock-mode)) + (nxhtml-mumamo-mode) + (run-hooks 'post-command-hook) + ;;(ert-should (not font-lock-mode)) + (goto-char (- (point-max) (- 64036 63869))) + (nxhtmltest-fontify-default-way 2) + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (eq (get-text-property (point) 'face) + 'font-lock-variable-name-face)) + (message "here 1") + (goto-char pos) + (nxhtmltest-fontify-default-way 2) + (nxhtmltest-should-no-mumamo-errors) + (message "here 2") + (ert-should + (eq (get-text-property (point) 'face) + 'font-lock-function-name-face))) + +;; Fix-me: forgot to copy nxhtml-changes.html. I can't find any +;; similar error now. +;; +;; (ert-deftest nxhtml-ert-nxhtml-changes-jump-back-7014-2 () +;; "this is a docstring. +;; wonder how that works now ..." +;; (ert-with-temp-buffer-include-file "../../nxhtml/doc/nxhtml-changes.html" +;; (nxhtml-ert-nxhtml-changes-jump-back-2 7014))) + +;; (ert-deftest nxhtml-ert-nxhtml-changes-jump-back-10488-2 () +;; (ert-with-temp-buffer-include-file "../../nxhtml/doc/nxhtml-changes.html" +;; (nxhtml-ert-nxhtml-changes-jump-back-2 10488))) + +;; (ert-deftest nxhtml-ert-nxhtml-changes-jump-2 () +;; (ert-with-temp-buffer-include-file "../../nxhtml/doc/nxhtml-changes.html" +;; ;;(ert-should (not font-lock-mode)) +;; (nxhtml-mumamo-mode) +;; ;;(ert-should (not font-lock-mode)) +;; (goto-char 10420) +;; (nxhtmltest-fontify-default-way 2 "jump-2") +;; (nxhtmltest-should-no-mumamo-errors) +;; (ert-should +;; (eq (get-text-property (point) 'face) +;; 'font-lock-variable-name-face)))) + +;;; Indentation tests + +(ert-deftest nxhtml-ert-php-indent-bug-1 () + "Test indentation in php only file. +The indentation on line 7 should be 0." + (ert-with-temp-buffer-include-file "only-php.php" + (nxhtml-mumamo-mode) + ;; No fontification needed for indentation. + (nxhtmltest-goto-line 7) + (indent-for-tab-command) + (nxhtmltest-should-no-mumamo-errors) + (ert-should + (= 0 + (current-indentation))))) + +;;; Scroll tests + +;; (ert-deftest nxhtml-ert-scroll-jump-test () +;; "Test if `scroll-conservatively' eq 1 works." +;; (ert-with-temp-buffer-include-file "../../nxhtml/doc/nxhtml-changes.html" +;; (ert-should (not font-lock-mode)) +;; (nxhtml-mumamo-mode) +;; (ert-should (not font-lock-mode)) +;; (nxhtmltest-fontify-default-way 2 "jump-2") +;; (let ((scroll-conservatively 1) +;; (ws (list (window-start))) +;; (xi (loop for ii from 1 to 100 by 1 +;; do +;; (next-line) +;; (sit-for 0.01) +;; collect (list (window-start) +;; (let ((here (point))) +;; (goto-char (window-start)) +;; (prog1 (line-end-position) +;; (goto-char here))) +;; (point)) +;; )) +;; (jumps 0) +;; prev-win-start +;; prev-win-start-le +;; ) +;; (loop for xx in xi +;; do +;; (message "xx=%s" xx) +;; (let ((win-start (nth 0 xx)) +;; (win-start-le (nth 1 xx)) +;; (cur-point (nth 2 xx))) +;; (unless (or (not prev-win-start) +;; (= prev-win-start win-start) +;; (= (1+ prev-win-start-le) win-start)) +;; (setq jumps (1+ jumps))) +;; (setq prev-win-start win-start) +;; (setq prev-win-start-le win-start-le) +;; ) +;; ) +;; (ert-should (= 0 jumps)) +;; ))) + +;;(defvar ert-error-on-test-redefinition nil) + +;;; End of test definitions +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + +(defun nxhtmltest-run-ert (selector) + "Run test with ert library." + (unless selector (setq selector nxhtmltest-ert-default-selector)) + (setq ert-test-files-root nxhtmltest-files-root) + (if noninteractive + (ert-run-tests-batch selector) + (ert-kill-temp-test-buffers) + (ert-run-tests-interactively selector) + (other-window 1) + (ert-list-temp-test-buffers))) + +;;;###autoload +(defun nxhtmltest-run-indent () + "Run indentation tests." + (interactive) + (setq ert-test-files-root nxhtmltest-files-root) + (let ((selector "nxhtml-ert-indent-")) + (ert-kill-temp-test-buffers) + (nxhtmltest-get-fontification-method) + (ert-run-tests-interactively selector)) + (other-window 1) + (ert-list-temp-test-buffers)) + +;;;###autoload +(defun nxhtmltest-run () + "Run all tests defined for nXhtml. +Currently there are only tests using ert.el defined. + +Note that it is currently expected that the following tests will +fail (they corresponds to known errors in nXhtml/Emacs): + + `nxhtml-ert-nxhtml-changes-jump-back-10549' + `nxhtml-ert-nxhtml-changes-jump-back-7014' +" + (interactive) + (setq message-log-max t) + (when (called-interactively-p) + (nxhtmltest-get-fontification-method)) + (nxhtmltest-run-ert nil)) + +(when (getenv "nxhtmltest-run-Q") + (nxhtmltest-run)) + +(provide 'nxhtmltest-suites) +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; nxhtmltest-suites.el ends here |