[elpa] 266/287: Make apps-copy test use C-a

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 47d95aed124657fbb12af357aae469947abd6535
Author: Matthew L. Fidler <address@hidden>
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)))