From 732b12c5cfa4c7609ef3d2890a4056689f378b02 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 13 May 2020 02:25:27 +0200 Subject: Update run-test for recurrence sets. --- module/vcomponent/recurrence/display/test.scm | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'module/vcomponent/recurrence') 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) -- cgit v1.2.3