[nongnu] elpa/sly 07454d5e9c 4/4: Fix test/sly-fontifying-fu-tests.el

[ELPA Syncer]

branch: elpa/sly
commit 07454d5e9c03993f23e6aaf9c4ed3d024e9a3551
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Fix test/sly-fontifying-fu-tests.el
    
    More than one face may be applied to a region, and the test didn't
    expect that.
    
    * test/sly-fontifying-fu-tests.el (font-lock-magic): Fix.
---
 test/sly-fontifying-fu-tests.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/test/sly-fontifying-fu-tests.el b/test/sly-fontifying-fu-tests.el
index a5da9e3122..50fec53063 100644
--- a/test/sly-fontifying-fu-tests.el
+++ b/test/sly-fontifying-fu-tests.el
@@ -128,11 +128,16 @@
       (sly-test-expect "Not suppressed by reader conditional?"
                          'sly-reader-conditional-face
                          (get-text-property (point) 'face)
-                         #'(lambda (x y) (not (eq x y)))))
+                         (lambda (x y)
+                           (let ((y (if (listp y) y (list y))))
+                             (not (memq x y))))))
     (goto-char (point-max))
     (when (search-backward "*YES*" nil t)
       (sly-test-expect "Suppressed by reader conditional?"
                          'sly-reader-conditional-face
-                         (get-text-property (point) 'face)))))
+                         (get-text-property (point) 'face)
+                         (lambda (x y)
+                           (let ((y (if (listp y) y (list y))))
+                             (memq x y)))))))
 
 (provide 'sly-fontifying-fu-tests)