diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-13 02:25:27 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-13 02:25:27 +0200 |
| commit | 732b12c5cfa4c7609ef3d2890a4056689f378b02 (patch) | |
| tree | 341f740aebd6917c1610490d0ed6e56f939f620c /module/vcomponent/recurrence | |
| parent | Commented up where the failing recurrence sets fail. (diff) | |
| download | calp-732b12c5cfa4c7609ef3d2890a4056689f378b02.tar.gz calp-732b12c5cfa4c7609ef3d2890a4056689f378b02.tar.xz | |
Update run-test for recurrence sets.
Diffstat (limited to 'module/vcomponent/recurrence')
| -rw-r--r-- | module/vcomponent/recurrence/display/test.scm | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/module/vcomponent/recurrence/display/test.scm b/module/vcomponent/recurrence/display/test.scm index 3dded74b..f7ed6714 100644 --- a/module/vcomponent/recurrence/display/test.scm +++ b/module/vcomponent/recurrence/display/test.scm @@ -16,16 +16,19 @@ ;; Examples copied from RFC5545 -(define (run-test comp) - (format #t "~%> ~a~%" (attr comp 'SUMMARY)) - (format #t "=> upprepas ~a.~%~{~a~^, ~}~%" (format-recurrence-rule - (attr comp 'RRULE)) - (map (lambda (d) (datetime->string d "~1 ~3")) - (stream->list - ;; TODO this assumes a future version of rrule-instances - ;; which assumes a pre parsed recurrence rule. - 10 ((@@ (vcomponent recurrence generate-alt) rrule-instances) - comp))))) +(define run-test + (let ((count 0)) + (lambda (comp) + (mod! count = (+ 1)) + (format #t "~%~a > ~a~%" count (attr comp 'SUMMARY)) + (format #t "=> upprepas ~a.~%~{~a~^, ~}~%" (format-recurrence-rule + (attr comp 'RRULE)) + (map (lambda (d) (datetime->string d "~a ~1 ~3")) + (stream->list + ;; TODO this assumes a future version of rrule-instances + ;; which assumes a pre parsed recurrence rule. + 10 ((@@ (vcomponent recurrence generate-alt) rrule-instances) + comp))))))) (define (vevent . rest) |