test: make date tests reliable, i.e. independent of current time

Some of the date tests depend both on the particular time of day and year at
which the test is run, and also on the state of daylight-savings adjustments.
(At the present time on my system there are four failing tests, but YMMV.)
This patch puts all the tests to UTC time in the C locale, making the results
consistent.  *All* items in the test suite should be passing once again.

* tests/job-schedule.scm: Fix up the environment before running the tests.

1 files changed, 14 insertions, 18 deletions

diff --git a/tests/job-specifier.scm b/tests/job-specifier.scm
index baf96af..70dd518 100644
--- a/tests/job-specifier.scm
+++ b/tests/job-specifier.scm
@@ -56,36 +56,32 @@
 
 ;;; TODO: Find more meaningful date examples.
 
+(setenv "TZ" ":UTC")
+
 (test-equal "next-year"
-  (list 59989762800 1546293600)
-  (list (next-year '(1971))
+  (list 1893456000 1546300800)
+  (list (next-year '(130))   ;; This is the year 2030.
         (next-year-from 1522095469)))
 
 (test-equal "next-month"
-  (list 28854000 5094000)
-  (list (next-month '(11))
-        (next-month-from 101 '(0 2 4))))
+  5097600
+  (next-month-from 101 '(0 2 4)))
 
 (test-equal "next-day"
-  (list 2588400 342000)
-  (list (next-day '(31))
-        (next-day-from 4337 '(0 5 10))))
+  345600
+  (next-day-from 4337 '(0 5 10)))
 
 (test-equal "next-hour"
-  '(3600 82800 3600)
-  (list (next-hour)
-        (next-hour '(0))
-        (next-hour-from 3 '(0 1 2 3 4))))
+  3600
+  (next-hour-from 3 '(0 1 2 3 4)))
 
 (test-equal "next-minute"
-  '(240 60)
-  (list (next-minute '(4 9))
-        (next-minute-from 8)))
+  60
+  (next-minute-from 8))
 
 (test-equal "next-second"
-  '(52 15)
-  (list (next-second '(52 55))
-        (next-second-from 14)))
+  15
+  (next-second-from 14))
 
 ;;;
 ;;; Check 'configuration-user' manipulation