* test/lisp/textmodes/conf-mode-tests.el (conf-test-javaprop-mode):
Attempt to give the test some meaning by repairing regexps,
and fixing it so that it passes.
(should (equal (face-at-point) 'font-lock-variable-name-face))
(search-forward "val")
(should-not (face-at-point)))
- (while (re-search-forward "a-z" nil t)
+ (while (re-search-forward "[xyz]" nil t)
(backward-char)
(should (equal (face-at-point) 'font-lock-variable-name-face))
- (re-search-forward "[0-0]" nil t)
- (backward-char)
- (should (equal (face-at-point) 'font-lock-constant-face)))))
+ (forward-char)
+ (when (re-search-forward "[0-9]" nil t)
+ (backward-char)
+ (should (equal (face-at-point) 'font-lock-constant-face))))))
(ert-deftest conf-test-space-mode ()
;; From `conf-space-mode' docstring.