[elpa] 117/287: Take out compiler errors from ergoemacs-test

[Matthew Fidler]

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

commit bff6a419b803cd7e4f02d67b3a65427d5c119a69
Author: Matthew L. Fidler <address@hidden>
Date:   Tue Jun 17 15:08:18 2014 -0500

    Take out compiler errors from ergoemacs-test
---
 ergoemacs-test.el |   23 +++++++++++++++--------
 1 files changed, 15 insertions(+), 8 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 0de7dcb..6146eb5 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -28,10 +28,6 @@
 
 ;;; Code:
 
-(setq ergoemacs-dir (file-name-directory (or load-file-name 
(buffer-file-name))))
-(when (not (featurep 'ergoemacs-mode))
-  (load (expand-file-name "ergoemacs-mode" ergoemacs-dir)))
-
 (require 'ert)
 (require 'elp)
 (defvar ergoemacs-test-lorem-ipsum
@@ -56,6 +52,9 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
     (ert "^ergoemacs-test-")
     (call-interactively 'elp-results)))
 
+(defvar ergoemacs-keyboard-layout)
+(defvar ergoemacs-theme)
+(declare-function ergoemacs-mode "ergoemacs-mode.el")
 (ert-deftest ergoemacs-test-google-code-145 ()
   "Backspace doesn't work in `isearch-mode'."
   (let ((old-ergoemacs-theme ergoemacs-theme)
@@ -158,8 +157,9 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
     (ergoemacs-mode 1)
     (should (equal ret t))))
 
-
-
+(defvar ergoemacs-dir)
+(declare-function ergoemacs-emacs-exe "ergoemacs-functions.el")
+(declare-function ergoemacs-shortcut-remap-list "ergoemacs-shortcuts.el")
 (defun ergoemacs-test-global-key-set-before (&optional after key ergoemacs 
ignore-prev-global delete-def)
   "Test the global key set before ergoemacs-mode is loaded."
   (let* ((emacs-exe (ergoemacs-emacs-exe))
@@ -322,6 +322,7 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
   (should (equal (ergoemacs-test-global-key-set-before
                   'after "C-e" 'ergoemacs-key))))
 
+(declare-function ergoemacs-pretty-key-rep "ergoemacs-tranlate.el")
 (ert-deftest ergoemacs-test-ctl-c-ctl-c ()
   "Issue #64.  Should translate C-c C-c correctly."
   (let (ergoemacs-use-unicode-char)
@@ -332,6 +333,7 @@ sunt in culpa qui officia deserunt mollit anim id est 
laborum.")
   (let (ergoemacs-use-unicode-char)
     (should (string= (ergoemacs-pretty-key-rep "helm-M-x test") "helm-M-x 
test"))))
 
+(declare-function ergoemacs-cut-line-or-region "ergoemacs-functions.el")
 (ert-deftest ergoemacs-test-cut-line-or-region ()
   "Issue #68.
 kill-ring function name is used and such doesn't exist. It errs when
@@ -354,6 +356,7 @@ Test next and prior translation."
   (should (string= (ergoemacs-pretty-key-rep "Test next and prior translation")
                    "Test next and prior translation")))
 
+(declare-function ergoemacs-pretty-key "ergoemacs-translate.el")
 (ert-deftest ergoemacs-test-issue-77 ()
   "Issue #77.
 Test \"C-x \" translating to \"[Ctl+X][]\", should be \"[Ctl+X]\""
@@ -425,6 +428,8 @@ Hyper Key mapping no longer works."
     (ergoemacs-mode 1)
     (should ret)))
 
+(declare-function ergoemacs-unchorded-alt-modal "ergoemacs-translate.el"
+                  nil t)
 (ert-deftest ergoemacs-test-modal-preserve-mark ()
   "Issue #101.
 Test next and prior translation."
@@ -457,7 +462,7 @@ Test next and prior translation."
     (ergoemacs-mode 1)
     (should ret)))
 
-
+(defvar ergoemacs-ctl-c-or-ctl-x-delay)
 (ert-deftest ergoemacs-test-issue-130-cut ()
   "Attempts to test Issue #130 -- Cut"
   (let ((ret t)
@@ -470,6 +475,7 @@ Test next and prior translation."
       (setq ret (string= "" (buffer-string))))
     (should ret)))
 
+(declare-function ergoemacs-paste "ergoemacs-functions.el")
 (ert-deftest ergoemacs-test-issue-130-copy ()
   "Attempts to test Issue #130 -- Copy"
   (let ((ret t)
@@ -554,6 +560,7 @@ Issue #137."
       (kill-buffer (current-buffer)))
     (should ret)))
 
+(declare-function ergoemacs-read-key "ergoemacs-shortcuts.el")
 (ert-deftest ergoemacs-test-translations ()
   "Test that unicode translations work.
 See Issue #138."
@@ -845,7 +852,7 @@ Issue #186."
     (ergoemacs-mode 1)
     (should ret)))
 
-
+(declare-function ergoemacs-copy-line-or-region "ergoemacs-functions.el")
 (ert-deftest ergoemacs-test-issue-184-paste ()
   "Issue #184; Not replace the \"selected all\" by paste."
   (let ((ret t)