branch: externals/org
commit 444d1c50ac3170a28238dbc3f705a520464d0ca6
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
test-org/string-width: Add tests for strings with prefix properties
---
testing/lisp/test-org-macs.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/testing/lisp/test-org-macs.el b/testing/lisp/test-org-macs.el
index 6a7ccea3c1..05cef12810 100644
--- a/testing/lisp/test-org-macs.el
+++ b/testing/lisp/test-org-macs.el
@@ -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
