mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 1335c6c125589f72f00bedf2afc2759328f96fcb Author: Matthew L. Fidler <[email protected]> Date: Mon Jun 30 10:38:22 2014 -0500 Make test string smaller/easier to debug for apps-copy --- ergoemacs-test.el | 20 +++++++++----------- 1 files changed, 9 insertions(+), 11 deletions(-) diff --git a/ergoemacs-test.el b/ergoemacs-test.el index 243cce8..6eb8f95 100644 --- a/ergoemacs-test.el +++ b/ergoemacs-test.el @@ -511,19 +511,17 @@ Test next and prior translation." (ert-deftest ergoemacs-test-apps-copy () "Tests <apps> c on QWERTY copying a region, not just a line." (ergoemacs-test-layout - :macro (format "C-a <%s> c" + :macro (format "C-a <%s> c C-v" (if (eq system-type 'windows-nt) "apps" "menu")) - (save-excursion - (switch-to-buffer (get-buffer-create "*ergoemacs-test*")) - (insert ergoemacs-test-lorem-ipsum) - (execute-kbd-macro macro) - (goto-char (point-max)) - (call-interactively 'ergoemacs-paste) - (should (string= (concat ergoemacs-test-lorem-ipsum - ergoemacs-test-lorem-ipsum) - (buffer-string))) - (kill-buffer (current-buffer))))) + (let ((test-string "1\n2\n3\n4")) + (save-excursion + (switch-to-buffer (get-buffer-create "*ergoemacs-test*")) + (insert test-string) + (execute-kbd-macro macro) + (should (string= (concat test-string test-string) + (buffer-string))) + (kill-buffer (current-buffer)))))) (ert-deftest ergoemacs-test-shift-selection () "Test that shift selection works properly.
