diff options
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) |