From f71b0b8310e6b297866147a11e3fd0dd5db13beb Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Mon, 26 Mar 2018 16:56:40 +0200
Subject: job-specifier: Adapt 'bump-time' to 'next-...-from' procedures
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
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>
---
tests/job-specifier.scm | 4 ++++
1 file changed, 4 insertions(+)
(limited to 'tests')
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)
--
cgit v1.2.3