add exrule tests

Author: wvengen

spec/examples/ice_cube_spec.rb

@@ -254,6 +254,14 @@
     schedule.rrules.should == rules
   end
 
+  it 'can retrieve exrules from a schedule' do
+    schedule = IceCube::Schedule.new(Time.now)
+    rules = [IceCube::Rule.daily, IceCube::Rule.monthly, IceCube::Rule.yearly]
+    rules.each { |r| schedule.add_exception_rule(r) }
+    # pull the rules back out of the schedule and compare
+    schedule.exrules.should == rules
+  end
+
   it 'can retrieve recurrence times from a schedule' do
     schedule = IceCube::Schedule.new(Time.now)
     times = [Time.now, Time.now + 5, Time.now + 10]
@@ -569,6 +577,14 @@
     schedule.rrules.should == [daily, monthly]
   end
 
+  it 'should have some convenient alias for exrules' do
+    schedule = IceCube::Schedule.new(Time.now)
+    daily = IceCube::Rule.daily; monthly = IceCube::Rule.monthly
+    schedule.add_exception_rule daily
+    schedule.exrule monthly
+    schedule.exrules.should == [daily, monthly]
+  end
+
   it 'should have some convenient alias for recurrence_times' do
     schedule = IceCube::Schedule.new(Time.now)
     schedule.add_recurrence_time Time.local(2010, 8, 13)
@@ -583,6 +599,14 @@
     schedule.extimes.should == [Time.local(2010, 8, 13), Time.local(2010, 8, 14)]
   end
 
+  it 'should be able to have a rule and an exrule' do
+    schedule = IceCube::Schedule.new(Time.local(2010, 8, 27, 10))
+    schedule.rrule IceCube::Rule.daily
+    schedule.exrule IceCube::Rule.daily.day(:friday)
+    schedule.occurs_on?(Date.new(2010, 8, 27)).should be_false
+    schedule.occurs_on?(Date.new(2010, 8, 28)).should be_true
+  end
+
   it 'should always generate the correct number of days for .first' do
     s = IceCube::Schedule.new(Time.zone.parse('1-1-1985'))
     r = IceCube::Rule.weekly(3).day(:monday, :wednesday, :friday)

spec/examples/to_ical_spec.rb

@@ -126,6 +126,27 @@
     schedule.to_ical.should == expectation
   end
 
+  it 'should be able to serialize a schedule with one exrule' do
+    Time.zone ='Pacific Time (US & Canada)'
+    schedule = IceCube::Schedule.new(Time.zone.local(2010, 5, 10, 9, 0, 0))
+    schedule.add_exception_rule IceCube::Rule.weekly
+    # test equality
+    expectation= "DTSTART;TZID=PDT:20100510T090000\n"
+    expectation<< 'EXRULE:FREQ=WEEKLY'
+    schedule.to_ical.should == expectation
+  end
+
+  it 'should be able to serialize a schedule with multiple exrules' do
+    Time.zone ='Eastern Time (US & Canada)'
+    schedule = IceCube::Schedule.new(Time.zone.local(2010, 10, 20, 4, 30, 0))
+    schedule.add_exception_rule IceCube::Rule.weekly.day_of_week(:monday => [2, -1])
+    schedule.add_exception_rule IceCube::Rule.hourly
+    expectation = "DTSTART;TZID=EDT:20101020T043000\n"
+    expectation<< "EXRULE:FREQ=WEEKLY;BYDAY=2MO,-1MO\n"
+    expectation<< "EXRULE:FREQ=HOURLY"
+    schedule.to_ical.should == expectation
+  end
+
   it 'should be able to serialize a schedule with an rtime' do
     schedule = IceCube::Schedule.new(Time.utc(2010, 5, 10, 10, 0, 0))
     schedule.add_recurrence_time Time.utc(2010, 6, 20, 5, 0, 0)