[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 1d119be: Fix failing test
From: |
Tino Calancha |
Subject: |
[Emacs-diffs] master 1d119be: Fix failing test |
Date: |
Thu, 21 Jul 2016 12:56:16 +0000 (UTC) |
branch: master
commit 1d119be4d35f2f02cd949a203e24ce5320559ff5
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>
Fix failing test
* test/lisp/erc/erc-track-tests.el (erc-track--erc-faces-in):
Enable Font Lock mode in order to initialize
'char-property-alias-alist' (Bug#23954).
---
test/lisp/erc/erc-track-tests.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/test/lisp/erc/erc-track-tests.el b/test/lisp/erc/erc-track-tests.el
index 24dfcfb..7cf3ef7 100644
--- a/test/lisp/erc/erc-track-tests.el
+++ b/test/lisp/erc/erc-track-tests.el
@@ -24,6 +24,7 @@
(require 'ert)
(require 'erc-track)
+(require 'font-core)
(ert-deftest erc-track--shorten-aggressive-nil ()
"Test non-aggressive erc track buffer name shortening."
@@ -107,9 +108,12 @@
(ert-deftest erc-track--erc-faces-in ()
"`erc-faces-in' should pick up both 'face and 'font-lock-face properties."
(let ((str0 "is bold")
- (str1 "is bold")
- ;;(char-property-alias-alist '((face font-lock-face)))
- )
+ (str1 "is bold"))
+ ;; Turn on Font Lock mode: this initialize `char-property-alias-alist'
+ ;; to '((face font-lock-face)). Note that `font-lock-mode' don't
+ ;; turn on the mode if the test is run on batch mode or if the
+ ;; buffer name starts with ?\s (Bug#23954).
+ (unless font-lock-mode (font-lock-default-function 1))
(put-text-property 3 (length str0) 'font-lock-face
'(bold erc-current-nick-face) str0)
(put-text-property 3 (length str1) 'face
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1d119be: Fix failing test,
Tino Calancha <=