emacs-emojify

commit f19ce75ffa94fbf2a58a7bece2676f6c138fc10d
parent 8ec10466fcd4df8fbf020d6f779bf52b62926e11
Author: Iqbal Ansari <iqbalansari02@yahoo.com>
Date:   Sat, 28 Nov 2015 21:01:24 +0530

Update tests to work with last change

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

1 file changed, 9 insertions(+), 9 deletions(-)
diff --git a/test/emojify-test.el b/test/emojify-test.el
@@ -20,8 +20,8 @@
   (emojify-tests-with-emojified-static-buffer ":)"
     (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-beginning) (point-min)))
-    (should (equal (get-text-property (point-min) 'emojify-end) (point-max)))
+    (should (equal (get-text-property (point-min) 'emojify-beginning) (point-min-marker)))
+    (should (equal (get-text-property (point-min) 'emojify-end) (point-max-marker)))
     (should (equal (get-text-property (point-min) 'emojify-text)  ":)"))))
 
 (ert-deftest emojify-tests-simple-github-emoji-test ()
@@ -29,8 +29,8 @@
   (emojify-tests-with-emojified-static-buffer ":smile:"
     (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-beginning) (point-min)))
-    (should (equal (get-text-property (point) 'emojify-end) (point-max)))
+    (should (equal (get-text-property (point-min) 'emojify-beginning) (point-min-marker)))
+    (should (equal (get-text-property (point) 'emojify-end) (point-max-marker)))
     (should (equal (get-text-property (point) 'emojify-text)  ":smile:"))))
 
 (ert-deftest emojify-tests-simple-unicode-emoji-test ()
@@ -38,8 +38,8 @@
   (emojify-tests-with-emojified-static-buffer "😉"
     (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-beginning) (point-min)))
-    (should (equal (get-text-property (point) 'emojify-end) (point-max)))
+    (should (equal (get-text-property (point-min) 'emojify-beginning) (point-min-marker)))
+    (should (equal (get-text-property (point) 'emojify-end) (point-max-marker)))
     (should (equal (get-text-property (point) 'emojify-text)  "😉"))))
 
 (ert-deftest emojify-tests-mixed-emoji-test ()
@@ -366,21 +366,21 @@
     (let ((final-line-end (get-text-property (1- (point)) 'emojify-beginning)))
       (execute-kbd-macro [backspace])
       (emojify-tests-should-not-be-emojified (line-end-position))
-      (should (equal (line-end-position) final-line-end))))
+      (should (equal (copy-marker (line-end-position)) final-line-end))))
 
   (emojify-tests-with-emojified-buffer "Unicode emoji 😉\nGithub emoji :wink:\nAscii emoji ;)"
     (goto-char (line-end-position 2))
     (let ((final-line-end (get-text-property (1- (point)) 'emojify-beginning)))
       (execute-kbd-macro [backspace])
       (emojify-tests-should-not-be-emojified (line-end-position))
-      (should (equal (line-end-position) final-line-end))))
+      (should (equal (copy-marker (line-end-position)) final-line-end))))
 
   (emojify-tests-with-emojified-buffer "Unicode emoji 😉\nGithub emoji :wink:\nAscii emoji ;)"
     (goto-char (line-end-position 3))
     (let ((final-line-end (get-text-property (1- (point)) 'emojify-beginning)))
       (execute-kbd-macro [backspace])
       (emojify-tests-should-not-be-emojified (line-end-position))
-      (should (equal (line-end-position) final-line-end))))
+      (should (equal (copy-marker (line-end-position)) final-line-end))))
 
   (emojify-tests-with-emojified-buffer ";) 😉:wink:"
     (dotimes (n 4)