emacs-emojify

commit aac530605f1476a08a41362f0e2488d90e455a71
parent e5bbdbbc61501ca99adb7d0579a7389e8f45af7f
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Sun, 18 Sep 2016 16:34:16 +0530

Remove after-change and org-bullet tests, they did not work as expected

And were a headache to maintain

Diffstat:
M
test/emojify-test.el
 | 
56
--------------------------------------------------------
M
test/test-helper.el
 | 
12
------------

2 files changed, 0 insertions(+), 68 deletions(-)
diff --git a/test/emojify-test.el b/test/emojify-test.el
@@ -92,42 +92,6 @@
       (emojify-tests-should-be-emojified (line-beginning-position 4))
       (emojify-tests-should-be-emojified (line-beginning-position 5)))))
 
-(ert-deftest emojify-tests-emojifying-on-comment-uncomment ()
-  :tags '(core after-change)
-  (emojify-tests-with-emojified-buffer ":smile:\n:)"
-    (emacs-lisp-mode)
-    (emojify-mode +1)
-    (emojify-redisplay-emojis-in-region)
-    (emojify-tests-should-not-be-emojified (line-beginning-position))
-    (emojify-tests-should-not-be-emojified (line-beginning-position 2))
-
-    (comment-region (point-min) (point-max))
-    (emojify-redisplay)
-    (emojify-tests-should-be-emojified (+ 3 (line-beginning-position)))
-    (emojify-tests-should-be-emojified (+ 3 (line-beginning-position 2)))
-
-    (uncomment-region (point-min) (point-max))
-    (emojify-redisplay)
-    (emojify-tests-should-not-be-emojified (line-beginning-position))
-    (emojify-tests-should-not-be-emojified (line-beginning-position 2))))
-
-;; TODO: For some reason this test fails when run alone :/
-(ert-deftest emojify-tests-emojifying-on-typing ()
-  :tags '(core after-change)
-  (emojify-tests-with-emojified-buffer ""
-    (emacs-lisp-mode)
-    (emojify-mode +1)
-    (emojify-insert-string "; :)")
-    (emojify-redisplay)
-    (emojify-tests-should-be-emojified 4)
-    (newline)
-    (emojify-insert-string "; :smile")
-    (emojify-redisplay)
-    (emojify-tests-should-not-be-emojified (+ 4 (line-beginning-position)))
-    (emojify-insert-string ":")
-    (emojify-redisplay)
-    (emojify-tests-should-be-emojified (+ 4 (line-beginning-position)))))
-
 (ert-deftest emojify-tests-emoji-uncovering ()
   :tags '(behaviour point-motion)
   (emojify-tests-with-emojified-buffer " :)"
@@ -609,26 +573,6 @@ return 4
         (emojify-tests-should-not-be-emojified (line-beginning-position 6))
         (emojify-tests-should-be-emojified (line-beginning-position 7))))))
 
-(ert-deftest emojify-tests-org-bullets ()
-  :tags '(org-bullets)
-  (emojify-tests-with-emojified-buffer "* A
-** B
-*** C
-"
-    (let ((org-bullets-bullet-list '("🍣" "🐸" "🐳"))
-          (emojify-composed-text-p t))
-      (org-mode)
-      (require 'org-bullets)
-      (org-bullets-mode)
-      (emojify-redisplay)
-      (emojify-tests-should-not-be-emojified (point-min))
-      (emojify-tests-should-not-be-emojified (1+ (line-beginning-position 2)))
-      (emojify-tests-should-not-be-emojified (+ 2 (line-beginning-position 3)))
-      (emojify-redisplay)
-      (emojify-tests-should-be-emojified (point-min))
-      (emojify-tests-should-be-emojified (1+ (line-beginning-position 2)))
-      (emojify-tests-should-be-emojified (+ 2 (line-beginning-position 3))))))
-
 (ert-deftest emojify-tests-apropos ()
   :tags '(apropos)
   (emojify-apropos-emoji "squi")
diff --git a/test/test-helper.el b/test/test-helper.el
@@ -155,17 +155,5 @@ All kinds of dynamic behaviour on buffer are disabled.  See
      (should-not (get-text-property ,point 'point-entered))
      (should-not (get-text-property ,point 'display))))
 
-(defun emojify-insert-string (string)
-  "Insert the STRING."
-  (mapc (lambda (character)
-          (let ((last-command-event character))
-            (self-insert-command 1)))
-        (string-to-vector string)))
-
-(defun emojify-redisplay ()
-  "Trigger a redisplay."
-  (jit-lock-fontify-now (point-min) (point-max))
-  (emojify-redisplay-emojis-in-region (point-min) (point-max)))
-
 (provide 'test-helper)
 ;;; test-helper.el ends here