procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix object-interval tests

Browse source 
* test/src/fns-tests.el (object-intervals): Fix tests.
This commit is contained in:
Lars Ingebrigtsen 2020-12-11 15:21:44 +01:00
parent 72bcc6f988
commit 49a4f06b06
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/src/fns-tests.el
View file

@ -986,10 +986,10 @@
(ert-deftest object-intervals () (ert-deftest object-intervals ()
(should (equal (object-intervals (propertize "foo" 'bar 'zot)) (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) (should (equal (object-intervals (concat (propertize "foo" 'bar 'zot)
(propertize "foo" 'gazonk "gazonk"))) (propertize "foo" 'gazonk "gazonk")))
((0 3 (bar zot)) (3 6 (gazonk "gazonk"))))) '((0 3 (bar zot)) (3 6 (gazonk "gazonk")))))
(should (equal (should (equal
(with-temp-buffer (with-temp-buffer
(insert "foobar") (insert "foobar")
@ -997,5 +997,5 @@
(put-text-property 3 6 'bar 2) (put-text-property 3 6 'bar 2)
(put-text-property 2 5 'zot 3) (put-text-property 2 5 'zot 3)
(object-intervals (current-buffer))) (object-intervals (current-buffer)))
((0 1 (foo 1)) (1 2 (zot 3 foo 1)) (2 4 (zot 3 bar 2)) '((0 1 (foo 1)) (1 2 (zot 3 foo 1)) (2 4 (zot 3 bar 2))
(4 5 (bar 2)) (5 6 nil))))) (4 5 (bar 2)) (5 6 nil)))))