procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix failing test

Browse source 
* 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).
This commit is contained in:
Tino Calancha 2016-07-21 21:51:24 +09:00
parent a066fb1cee
commit 1d119be4d3
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
test/lisp/erc/erc-track-tests.el
View file

@ -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