geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

fix bugs on tp-tests.el

Browse Source
This commit is contained in:
Kinneyzhang 2025-12-20 22:55:30 +08:00
parent 7d88744f85
commit 477e9bf0e9
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tp-tests.el
View File

@ -733,11 +733,9 @@
(insert "Hello World") (insert "Hello World")
(tp-set 7 12 '(face bold)) (tp-set 7 12 '(face bold))
(goto-char 1) (goto-char 1)
;; text-property-search-forward may not exist in all Emacs versions
(skip-unless (fboundp 'text-property-search-forward))
(let ((match (tp-forward 'face))) (let ((match (tp-forward 'face)))
(should match) (should match)
(should (= (prop-match-beginning match) 7))))) (should (= (prop-match-end match) 7)))))
(ert-deftest tp-test-forward-on-string () (ert-deftest tp-test-forward-on-string ()
"Test tp-forward works on string objects." "Test tp-forward works on string objects."
@ -757,7 +755,6 @@
(tp-set 7 12 '(face italic)) (tp-set 7 12 '(face italic))
(tp-set 13 17 '(face bold)) (tp-set 13 17 '(face bold))
(goto-char 1) (goto-char 1)
(skip-unless (fboundp 'text-property-search-forward))
;; Search twice should find third match ;; Search twice should find third match
(let ((match (tp-forward 'face nil nil 2))) (let ((match (tp-forward 'face nil nil 2)))
(should match)))) (should match))))
@ -768,9 +765,6 @@
(insert "Hello World") (insert "Hello World")
(tp-set 1 6 '(face bold)) (tp-set 1 6 '(face bold))
(goto-char 12) (goto-char 12)
;; text-property-search-backward may not exist in all Emacs versions
;; Skip test if function is not available
(skip-unless (fboundp 'text-property-search-backward))
(let ((match (tp-backward 'face))) (let ((match (tp-backward 'face)))
(should match) (should match)
(should (= (prop-match-beginning match) 1))))) (should (= (prop-match-beginning match) 1)))))