diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-10-21 17:21:46 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-10-21 17:22:17 +0200 |
| commit | ffbea0d705a278b3c268b7cd44ed0484be8b89c1 (patch) | |
| tree | 5e4c8f9259f528c58962d37979a18ac447d64af8 /test/lisp/time-tests.el | |
| parent | 06373c15248292f924925b6e7344e51ac6708d5f (diff) | |
| download | emacs-ffbea0d705a278b3c268b7cd44ed0484be8b89c1.tar.gz emacs-ffbea0d705a278b3c268b7cd44ed0484be8b89c1.tar.bz2 emacs-ffbea0d705a278b3c268b7cd44ed0484be8b89c1.zip | |
Tweak two time.el tests
* test/lisp/time-tests.el (time-tests-display-time-update--load)
(time-tests-display-time-update): Tweak tests.
Diffstat (limited to 'test/lisp/time-tests.el')
| -rw-r--r-- | test/lisp/time-tests.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/test/lisp/time-tests.el b/test/lisp/time-tests.el index efb3f491468..1a62450cb3a 100644 --- a/test/lisp/time-tests.el +++ b/test/lisp/time-tests.el @@ -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 () |