---
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 6a7ccea3c..05cef1281 100644
--- a/testing/lisp/test-org-macs.el
+++ b/testing/lisp/test-org-macs.el
@@ -65,7 +65,11 @@ (ert-deftest test-org/string-width ()
(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
--
2.35.1
--
Ihor Radchenko,
PhD,
Center for Advancing Materials Performance from the Nanoscale (CAMP-nano)
State Key Laboratory for Mechanical Behavior of Materials, Xi'an Jiaotong
University, Xi'an, China
Email: [email protected], [email protected]
