emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ergoemacs-mode b6ad133 178/325: Remove M-O-fight test.


From: Stefan Monnier
Subject: [elpa] externals/ergoemacs-mode b6ad133 178/325: Remove M-O-fight test. It fails, but the keys work with manual tests
Date: Sat, 23 Oct 2021 18:48:47 -0400 (EDT)

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

    Remove M-O-fight test.  It fails, but the keys work with manual tests
---
 ergoemacs-test.el | 27 ---------------------------
 1 file changed, 27 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index ef7be06..bfdf144 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -587,33 +587,6 @@ See Issue #138."
     (should (string= "Ä" (buffer-string)))
     (kill-buffer (current-buffer))))
 
-(ert-deftest ergoemacs-test-terminal-M-O-fight ()
-  "Tests Issue #188"
-  (let ((old-map (copy-keymap input-decode-map))
-        (ret nil))
-    (ergoemacs-test-layout
-     (setq input-decode-map (make-sparse-keymap))
-     ;; Setup input decode map just like `xterm' for some common keys.
-     (define-key input-decode-map "\eOA" [up])
-     (define-key input-decode-map "\eOB" [down])
-     (define-key input-decode-map "\eOC" [right])
-     (define-key input-decode-map "\eOD" [left])
-     (define-key input-decode-map "\eOF" [end])
-     (define-key input-decode-map "\eOH" [home])
-     (save-excursion
-       (switch-to-buffer (get-buffer-create "*ergoemacs-test*"))
-       (delete-region (point-min) (point-max))
-       (insert ergoemacs-test-lorem-ipsum)
-       (goto-char (point-max))
-       (beginning-of-line)
-       (with-timeout (0.2 nil)
-         (ergoemacs-command-loop--internal "M-O A")) ; by looking at 
`ergoemacs-read-key' this seems to be translating correctly, but... it doesn't 
run in this context.
-       (message "Decode: %s" (lookup-key input-decode-map (kbd "M-O A")))
-       (setq ret (looking-at "nulla pariatur. Excepteur sint occaecat 
cupidatat non proident,"))
-       (kill-buffer (current-buffer)))
-     (setq input-decode-map (copy-keymap old-map)))
-    (should ret)))
-
 ;;; Global map tests.
 (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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]