[elpa] 262/287: Make paste is calling pre/post commands

[Matthew Fidler]

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

commit 50c53108c88961cd3c5dd62cbd696e5587e36ee1
Author: Matthew L. Fidler <address@hidden>
Date:   Mon Jun 30 09:46:54 2014 -0500

    Make paste is calling pre/post commands
---
 ergoemacs-test.el |   33 +++++++++++++++++++--------------
 1 files changed, 19 insertions(+), 14 deletions(-)

diff --git a/ergoemacs-test.el b/ergoemacs-test.el
index b38b83b..5332ec8 100644
--- a/ergoemacs-test.el
+++ b/ergoemacs-test.el
@@ -771,20 +771,25 @@ Issue #186."
   "Issue #184; Not replace the \"selected all\" by paste."
   (let ((ret t)
         (ergoemacs-handle-ctl-c-or-ctl-x 'both))
-    (with-temp-buffer
-      (insert ergoemacs-test-lorem-ipsum)
-      (goto-char (point-min))
-      (push-mark)
-      (end-of-line)
-      (ergoemacs-copy-line-or-region)
-      (push-mark (point))
-      (push-mark (point-max) nil t)
-      (goto-char (point-min))
-      (ergoemacs-paste)
-      (message "`%s`" (buffer-string))
-      (setq ret (string= "Lorem ipsum dolor sit amet, consectetur adipisicing 
elit, sed\n"
-                         (buffer-string))))
-    (should ret)))
+    (ergoemacs-test-layout
+     :macro "C-v"
+     (save-excursion
+       (switch-to-buffer (get-buffer-create "*ergoemacs-test*"))
+       (insert ergoemacs-test-lorem-ipsum)
+       (goto-char (point-min))
+       (push-mark)
+       (end-of-line)
+       (ergoemacs-copy-line-or-region)
+       (push-mark (point))
+       (push-mark (point-max) nil t)
+       (goto-char (point-min))
+       ;; Make sure the `pre-command-hook' and `post-command-hook' is
+       ;; run by calling the macro.
+       (execute-kbd-macro macro) 
+       ;; (ergoemacs-paste)
+       (should (string= "Lorem ipsum dolor sit amet, consectetur adipisicing 
elit, sed\n"
+                        (buffer-string)))
+       (kill-buffer (current-buffer))))))
 
 (ert-deftest ergoemacs-test-issue-184-paste-should-clear-mark ()
   "Issue #186.