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
|
require 'test_helper'
class EventTest < ActiveSupport::TestCase
def setup
@cal = <<-EOT
BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//Ensemble Independent//vPim 0.658//EN
CALSCALE:Gregorian
BEGIN:VEVENT
SUMMARY:Chaosradio
DTSTART:20080505T220000
LOCATION:FM 102,60 MHz
URL:http://www.fritz.de/frequenzen
RRULE:FREQ=MONTHLY;BYMONTH=1,2,3,4,5,6,7,8,9,10,11;BYDAY=-1WE;UNTIL=20091105T220000
CREATED:20021020T220000
DURATION:PT3H
END:VEVENT
END:VCALENDAR
EOT
@first_child = Node.find(2)
end
test 'saving serialized event' do
assert event = Event.create!( :serialized_event => @cal )
end
test 'parsing calendar data' do
event = Event.create!( :serialized_event => @cal )
assert calendar = ChaosCalendar.new
assert calendar.push( event.serialized_event, @first_child.id )
assert_equal 1, calendar.calendar.length
assert_equal "Chaosradio", calendar.calendar.to_a.first.first.summary
end
test 'checking occurrences logic' do
event = Event.create!( :serialized_event => @cal )
calendar = ChaosCalendar.new
calendar.push( event.serialized_event, @first_child.id )
all_occurrences = calendar.occurrences( "2009-03-22".to_datetime, "2010-01-10".to_datetime )
assert_equal 8, all_occurrences.length
assert_equal "2009-03-25".to_date, all_occurrences.first.dtstart.to_date
assert_equal "2009-10-28".to_date, all_occurrences.last.dtstart.to_date
end
end
__END__
opt_days = 7
calendar = ChaosCalendar.new
calendar.push( cal, 25 )
t0 = Time.today
t1 = t0 + opt_days.days
all_occurrences = calendar.occurrences( t0, t1 )
all_occurrences.each do |o|
e = o.event
puts o.dtstart
puts "#{e.summary}:"
puts " description=#{e.description}" if e.description
puts " comment=#{e.comments.first}" if e.comments
puts " location=#{e.location}" if e.location
puts " status=#{e.status}" if e.status
puts " dtstart=#{e.dtstart}" if e.dtstart
puts " duration=#{Vpim::Duration.new(e.duration).to_s}" if e.duration
end
|
