[elpa] master b001e91 099/173: Fix a test (after adding `should`)

[Dmitry Gutov]

branch: master
commit b001e91a8c3bacb24b329c04f5feba419630b387
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    Fix a test (after adding `should`)
---
 test/frontends-tests.el |   12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/test/frontends-tests.el b/test/frontends-tests.el
index 2535f3e..d798c77 100644
--- a/test/frontends-tests.el
+++ b/test/frontends-tests.el
@@ -274,11 +274,12 @@
         (company-prefix "")
         (str1 (propertize "str1" 'face 'foo))
         (str2 (propertize "str2" 'face 'foo)))
-    (equal-including-properties
-     (company-fill-propertize str1 str2 8 nil nil nil)
-     #("str1str2"
-       0 4 (face company-tooltip mouse-face company-tooltip-mouse)
-       4 8 (face company-tooltip-annotation mouse-face 
company-tooltip-mouse)))))
+    (should (ert-equal-including-properties
+             (company-fill-propertize str1 str2 8 nil nil nil)
+             #("str1str2"
+               0 4 (face (company-tooltip) mouse-face (company-tooltip-mouse))
+               4 8 (face (company-tooltip-annotation company-tooltip)
+                         mouse-face (company-tooltip-mouse)))))))
 
 (ert-deftest company-fill-propertize-delegates-to-pre-render ()
   (let ((company-backend
@@ -293,6 +294,7 @@
         (str1 (propertize "str1" 'foo 'bar))
         (str2 (propertize "str2" 'foo 'bar)))
     (let ((res (company-fill-propertize str1 str2 8 nil nil nil)))
+      ;; Could use `ert-equal-including-properties' as well.
       (should (eq (get-text-property 0 'foo res) 'bar))
       (should (eq (get-text-property 4 'foo res) 'bar))
       (should (equal (get-text-property 0 'face res)