From 0d342f0aee3f2f800e486c0051dabe718a7b2841 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Wed, 23 Mar 2011 11:14:27 +0100 Subject: I don't like nxhtml --- emacs.d/nxhtml/tests/emacstest-suites.el | 102 ------------------------------- 1 file changed, 102 deletions(-) delete mode 100644 emacs.d/nxhtml/tests/emacstest-suites.el (limited to 'emacs.d/nxhtml/tests/emacstest-suites.el') diff --git a/emacs.d/nxhtml/tests/emacstest-suites.el b/emacs.d/nxhtml/tests/emacstest-suites.el deleted file mode 100644 index 5953fac..0000000 --- a/emacs.d/nxhtml/tests/emacstest-suites.el +++ /dev/null @@ -1,102 +0,0 @@ -;;; emacstest-suites.el --- Some unit tests for Emacs -;; -;; Author: Lennart Borgman (lennart O borgman A gmail O com) -;; Created: 2008-09-21T22:34:11+0200 Sun -;; Version: -;; Last-Updated: 2008-09-22T00:36:11+0200 Sun -;; URL: -;; Keywords: -;; Compatibility: -;; -;; Features that might be required by this library: -;; -;; `button', `cl', `debug', `ert', `ert2', `ewoc', `find-func', -;; `help-fns', `help-mode', `view'. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Commentary: -;; -;; Unit tests for some Emacs bug reports. -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;;; Change log: -;; -;; -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; -;; 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 - (let* ((this-file (or load-file-name - (when (boundp 'bytecomp-filename) bytecomp-filename) - buffer-file-name)) - (this-dir (file-name-directory this-file)) - (load-path (cons this-dir load-path))) - (require 'ert2))) - -(setq debug-on-error t) - -(defvar emacstest-bin - (file-name-directory (if load-file-name load-file-name buffer-file-name))) - -(pushnew emacstest-bin load-path) - - - -(defvar emacstest-files-root - (let* ((this-dir emacstest-bin) - (root (expand-file-name "inemacs/" 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/inemacs/")) - (when (file-directory-p distr-in) - (setq emacstest-files-root distr-in))) - -(defun emacstest-run () - "Run Emacs tests." - (interactive) - (setq message-log-max t) - (setq ert-test-files-root emacstest-files-root) - (let ((selector "emacs-")) - (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)))) - -(ert-deftest emacs-bug1013 () - "Emacs bug 1013. -See URL -`http://emacsbugs.donarmstrong.com/cgi-bin/bugreport.cgi?bug=1013'." - (ert-with-temp-buffer-include-file "bug1013.el" - (eval-buffer))) - -(provide 'emacstest-suites) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; emacstest-suites.el ends here -- cgit v1.2.3-54-g00ecf