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, 0 insertions, 632 deletions
diff --git a/emacs.d/nxhtml/tests/nxhtmltest-suites.el b/emacs.d/nxhtml/tests/nxhtmltest-suites.el deleted file mode 100644 index 5af8ab8..0000000 --- a/emacs.d/nxhtml/tests/nxhtmltest-suites.el +++ /dev/null @@ -1,632 +0,0 @@ -;;; 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 |