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

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

[elpa] externals/ergoemacs-mode f4d4ad7e3b 3/4: Remove defunct test


From: ELPA Syncer
Subject: [elpa] externals/ergoemacs-mode f4d4ad7e3b 3/4: Remove defunct test
Date: Mon, 29 Jan 2024 09:58:00 -0500 (EST)

branch: externals/ergoemacs-mode
commit f4d4ad7e3be10cdff85d3bd84da3914a0a24a037
Author: Matthew L. Fidler <matthew.fidler@gmail.com>
Commit: Matthew L. Fidler <matthew.fidler@gmail.com>

    Remove defunct test
---
 ergoemacs-test.el | 21 ---------------------
 1 file changed, 21 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 305dc695e4..bece6d6d21 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -512,27 +512,6 @@ Part of addressing Issue #147."
     ;; Test M-m -> ^m -> RET
     (should (string= "RET" (key-description (vector 
(ergoemacs-translate--event-mods (elt (read-kbd-macro "M-m" t) 0) 
:ctl-to-alt)))))))
 
-(ert-deftest ergoemacs-test-input-methods ()
-  "Make sure that `ergoemacs-mode' works with input methods."
-  :tags '(:translate)
-  (ergoemacs-test-layout
-   :layout "colemak"
-   :macro "arst"
-   (save-excursion
-     (switch-to-buffer (get-buffer-create "*ergoemacs-test*"))
-     (delete-region (point-min) (point-max))
-     (set-input-method "greek")
-     (message "%s" current-input-method)
-     (ergoemacs-command-loop--internal "arst")
-     (should (string= "αρστ" (buffer-string)))
-     (quail-set-keyboard-layout "colemak")
-     (delete-region (point-min) (point-max))
-     (ergoemacs-command-loop--internal "arst")
-     (quail-set-keyboard-layout "standard")
-     (should (string= "ασδφ" (buffer-string)))
-     (set-input-method nil)
-     (kill-buffer (current-buffer)))))
-
 (ert-deftest ergoemacs-test-table-insert ()
   "Tests that table can insert without hanging emacs."
   :tags '(:table)



reply via email to

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