diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-14 16:57:39 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-16 00:51:19 +0100 |
| commit | 97a0a9b1fe0be67a7b4efc78aa15e3aa227d51e7 (patch) | |
| tree | 9d2b5d60d8ff9a4909a7683493b24a2bd042c69c /module/vcomponent/util/group.scm | |
| parent | Document vcomponent grouping utilities. (diff) | |
| download | calp-97a0a9b1fe0be67a7b4efc78aa15e3aa227d51e7.tar.gz calp-97a0a9b1fe0be67a7b4efc78aa15e3aa227d51e7.tar.xz | |
Add tests for vcomponent grouping utilities.
Diffstat (limited to 'module/vcomponent/util/group.scm')
| -rw-r--r-- | module/vcomponent/util/group.scm | 7 |
1 files changed, 4 insertions, 3 deletions
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) |