emacs-emojify

commit 64ca8698913bcc4a7c10f940a2bd9438d2bebc9f
parent af0c5ba7576c9a54ee104430647d496b627dd762
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Sun,  1 Nov 2015 15:49:31 +0530

Add some more tests, improve existing ones

Diffstat:
M
emojify-tests.el
 | 
48
++++++++++++++++++++++++++++++++++++++++++++----

1 file changed, 44 insertions(+), 4 deletions(-)
diff --git a/emojify-tests.el b/emojify-tests.el
@@ -108,7 +108,7 @@ Helps isolate tests from each other's customizations."
     (emojify-tests-should-be-emojified (point-min))
     (should (equal (get-text-property (point-min) 'emojify-buffer) (current-buffer)))
     (should (equal (get-text-property (point-min) 'emojify-start) (point-min)))
-    (should (equal (get-text-property (point-min) 'emojify-end) (1+ (length ":)"))))
+    (should (equal (get-text-property (point-min) 'emojify-end) (point-max)))
     (should (equal (get-text-property (point-min) 'emojify-text)  ":)"))))
 
 (ert-deftest emojify-tests-simple-github-emoji-test ()
@@ -116,16 +116,16 @@ Helps isolate tests from each other's customizations."
     (emojify-tests-should-be-emojified (point-min))
     (should (equal (get-text-property (point) 'emojify-buffer) (current-buffer)))
     (should (equal (get-text-property (point-min) 'emojify-start) (point-min)))
-    (should (equal (get-text-property (point) 'emojify-end) (1+ (length ":smile:"))))
+    (should (equal (get-text-property (point) 'emojify-end) (point-max)))
     (should (equal (get-text-property (point) 'emojify-text)  ":smile:"))))
 
-(ert-deftest emojify-tests-uncovering ()
+(ert-deftest emojify-tests-emoji-uncovering ()
   (emojify-tests-with-emojified-buffer " :)"
     (setq emojify-point-entered-behaviour 'uncover)
     (goto-char (1+ (point-min)))
     (emojify-tests-should-be-uncovered (point))))
 
-(ert-deftest emojify-tests-echoing ()
+(ert-deftest emojify-tests-emoji-echoing ()
   (emojify-tests-with-emojified-buffer " :)"
     (with-mock
       (mock (message ":)"))
@@ -133,6 +133,16 @@ Helps isolate tests from each other's customizations."
       (goto-char (1+ (point-min)))
       (emojify-tests-should-be-emojified (point)))))
 
+(ert-deftest emojify-tests-custom-point-entered-function ()
+  (emojify-tests-with-emojified-buffer " :)"
+    (setq emojify-point-entered-behaviour (lambda (buffer emoji-text emoji-start emoji-end)
+                                            (should (equal buffer (current-buffer)))
+                                            (should (equal emoji-text ":)"))
+                                            (should (equal emoji-start (1+ (point-min))))
+                                            (should (equal emoji-start (point-max)))))
+    (goto-char (1+ (point-min)))
+    (emojify-tests-should-be-emojified (point))))
+
 (ert-deftest emojify-tests-emojify-setting-styles ()
   (emojify-tests-with-emojified-static-buffer ":) :smile:"
     (let ((ascii-emoji-pos (point-min))
@@ -161,5 +171,35 @@ Helps isolate tests from each other's customizations."
       ;; Github emojis should be displayed
       (emojify-tests-should-be-emojified github-emoji-pos))))
 
+(ert-deftest emojify-tests-prog-contexts ()
+  (emojify-tests-with-emojified-static-buffer ";; :) :smile:\n\":smile:\""
+    (let* ((comment-ascii-emoji-pos (+ 3 (point-min)))
+           (comment-github-emoji-pos (+ comment-ascii-emoji-pos (length ":) ")))
+           (string-github-emoji-pos (1+ (line-beginning-position 2))))
+      (emacs-lisp-mode)
+      (setq emojify-prog-contexts 'both)
+      (emojify-redisplay-emojis)
+      (emojify-tests-should-be-emojified comment-ascii-emoji-pos)
+      (emojify-tests-should-be-emojified comment-github-emoji-pos)
+      (emojify-tests-should-be-emojified string-github-emoji-pos)
+
+      (setq emojify-prog-contexts 'comments)
+      (emojify-redisplay-emojis)
+      (emojify-tests-should-be-emojified comment-ascii-emoji-pos)
+      (emojify-tests-should-be-emojified comment-github-emoji-pos)
+      (emojify-tests-should-not-be-emojified string-github-emoji-pos)
+
+      (setq emojify-prog-contexts 'string)
+      (emojify-redisplay-emojis)
+      (emojify-tests-should-not-be-emojified comment-ascii-emoji-pos)
+      (emojify-tests-should-not-be-emojified comment-github-emoji-pos)
+      (emojify-tests-should-be-emojified string-github-emoji-pos)
+
+      (setq emojify-prog-contexts 'none)
+      (emojify-redisplay-emojis)
+      (emojify-tests-should-not-be-emojified comment-ascii-emoji-pos)
+      (emojify-tests-should-not-be-emojified comment-github-emoji-pos)
+      (emojify-tests-should-not-be-emojified string-github-emoji-pos))))
+
 (provide 'emojify-tests)
 ;;; emojify-tests.el ends here