mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org/string-width: Add tests for strings with prefix properties

This commit is contained in:
Ihor Radchenko 2022-01-29 18:14:47 +08:00
parent 3da1b2d240
commit 444d1c50ac
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/lisp/test-org-macs.el
View File

@ -65,7 +65,11 @@
(should (= 4 (org-string-width
#("123" 1 2 (display #("abc" 1 2 (invisible t)))))))
;; Test `space' property in `display'.
(should (= 2 (org-string-width #(" " 0 1 (display (space :width 2)))))))
(should (= 2 (org-string-width #(" " 0 1 (display (space :width 2))))))
;; Test `wrap-prefix' property.
(should (= 2 (org-string-width #("ab" 0 2 (wrap-prefix " ")))))
;; Test `line-prefix' property.
(should (= 2 (org-string-width #("ab" 0 2 (line-prefix " "))))))
;;; Regexp