mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 47d95aed124657fbb12af357aae469947abd6535 Author: Matthew L. Fidler <[email protected]> Date: Mon Jun 30 10:22:11 2014 -0500 Make apps-copy test use C-a --- ergoemacs-test.el | 9 +++------ 1 files changed, 3 insertions(+), 6 deletions(-) diff --git a/ergoemacs-test.el b/ergoemacs-test.el index 5332ec8..243cce8 100644 --- a/ergoemacs-test.el +++ b/ergoemacs-test.el @@ -509,20 +509,17 @@ Test next and prior translation." (should ret))) (ert-deftest ergoemacs-test-apps-copy () - "Tests <apps> c on QWERTY cutting a region, not just a line." + "Tests <apps> c on QWERTY copying a region, not just a line." (ergoemacs-test-layout - :macro (format "<%s> c" + :macro (format "C-a <%s> c" (if (eq system-type 'windows-nt) "apps" "menu")) (save-excursion (switch-to-buffer (get-buffer-create "*ergoemacs-test*")) (insert ergoemacs-test-lorem-ipsum) - (push-mark (point)) - (push-mark (point-max) nil t) - (goto-char (point-min)) (execute-kbd-macro macro) (goto-char (point-max)) - (ergoemacs-paste) + (call-interactively 'ergoemacs-paste) (should (string= (concat ergoemacs-test-lorem-ipsum ergoemacs-test-lorem-ipsum) (buffer-string)))
