diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2017-10-19 23:58:57 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-16 21:41:52 +0100 |
| commit | 2b9b54b72938144320e1a1285b011182a3c52ac4 (patch) | |
| tree | a335f3c14419610d4d248b76c1061b19e91f146a /src/mcron/job-specifier.scm | |
| parent | 5f83aef90f0b5a3bef3baee48bc6f6cdf452155d (diff) | |
| download | mcron-2b9b54b72938144320e1a1285b011182a3c52ac4.tar.gz mcron-2b9b54b72938144320e1a1285b011182a3c52ac4.tar.bz2 mcron-2b9b54b72938144320e1a1285b011182a3c52ac4.zip | |
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.
Diffstat (limited to 'src/mcron/job-specifier.scm')
| -rw-r--r-- | src/mcron/job-specifier.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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) |