From 2b9b54b72938144320e1a1285b011182a3c52ac4 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Thu, 19 Oct 2017 23:58:57 +0200 Subject: tests: Add 'schedule.sh' * tests/schedule.sh: New test. * Makefile.am (TESTS): Add it. * src/mcron/job-specifier.scm (configuration-time): Use SOURCE_DATE_EPOCH for reproducible tests. --- src/mcron/job-specifier.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/mcron') diff --git a/src/mcron/job-specifier.scm b/src/mcron/job-specifier.scm index 30c770a..401e4d0 100644 --- a/src/mcron/job-specifier.scm +++ b/src/mcron/job-specifier.scm @@ -187,7 +187,10 @@ go into the list. For example, (range 1 6 2) returns '(1 3 5)." ;; the job actually runs. (define configuration-user (getpw (getuid))) -(define configuration-time (current-time)) + +(define configuration-time + ;; Use SOURCE_DATE_EPOCH environment variable to support reproducible tests. + (if (getenv "SOURCE_DATE_EPOCH") 0 (current-time))) (define (set-configuration-user user) (set! configuration-user (if (or (string? user) -- cgit v1.2.3