From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 11 Dec 2020 14:21:44 +0000 (+0100)
Subject: Fix object-interval tests
X-Git-Tag: emacs-28.0.90~4787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49a4f06b0675a4a27db1ce5380c02b5043e2d322;p=emacs.git

Fix object-interval tests

* test/src/fns-tests.el (object-intervals): Fix tests.
---

diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el
index 14c0437d5f0..eaa569e0d95 100644
--- a/test/src/fns-tests.el
+++ b/test/src/fns-tests.el
@@ -986,10 +986,10 @@
 
 (ert-deftest object-intervals ()
   (should (equal (object-intervals (propertize "foo" 'bar 'zot))
-                 ((0 3 (bar zot)))))
+                 '((0 3 (bar zot)))))
   (should (equal (object-intervals (concat (propertize "foo" 'bar 'zot)
                                            (propertize "foo" 'gazonk "gazonk")))
-                 ((0 3 (bar zot)) (3 6 (gazonk "gazonk")))))
+                 '((0 3 (bar zot)) (3 6 (gazonk "gazonk")))))
   (should (equal
            (with-temp-buffer
              (insert "foobar")
@@ -997,5 +997,5 @@
              (put-text-property 3 6 'bar 2)
              (put-text-property 2 5 'zot 3)
              (object-intervals (current-buffer)))
-           ((0 1 (foo 1)) (1 2 (zot 3 foo 1)) (2 4 (zot 3 bar 2))
-            (4 5 (bar 2)) (5 6 nil)))))
+           '((0 1 (foo 1)) (1 2 (zot 3 foo 1)) (2 4 (zot 3 bar 2))
+             (4 5 (bar 2)) (5 6 nil)))))