job-specifier: Adapt 'bump-time' to 'next-...-from' procedures
This is a follow-up to commit 913e3c65e4.
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>
This commit is contained in:
parent
fad58ca8c2
commit
f71b0b8310
3 changed files with 19 additions and 15 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue