[elpa] externals/ergoemacs-mode bc28407 019/325: Remove icicles tests

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit bc284079b49002fb5d719957e78117f334296e51
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove icicles tests
---
 ergoemacs-test.el | 82 -------------------------------------------------------
 1 file changed, 82 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 6cfe081..f7d8b417 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -1205,45 +1205,6 @@ Should test issue #142"
 
 (defvar ergoemacs-component-hash)
 
-(ert-deftest ergoemacs-test-397-test-4 ()
-  "Test M-s is switch pane."
-  :tags '(:slow :icicles :interactive)
-  (let* ((emacs-exe (ergoemacs-emacs-exe))
-         (w-file (expand-file-name "global-test" ergoemacs-dir))
-         (temp-file (make-temp-file "ergoemacs-test" nil ".el")))
-    (with-temp-file temp-file
-      (insert "(add-to-list 'load-path \"" (expand-file-name 
(file-name-directory (locate-library "ergoemacs-mode"))) "\")"
-             "(add-to-list 'load-path \"" (expand-file-name 
(file-name-directory (locate-library "icicles"))) "\")"
-       "(eval-when-compile (require 'ergoemacs-macros) (require 'cl-lib))"
-              (or (and (boundp 'wait-for-me)
-                       "(setq debug-on-error t debug-on-quit t)") "")
-             "(setq ergoemacs-theme nil)"
-             "(setq ergoemacs-keyboard-layout \"us\")"
-             "(require 'icicles)\n"
-             "(require 'ergoemacs-mode)\n"
-              "(ergoemacs-mode 1)\n"
-             "(setq icicle-search-key-prefix (kbd \"C-f\"))\n"
-             "(icy-mode 1)\n"
-              "(when (eq (key-binding (kbd \"M-s\")) 
'ergoemacs-move-cursor-next-pane)\n"
-              "(with-temp-file \"" w-file "\")\n"
-              "   (message \"Passed\")"
-              "  (insert \"Found\"))\n"
-              (or (and (boundp 'wait-for-me) "")
-                  "(kill-emacs)")))
-    (byte-compile-file temp-file)
-    (message "%s"
-             (shell-command-to-string
-              (format "%s %s -Q -l %s"
-                      emacs-exe (if (boundp 'wait-for-me) "-debug-init" 
"--batch")                      
-                      temp-file)))
-    (should (file-exists-p w-file))
-    (when  (file-exists-p temp-file)
-      (delete-file temp-file))
-    (when  (file-exists-p (concat temp-file "c"))
-      (delete-file (concat temp-file "c")))
-    (when (file-exists-p w-file)
-      (delete-file w-file))))
-
 (ert-deftest ergoemacs-test-397-test-2 ()
   "Test that defining C-SPC after ergoemacs-mode loads will give 
`set-mark-command'."
   :tags '(:slow)
@@ -1782,49 +1743,6 @@ hash appropriaetly."
   :tags '(:translate :interactive)
   (should (eq (lookup-key (ergoemacs ergoemacs-translate--parent-map) (or (and 
(eq system-type 'windows-nt) [apps]) [menu])) 
'ergoemacs-command-loop--swap-translation)))
 
-(ert-deftest ergoemacs-test-407 ()
-  "Test M-s is switch pane."
-  :tags '(:require-input :interactive)
-  (let* ((emacs-exe (ergoemacs-emacs-exe))
-         (w-file (expand-file-name "global-test" ergoemacs-dir))
-         (temp-file (make-temp-file "ergoemacs-test" nil ".el")))
-    (with-temp-file temp-file
-      (insert "(add-to-list 'load-path \"" (expand-file-name 
(file-name-directory (locate-library "ergoemacs-mode"))) "\")"
-             "(add-to-list 'load-path \"" (expand-file-name 
(file-name-directory (locate-library "icicles"))) "\")"
-       "(eval-when-compile (require 'ergoemacs-macros) (require 'cl-lib))"
-              (or (and (boundp 'wait-for-me)
-                       "(setq debug-on-error t debug-on-quit t)") "")
-             "(setq ergoemacs-theme nil)"
-             "(setq ergoemacs-keyboard-layout \"us\")"
-             "(require 'ergoemacs-mode)\n"
-              "(ergoemacs-mode 1)\n"
-             "(require 'icicles)\n"
-             "(icy-mode 1)\n"
-              "(ergoemacs-theme-component reclaim-C-f ()\n"
-              "  \"We need to give at least one sequence to reclaim C-f from 
isearch and get the new icicle-search-key-prefix picked up.\"\n"
-             "(global-set-key (kbd \"C-f .\") 
'isearch-forward-symbol-at-point))"
-              "(ergoemacs-require 'reclaim-C-f)"
-              "(setq icicle-search-key-prefix (kbd \"C-f\"))"
-             "(defun test-freeze ()\n"
-             "(interactive)\n"
-             "(yes-or-no-p \"Are you sure you want to remove this file? \"))"
-             "(global-set-key (kbd \"C-1\") 'test-freeze)"
-             "(insert \"Try C-1 to see if emacs freezes.\\nThen try M-a 
test-freeze.\\nM-a calc, do something and then exit with q it should exit\nMake 
sure M-o goes forward word in icy ergoemacs-mode.\")"
-              ;; (or (and (boundp 'wait-for-me) "")
-              ;;     "(kill-emacs)")
-             ))
-    (byte-compile-file temp-file)
-    (message "%s"
-             (shell-command-to-string
-              (format "%s %s -Q -l %s"
-                      emacs-exe "-debug-init"                      
-                      temp-file)))
-    
-    (when  (file-exists-p temp-file)
-      (delete-file temp-file))
-    (when  (file-exists-p (concat temp-file "c"))
-      (delete-file (concat temp-file "c")))))
-
 ;;; minibuffer tests...
 ;;; Related to: 
http://emacs.stackexchange.com/questions/10393/how-can-i-answer-a-minibuffer-prompt-from-elisp