diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/editfns-tests.el | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 2951270dbf7..aa896b06499 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el | |||
| @@ -88,7 +88,21 @@ | |||
| 88 | (format "%-10s" (concat (propertize "01" 'face 'bold) | 88 | (format "%-10s" (concat (propertize "01" 'face 'bold) |
| 89 | (propertize "23" 'face 'underline) | 89 | (propertize "23" 'face 'underline) |
| 90 | (propertize "45" 'face 'italic))) | 90 | (propertize "45" 'face 'italic))) |
| 91 | #("012345 " 0 2 (face bold) 2 4 (face underline) 4 10 (face italic))))) | 91 | #("012345 " |
| 92 | 0 2 (face bold) 2 4 (face underline) 4 10 (face italic)))) | ||
| 93 | ;; Bug #32404 | ||
| 94 | (should (ert-equal-including-properties | ||
| 95 | (format (concat (propertize "%s" 'face 'bold) | ||
| 96 | "" | ||
| 97 | (propertize "%s" 'face 'error)) | ||
| 98 | "foo" "bar") | ||
| 99 | #("foobar" 0 3 (face bold) 3 6 (face error)))) | ||
| 100 | (should (ert-equal-including-properties | ||
| 101 | (format (concat "%s" (propertize "%s" 'face 'error)) "foo" "bar") | ||
| 102 | #("foobar" 3 6 (face error)))) | ||
| 103 | (should (ert-equal-including-properties | ||
| 104 | (format (concat "%s " (propertize "%s" 'face 'error)) "foo" "bar") | ||
| 105 | #("foo bar" 4 7 (face error))))) | ||
| 92 | 106 | ||
| 93 | ;; Tests for bug#5131. | 107 | ;; Tests for bug#5131. |
| 94 | (defun transpose-test-reverse-word (start end) | 108 | (defun transpose-test-reverse-word (start end) |