emacs-emojify

commit 781d3f36aceaae4573ece9fcd5f299e349da608b
parent 95e8c1cc01dc8b8f11a6cacef47dbb36ccfa26e3
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Tue,  6 Sep 2016 08:41:27 +0530

Fix interactive running of tests

Diffstat:
M
test/emojify-test.el
 | 
7
+++++++

1 file changed, 7 insertions(+), 0 deletions(-)
diff --git a/test/emojify-test.el b/test/emojify-test.el
@@ -135,6 +135,12 @@
   :tags '(behaviour point-motion)
   (emojify-tests-with-emojified-buffer " :)"
     (with-mock
+      ;; Since emojify checks that there is no message being displayed
+      ;; before echoing the emoji, we need to stub out current-message
+      ;; too otherwise emojify does not echo the message since messages
+      ;; from other tests are being displayed
+      (unless noninteractive
+        (stub current-message => nil))
       (mock (message ":)"))
       (setq emojify-point-entered-behaviour 'echo)
       (goto-char (1+ (point-min)))
@@ -602,6 +608,7 @@ return 4
     (let ((matches 0))
 
       (with-current-buffer emojify-apropos-buffer-name
+        ;; Force a display of emojis
         (emojify-redisplay-emojis-in-region (point-min) (point-max))
         (emojify-do-for-emojis-in-region (point-min) (point-max)
           (goto-char emoji-start)