[elpa] 270/287: Make test string smaller/easier to debug for apps-copy

[Matthew Fidler]

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

commit 1335c6c125589f72f00bedf2afc2759328f96fcb
Author: Matthew L. Fidler <address@hidden>
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.