[elpa] 201/287: Modify apps-copy test to use ert should instead of shoud ret

[Matthew Fidler]

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

commit aa12345df190b7f5db6df85e753ef3f4d4a4e36b
Author: Matthew L. Fidler <address@hidden>
Date:   Mon Jun 23 14:24:56 2014 -0500

    Modify apps-copy test to use ert should instead of shoud ret
---
 ergoemacs-test.el |   36 +++++++++++++++++-------------------
 1 files changed, 17 insertions(+), 19 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index 747a347..d268337 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -509,25 +509,23 @@ Test next and prior translation."
 
 (ert-deftest ergoemacs-test-apps-copy ()
   "Tests <apps> c on QWERTY cutting a region, not just a line."
-  (let (ret)
-    (ergoemacs-test-layout
-     :macro (format "<%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)
-       (setq ret (string= (concat ergoemacs-test-lorem-ipsum
-                                  ergoemacs-test-lorem-ipsum)
-                          (buffer-string)))
-       (kill-buffer (current-buffer))))
-    (should ret)))
+  (ergoemacs-test-layout
+   :macro (format "<%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)
+     (should (string= (concat ergoemacs-test-lorem-ipsum
+                              ergoemacs-test-lorem-ipsum)
+                      (buffer-string)))
+     (kill-buffer (current-buffer)))))
 
 (ert-deftest ergoemacs-test-shift-selection ()
   "Test that shift selection works properly.