diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2018-03-26 16:56:40 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2018-03-26 17:51:11 +0200 |
| commit | f71b0b8310e6b297866147a11e3fd0dd5db13beb (patch) | |
| tree | 3d408a2bb28eeab7b598fa0ad7dde822fae0e974 /tests | |
| parent | fad58ca8c221def75093463e917f66fc006f3df5 (diff) | |
| download | mcron-f71b0b8310e6b297866147a11e3fd0dd5db13beb.tar.gz mcron-f71b0b8310e6b297866147a11e3fd0dd5db13beb.tar.bz2 mcron-f71b0b8310e6b297866147a11e3fd0dd5db13beb.zip | |
job-specifier: Adapt 'bump-time' to 'next-...-from' procedures
This is a follow-up to commit 913e3c65e4f56476e8ac69f4892cf92c125751ec.
Since 'next-...-from' procedures now uses an '#:optional' argument
instead of a dotted optional arguments list, 'bump-time' doesn't need to
unwrap VALUE-LIST anymore.
* src/mcron/job-specifier.scm (bump-time): Pass VALUE-LIST directly to
'%find-best-next'.
* tests/job-specifier.scm ("next-hour-from"): New test.
* NEWS: Update.
Reported-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/job-specifier.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/job-specifier.scm b/tests/job-specifier.scm index 48a46de..dbf98f0 100644 --- a/tests/job-specifier.scm +++ b/tests/job-specifier.scm @@ -49,4 +49,8 @@ (match (pk 'match (%find-best-next 1 '(0 2))) ((a . b) (and (exact? a) (exact? b))))) +(test-equal "next-hour-from" + 7200 + (next-hour-from 10 '(0 3 7))) + (test-end) |