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 14c0437d5f0756534b1d48fa3ae1f5ec9e8f3906..eaa569e0d95f4e6d210860d2a21ca367d114e2ff 100644 (file)
--- 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)))))