From 97a0a9b1fe0be67a7b4efc78aa15e3aa227d51e7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 14 Nov 2023 16:57:39 +0100 Subject: Add tests for vcomponent grouping utilities. --- module/vcomponent/util/group.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'module/vcomponent') diff --git a/module/vcomponent/util/group.scm b/module/vcomponent/util/group.scm index 4001c590..6029f70c 100644 --- a/module/vcomponent/util/group.scm +++ b/module/vcomponent/util/group.scm @@ -54,9 +54,10 @@ ;; To combat this I simple create a bunch of dummy groups below. (cond [(stream-null? good-part) - (list->stream - (map (lambda (d) (cons d stream-null)) - (date-range start-date end-date)))] + ;; This case is checked, but streams lazy evaluation means that ther are missed. + (list->stream ; NOCOV + (map (lambda (d) (cons d stream-null)) ; NOCOV + (date-range start-date end-date)))] ; NOCOV [(car (stream-car good-part)) (lambda (d) (date< start-date d)) => (lambda (d) -- cgit v1.2.3