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

Tweak two time.el tests

Browse source 
* test/lisp/time-tests.el (time-tests-display-time-update--load)
(time-tests-display-time-update): Tweak tests.
This commit is contained in:
Stefan Kangas 2020-10-21 17:21:46 +02:00
parent 06373c1524
commit ffbea0d705
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/time-tests.el
View file

@ -33,7 +33,9 @@
(let ((display-time-load-average 1)
(display-time-load-average-threshold 0))
(display-time-next-load-average)
(should (string-match (rx string-start " " (+ digit "."))
(should (string-match (rx string-start " "
(+ (| digit "."))
string-end)
(display-time-update--load))))
(let (display-time-load-average)
(should (equal (display-time-update--load) ""))))
@ -43,9 +45,11 @@
(display-time-load-average-threshold 0)
display-time-string)
(display-time-update)
(should (string-match (rx string-start (? digit) digit ":" digit digit
(should (string-match (rx string-start
(? digit) digit ":" digit digit
(? (| "AM" "PM"))
" " (+ digit "."))
" " (+ (| digit "."))
string-end)
display-time-string))))
(ert-deftest time-tests-display-time-file-nonempty-p ()