mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 45297f2793ed038bdea10f9a68648da4c58b75a5 Author: Matthew L. Fidler <[email protected]> Date: Mon Jun 16 10:47:29 2014 -0500 Remove ergoemacs-test.el --- ergoemacs-functions.el | 27 ++++++++++++++++++++ ergoemacs-mode.el | 3 -- ergoemacs-test.el | 64 ------------------------------------------------ 3 files changed, 27 insertions(+), 67 deletions(-) diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el index 4f7c7d1..fd0d88d 100644 --- a/ergoemacs-functions.el +++ b/ergoemacs-functions.el @@ -2115,6 +2115,33 @@ See also `ergoemacs-lookup-word-on-internet'." ergoemacs-emulation-mode-map-alist)) +;; Ergoemacs Test suite + +(defvar ergoemacs-test-lorem-ipsum + "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed +do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut +enim ad minim veniam, quis nostrud exercitation ullamco laboris +nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in +reprehenderit in voluptate velit esse cillum dolore eu fugiat +nulla pariatur. Excepteur sint occaecat cupidatat non proident, +sunt in culpa qui officia deserunt mollit anim id est laborum.") + +(defun ergoemacs-test () + "Test ergoemacs issues." + (interactive) + (require 'ert) + (require 'elp) + (let ((ret t) + (test)) + (when nil + (message "Updating for the current version of emacs") + (ergoemacs-warn-globally-changed-keys t)) + (dolist (f (directory-files (concat ergoemacs-dir "test") nil "ergoemacs-test-.*el$")) + (load (concat ergoemacs-dir "test/" (replace-regexp-in-string "\\.el$" "" f)))) + (elp-instrument-package "ergoemacs-") + (ert "^ergoemacs-test-") + (call-interactively 'elp-results))) + (provide 'ergoemacs-functions) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ergoemacs-functions.el ends here diff --git a/ergoemacs-mode.el b/ergoemacs-mode.el index 1464a00..431e21e 100644 --- a/ergoemacs-mode.el +++ b/ergoemacs-mode.el @@ -808,9 +808,6 @@ These hooks are deferred to make sure `this-command' is set appropriately.") (setq ergoemacs-single-command-keys nil)) t) -(unless (fboundp 'ergoemacs-test) - (autoload 'ergoemacs-test (expand-file-name "ergoemacs-test.el" ergoemacs-dir) nil t)) - (provide 'ergoemacs-mode) ;;; ergoemacs-mode.el ends here diff --git a/ergoemacs-test.el b/ergoemacs-test.el deleted file mode 100644 index 13f72f0..0000000 --- a/ergoemacs-test.el +++ /dev/null @@ -1,64 +0,0 @@ -;;; ergoemacs-test.el --- tests for ErgoEmacs issues - -;; Copyright (C) 2013, 2014 Free Software Foundation, Inc. - -;; Maintainer: Matthew L. Fidler -;; Keywords: convenience - -;; ErgoEmacs 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. - -;; ErgoEmacs 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 ErgoEmacs. If not, see <http://www.gnu.org/licenses/>. - -;;; Commentary: - -;; - -;; Todo: - -;; - -;;; Code: - -(setq ergoemacs-dir (file-name-directory (or load-file-name (buffer-file-name)))) - -(require 'ert) -(require 'elp) -(defvar ergoemacs-test-lorem-ipsum - "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed -do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut -enim ad minim veniam, quis nostrud exercitation ullamco laboris -nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in -reprehenderit in voluptate velit esse cillum dolore eu fugiat -nulla pariatur. Excepteur sint occaecat cupidatat non proident, -sunt in culpa qui officia deserunt mollit anim id est laborum.") - -;;;###autoload -(defun ergoemacs-test () - "Test ergoemacs issues." - (interactive) - (let ((ret t) - (test)) - (when nil - (message "Updating for the current version of emacs") - (ergoemacs-warn-globally-changed-keys t)) - (dolist (f (directory-files (concat ergoemacs-dir "test") nil "ergoemacs-test-.*el$")) - (load (concat ergoemacs-dir "test/" (replace-regexp-in-string "\\.el$" "" f)))) - (elp-instrument-package "ergoemacs-") - (ert "^ergoemacs-test-") - (call-interactively 'elp-results))) - -(provide 'ergoemacs-test) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;;; ergoemacs-test.el ends here -;; Local Variables: -;; coding: utf-8-emacs -;; End:
