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:
Mathieu Lirzin 2018-03-26 16:56:40 +02:00
commit f71b0b8310
No known key found for this signature in database
GPG key ID: 0ADEE10094604D37
3 changed files with 19 additions and 15 deletions

View file

@ -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)