[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 201/287: Modify apps-copy test to use ert should instead of shoud
From: |
Matthew Fidler |
Subject: |
[elpa] 201/287: Modify apps-copy test to use ert should instead of shoud ret |
Date: |
Wed, 02 Jul 2014 14:45:59 +0000 |
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.
- [elpa] 90/287: Allow unset keys to work too, (continued)
- [elpa] 90/287: Allow unset keys to work too, Matthew Fidler, 2014/07/02
- [elpa] 115/287: Take away warnings from ergoemacs-mode.el, Matthew Fidler, 2014/07/02
- [elpa] 192/287: Add ergoemacs-test-layout, Matthew Fidler, 2014/07/02
- [elpa] 114/287: condition-case->ignore-errors ergoemacs-translate.el, Matthew Fidler, 2014/07/02
- [elpa] 92/287: Fix keys, Matthew Fidler, 2014/07/02
- [elpa] 125/287: Added documentation and always respect file in ergoemacs-open-in-external-app, Matthew Fidler, 2014/07/02
- [elpa] 195/287: Merge pull request #240 from akfoss/master, Matthew Fidler, 2014/07/02
- [elpa] 130/287: Advice key-binding to look at global keys without ergoemacs-mode, Matthew Fidler, 2014/07/02
- [elpa] 142/287: Makefile fixes, Matthew Fidler, 2014/07/02
- [elpa] 194/287: Fix Issue #238, Matthew Fidler, 2014/07/02
- [elpa] 201/287: Modify apps-copy test to use ert should instead of shoud ret,
Matthew Fidler <=
- [elpa] 122/287: Fix byte-compile files, Matthew Fidler, 2014/07/02
- [elpa] 123/287: Add w32-shell-execute for ignoring linux byte-compile errors, Matthew Fidler, 2014/07/02
- [elpa] 99/287: Remove ergoemacs-test.el, Matthew Fidler, 2014/07/02
- [elpa] 110/287: Fix Byte Compiler issues for ergoemacs-functions.el, Matthew Fidler, 2014/07/02
- [elpa] 120/287: Removed some of the issues with ergoemacs-theme-engine.el, Matthew Fidler, 2014/07/02
- [elpa] 105/287: move misplaced function, Matthew Fidler, 2014/07/02
- [elpa] 187/287: Change to eieio-named, Matthew Fidler, 2014/07/02
- [elpa] 98/287: Modified ergoemacs-init not to depend on anything..., Matthew Fidler, 2014/07/02
- [elpa] 137/287: Get old-style fixed & variable layouts, Matthew Fidler, 2014/07/02
- [elpa] 143/287: Make test dir the same as work dir, Matthew Fidler, 2014/07/02