[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master ffbea0d: Tweak two time.el tests
From: |
Stefan Kangas |
Subject: |
master ffbea0d: Tweak two time.el tests |
Date: |
Wed, 21 Oct 2020 11:22:40 -0400 (EDT) |
branch: master
commit ffbea0d705a278b3c268b7cd44ed0484be8b89c1
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Tweak two time.el tests
* test/lisp/time-tests.el (time-tests-display-time-update--load)
(time-tests-display-time-update): Tweak tests.
---
test/lisp/time-tests.el | 10 +++++++---
1 file changed, 7 insertions(+), 3 deletions(-)
diff --git a/test/lisp/time-tests.el b/test/lisp/time-tests.el
index efb3f49..1a62450 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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master ffbea0d: Tweak two time.el tests,
Stefan Kangas <=