blob: 024dad55e21e8bb80c067e4cc77f2fbf5c161de2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
(((srfi srfi-41) stream-take stream-map stream->list stream-car)
((datetime util) day-stream)
((vcomponent base) extract attr)
((vcomponent) parse-calendar)
((vcomponent recurrence) generate-recurrence-set))
;;; Test that basic recurrence works
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART:20190302
RRULE:FREQ=DAILY
END:VEVENT"
parse-calendar))
(test-assert "Generate at all"
(stream-car (generate-recurrence-set ev)))
(test-assert "Generate some"
(stream->list (stream-take 5 (generate-recurrence-set ev))))
(test-equal "Generate First"
(stream->list
5 (stream-map (extract 'DTSTART)
(generate-recurrence-set ev)))
(stream->list
5 (day-stream
(attr ev 'DTSTART))))
;; We run the exact same thing a secound time, since I had an error with
;; that during development.
(test-equal "Generate Again"
(stream->list
(stream-take
5 (stream-map (extract 'DTSTART)
(generate-recurrence-set ev))))
(stream->list
(stream-take
5 (day-stream
(attr ev 'DTSTART)))))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART:20190302T100000
RRULE:FREQ=DAILY
END:VEVENT"
parse-calendar) )
(test-assert "daily 10:00"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART:20190302T100000
DTEND:20190302T120000
RRULE:FREQ=DAILY
END:VEVENT"
parse-calendar))
(test-assert "daily 10-12"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART:20190302T100000
DTEND:20190302T120000
RRULE:FREQ=WEEKLY
END:VEVENT"
parse-calendar))
(test-assert "weekly 10-12"
(stream-car (generate-recurrence-set ev)))
;;; TODO, also test:
;;; - limited repetition
;;; - weird rules
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART;TZID=Europe/Stockholm:20190302T100000
DTEND;TZID=Europe/Stockholm:20190302T120000
RRULE:FREQ=WEEKLY
END:VEVENT"
parse-calendar))
(test-assert "weekly TZ 10-12"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART;TZID=Europe/Stockholm:20190302T100000
DTEND;TZID=Europe/Stockholm:20190302T120000
RRULE:FREQ=WEEKLY
SEQUENCE:1
END:VEVENT"
parse-calendar))
(test-assert "weekly TZ SEQUENCE 10-12"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART;TZID=Europe/Stockholm:20190302T100000
RRULE:FREQ=WEEKLY
DTEND;TZID=Europe/Stockholm:20190302T120000
SEQUENCE:1
LOCATION:Here
END:VEVENT"
parse-calendar))
(test-assert "weekly TZ SEQUENCE LOCATION 10-12"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART:20180117T170000
RRULE:FREQ=WEEKLY
LOCATION:~
END:VEVENT"
parse-calendar))
(test-assert "Just location"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART;TZID=Europe/Stockholm:20180117T170000
DTEND;TZID=Europe/Stockholm:20180117T200000
RRULE:FREQ=WEEKLY
END:VEVENT"
parse-calendar))
(test-assert "Same times"
(stream-car (generate-recurrence-set ev)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART;TZID=Europe/Stockholm:20180117T170000
RRULE:FREQ=WEEKLY
DTEND;TZID=Europe/Stockholm:20180117T200000
SEQUENCE:1
LOCATION:~
END:VEVENT"
parse-calendar))
;; errer in dtend ?
(test-assert "Full test"
(stream-car (generate-recurrence-set ev)))
|
