[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)