mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit aa12345df190b7f5db6df85e753ef3f4d4a4e36b Author: Matthew L. Fidler <[email protected]> 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.
