[elpa] 99/287: Remove ergoemacs-test.el

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 45297f2793ed038bdea10f9a68648da4c58b75a5
Author: Matthew L. Fidler <address@hidden>
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: