awallis-ri_cal 0.8.8

data/spec/ri_cal/component_spec.rb

@@ -0,0 +1,224 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. spec_helper])
+require 'tzinfo'
+
+describe RiCal::Component do
+
+  context "building blocks" do
+
+    context "building an empty calendar" do
+      before(:each) do
+        @it = RiCal.Calendar.to_s
+      end
+
+      it "should have the default prodid" do
+        @it.should match(%r{^PRODID;X-RICAL-TZSOURCE=TZINFO:-//com.denhaven2/NONSGML ri_cal gem//EN$})
+      end
+
+      it "should have the default calscale" do
+        @it.should match(%r{^CALSCALE:GREGORIAN$})
+      end
+
+      it "should have the default icalendar version" do
+        @it.should match(%r{^VERSION:2\.0$})
+      end
+    end
+
+    context "building a calendar with time zones" do
+      it 'should allow specifying the time zone identifier' do
+        event = RiCal.Event do
+          dtstart     DateTime.parse("Feb 20, 1962 14:47:39").set_tzid('US/Pacific')
+        end
+        event.dtstart_property.should == dt_prop(DateTime.parse("Feb 20, 1962 14:47:39"), tzid = 'US/Pacific')
+      end
+
+      context "adding an exception date" do
+        
+        before(:each) do
+          @cal =  RiCal.Calendar do
+            event do
+              add_exdate 'US/Eastern', "19620220T144739"
+            end
+          end
+          @event = @cal.events.first
+          @prop = @event.exdate_property.first
+        end
+
+        it "should produce an OccurrenceList for the property" do
+          @prop.should be_instance_of(RiCal::PropertyValue::OccurrenceList)
+        end
+
+        it "should have a property with the right ical representation" do
+          @prop.to_s.should == ";TZID=US/Eastern:19620220T144739"
+        end
+        
+        context "its ruby_value" do
+          it "should have the right value" do
+            @prop.ruby_value.should == [DateTime.civil(1962, 2, 20, 14, 47, 39, Rational(-5, 24))]
+          end
+          
+          it "should have the right tzid" do
+            @prop.ruby_value.first.tzid.should == "US/Eastern"
+          end
+        end
+      end
+    end
+
+    context "with a block with 1 parameter" do
+      before(:each) do
+        @it = RiCal.Event do |event|
+          event.description = "MA-6 First US Manned Spaceflight"
+          event.dtstart = DateTime.parse("Feb 20, 1962 14:47:39")
+          event.dtend = DateTime.parse("Feb 20, 1962 19:43:02")
+          event.location = "Cape Canaveral"
+          event.add_attendee "john.glenn@nasa.gov"
+          event.alarm do
+            description "Segment 51"
+          end
+          event.alarm do |alarm|
+            alarm.description = "Second alarm"
+          end
+        end
+      end
+
+      it "should have the right description" do
+        @it.description.should == "MA-6 First US Manned Spaceflight"
+      end
+      it "should have the right dtstart" do
+        @it.dtstart.should == DateTime.parse("Feb 20, 1962 14:47:39")
+      end
+
+      it "should have a zulu time dtstart property" do
+        @it.dtstart_property.tzid.should == "UTC"
+      end
+
+      it "should have the right dtend" do
+        @it.dtend.should == DateTime.parse("Feb 20, 1962 19:43:02")
+      end
+
+      it "should have a zulu time dtend property" do
+        @it.dtend_property.tzid.should == "UTC"
+      end
+
+      it "should have the right location" do
+        @it.location.should == "Cape Canaveral"
+      end
+
+      it "should have the right attendee" do
+        @it.attendee.should include("john.glenn@nasa.gov")
+      end
+
+      it "should have 2 alarms" do
+        @it.alarms.length.should == 2
+      end
+
+      it ".the alarms should have the right description" do
+        @it.alarms.first.description.should == "Segment 51"
+        @it.alarms.last.description.should == "Second alarm"
+      end
+    end
+
+    context "building an event for MA-6" do
+      before(:each) do
+        @it = RiCal.Event do
+          description "MA-6 First US Manned Spaceflight"
+          dtstart     DateTime.parse("Feb 20, 1962 14:47:39")
+          dtend       DateTime.parse("Feb 20, 1962 19:43:02")
+          location    "Cape Canaveral"
+          add_attendee "john.glenn@nasa.gov"
+          alarm do
+            description "Segment 51"
+          end
+        end
+      end
+
+      it "should have the right description" do
+        @it.description.should == "MA-6 First US Manned Spaceflight"
+      end
+
+      it "should have the right dtstart" do
+        @it.dtstart.should == DateTime.parse("Feb 20, 1962 14:47:39")
+      end
+
+      it "should have a zulu time dtstart property" do
+        @it.dtstart_property.tzid.should == "UTC"
+      end
+
+      it "should have the right dtend" do
+        @it.dtend.should == DateTime.parse("Feb 20, 1962 19:43:02")
+      end
+
+      it "should have a zulu time dtend property" do
+        @it.dtend_property.tzid.should == "UTC"
+      end
+
+      it "should have the right location" do
+        @it.location.should == "Cape Canaveral"
+      end
+
+      it "should have the right attendee" do
+        @it.attendee.should include("john.glenn@nasa.gov")
+      end
+
+      it "should have 1 alarm" do
+        @it.alarms.length.should == 1
+      end
+
+      it "should have an alarm with the right description" do
+        @it.alarms.first.description.should == "Segment 51"
+      end
+    end
+
+    context "building a complex calendar" do
+
+      before(:each) do
+        @it = RiCal.Calendar do
+          add_x_property 'x_wr_calname', 'My Personal Calendar', true
+          event do
+            summary     'A Recurring Event'
+            description "This is some really long note content. It should be appropriately folded in the generated file.\nCarriage returns should work, too."
+            dtstart     DateTime.parse('Feb 20, 2009 20:30:00')
+            dtend       DateTime.parse('Feb 20, 2009 21:30:00')
+            location    'North Carolina'
+            dtstamp     Time.now
+            rrule       :freq => 'daily', :interval => 1
+          end
+        end
+      end
+
+      it 'should have an x_wr_calname property with the value "My Personal Calendar"' do
+        @it.x_wr_calname.first.should == "My Personal Calendar"
+      end
+
+      context "event with a long description and a dsl built recurence rule" do
+        before(:each) do
+          @cal = @it
+          @it = @cal.events.first
+        end
+
+        context "its description" do
+          it "should pass through correctly" do
+           @it.description.should == "This is some really long note content. It should be appropriately folded in the generated file.\nCarriage returns should work, too."
+          end
+        end
+
+        context "its rrule" do
+
+          it "should have a 1 rrule" do
+            @it.rrule.length.should == 1
+          end
+
+          it "should have the right rrule" do
+            @it.rrule.first.should == "FREQ=DAILY"
+          end
+
+          it "should have the right rrule hash" do
+            @it.rrule_property.first.to_options_hash.should == {:freq => 'DAILY', :interval => 1}
+          end
+        end
+      end
+    end
+
+  end
+end

data/spec/ri_cal/core_extensions/string/conversions_spec.rb

@@ -0,0 +1,78 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. .. spec_helper])
+
+describe RiCal::CoreExtensions::String::Conversions do
+  context "#to_ri_cal_date_time_value" do
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string" do
+      "20090304T123456".to_ri_cal_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :value => "20090304T123456")
+    end
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string with a TZID parameter" do
+      "TZID=America/New_York:20090304T123456".to_ri_cal_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :params => {"TZID" => "America/New_York"}, :value => "20090304T123456")
+    end
+    
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 datetime string" do
+      lambda {"20090304".to_ri_cal_date_time_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+  
+  context "#to_ri_cal_duration_value" do
+    
+    it "should produce a Duration property for a valid RFC 2445 duration string" do
+      "PT1H".to_ri_cal_duration_value.should == RiCal::PropertyValue::Duration.new(nil, :value => "PT1H")
+    end
+    
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 datetime string" do
+      lambda {"20090304".to_ri_cal_duration_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+  
+  context "#to_ri_cal_date_or_date_time_value" do
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string" do
+      "20090304T123456".to_ri_cal_date_or_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :value => "20090304T123456")
+    end
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string with a TZID parameter" do
+      "TZID=America/New_York:20090304T123456".to_ri_cal_date_or_date_time_value.should == RiCal::PropertyValue::DateTime.new(nil, :params => {"TZID" => "America/New_York"}, :value => "20090304T123456")
+    end
+
+    it "should produce a Date property for a valid RFC 2445 date string" do
+      "20090304".to_ri_cal_date_or_date_time_value.should == RiCal::PropertyValue::Date.new(nil, :value => "20090304")
+    end
+    
+    
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 date or datetime string" do
+      lambda {"2009/03/04".to_ri_cal_date_or_date_time_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+  
+  context "#to_ri_cal_occurrence_list_value" do
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string" do
+      "20090304T123456".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::DateTime.new(nil, :value => "20090304T123456")
+    end
+    
+    it "should produce a DateTime property for a valid RFC 2445 datetime string with a TZID parameter" do
+      "TZID=America/New_York:20090304T123456".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::DateTime.new(nil, :params => {"TZID" => "America/New_York"}, :value => "20090304T123456")
+    end
+
+    it "should produce a Date property for a valid RFC 2445 date string" do
+      "20090304".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::Date.new(nil, :value => "20090304")
+    end
+    
+    it "should produce a Period property for a valid RFC 2445 period string (two time format)" do
+      "20090304T012345/20090304T023456".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::Period.new(nil, :value => "20090304T012345/20090304T023456")
+    end
+
+    it "should produce a Period property for a valid RFC 2445 period string (time and duration format)" do
+      "20090304T012345/PT1H".to_ri_cal_occurrence_list_value.should == RiCal::PropertyValue::Period.new(nil, :value => "20090304T012345/PT1H")
+    end
+
+    it "should raise an InvalidPropertyValue error if the string is not a valid RFC 2445 date or datetime string" do
+      lambda {"foobar".to_ri_cal_date_or_date_time_value}.should raise_error(RiCal::InvalidPropertyValue)
+    end
+  end
+end

data/spec/ri_cal/core_extensions/time/calculations_spec.rb

@@ -0,0 +1,188 @@
+#- ©2009 Rick DeNatale, All rights reserved. Refer to the file README.txt for the license
+
+require File.join(File.dirname(__FILE__), %w[.. .. .. spec_helper])
+
+describe RiCal::CoreExtensions::Time::Calculations do
+
+  describe ".iso_week_num" do
+
+    it "should calculate week 1 for January 1, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,1).iso_week_num(1).should == 1
+    end
+
+    it "should calculate week 1 for January 7, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,7).iso_week_num(1).should == 1
+    end
+
+    it "should calculate week 2 for January 8, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,8).iso_week_num(1).should == 2
+    end
+
+    it "should calculate week 52 for December 31, 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 12,31).iso_week_num(1).should == 52
+    end
+
+    it "should calculate week 52 for January 1, 2001 for a wkst of 2 (Tuesday)" do
+      Date.new(2001, 1, 1).iso_week_num(2).should == 52
+    end
+
+    it "should calculate week 1 for Dec 31, 2003 for a wkst of 1 (Monday)" do
+      Date.new(2003, 12, 31).iso_week_num(1).should == 1
+    end
+  end
+  
+  describe ".iso_year" do
+    it "should be 1999 for January 2 2000" do
+      Date.new(2000, 1, 2).iso_year(1).should == 1999
+    end
+    
+    it "should be 1998 for December 29, 1997" do
+      Date.new(1997, 12, 29).iso_year(1).should == 1998
+    end
+  end
+
+  describe ".iso_year_start" do
+
+    it "should calculate January 4 1999 for January 2 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 1, 2).iso_year_start(1).to_s.should == Date.new(1999, 1, 4).to_s
+    end
+
+    it "should calculate January 3 2000 for January 3 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 1, 3).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate January 3 2000 for January 4 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 1, 4).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate January 3 2000 for December 31 2000 for a wkst of 1 (Monday)" do
+      Date.new(2000, 12, 31).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate week January 1, 2001 for January 1, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 1,1).iso_year_start(1).should == Date.new(2001, 1, 1)
+    end
+
+    it "should calculate week January 1, 2001 for July 4, 2001 for a wkst of 1 (Monday)" do
+      Date.new(2001, 7,4).iso_year_start(1).should == Date.new(2001, 1, 1)
+    end
+
+    it "should calculate January 3 2000 for January 3 2000" do
+      Date.new(2000, 1, 3).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    it "should calculate January 3 2000 for January 4 2000" do
+      Date.new(2000, 1, 4).iso_year_start(1).to_s.should == Date.new(2000, 1, 3).to_s
+    end
+
+    # it "should calculate week 1 for January 7, 2001 for a wkst of 1 (Monday)" do
+    #   Date.new(2001, 1,7).iso_week_num(1).should == 1
+    # end
+    #
+    # it "should calculate week 2 for January 8, 2001 for a wkst of 1 (Monday)" do
+    #   Date.new(2001, 1,8).iso_week_num(1).should == 2
+    # end
+    #
+    # it "should calculate week 52 for December 31, 2000 for a wkst of 1 (Monday)" do
+    #   Date.new(2000, 12,31).iso_week_num(1).should == 52
+    # end
+    #
+    # it "should calculate week 52 for January 1, 2001 for a wkst of 2 (Tuesday)" do
+    #   Date.new(2001, 1, 1).iso_week_num(2).should == 52
+    # end
+    #
+    # it "should calculate week 1 for Dec 31, 2003 for a wkst of 1 (Monday)" do
+    #   Date.new(2003, 12, 31).iso_week_num(1).should == 1
+    # end
+  end
+
+  describe "#iso_week_one" do
+
+    before(:each) do
+      @it = RiCal::CoreExtensions::Time::Calculations
+    end
+
+    describe "with a monday week start" do
+      it "should return Jan 3, 2000 for 2000" do
+        @it.iso_week_one(2000, 1).should == Date.new(2000, 1, 3)
+      end
+
+      it "should return Jan 1, 2001 for 2001" do
+        @it.iso_week_one(2001, 1).should == Date.new(2001, 1,1)
+      end
+
+      it "should return Dec 31, 2001 for 2002" do
+        @it.iso_week_one(2002, 1).should == Date.new(2001, 12, 31)
+      end
+
+      it "should return Dec 30, 2002 for 2003" do
+        @it.iso_week_one(2003, 1).should == Date.new(2002, 12, 30)
+      end
+
+      it "should return Dec 29, 2003 for 2004" do
+        @it.iso_week_one(2004, 1).should == Date.new(2003, 12, 29)
+      end
+    end
+
+    it "should return Jan 2, 2001 for 2001 with a Tuesday week start" do
+      @it.iso_week_one(2001, 2).should == Date.new(2001, 1, 2)
+    end
+
+    it "should return Jan 3, 2001 for 2001 with a Wednesday week start" do
+      @it.iso_week_one(2001, 3).should == Date.new(2001, 1, 3)
+    end
+
+    it "should return Jan 4, 2001 for 2001 with a Thursday week start" do
+      @it.iso_week_one(2001, 4).should == Date.new(2001, 1, 4)
+    end
+
+    it "should return Dec 29, 2000 for 2001 with a Friday week start" do
+      @it.iso_week_one(2001, 5).should == Date.new(2000, 12, 29)
+    end
+
+    it "should return Dec 30, 2000 for 2001 with a Saturday week start" do
+      @it.iso_week_one(2001, 6).should == Date.new(2000, 12, 30)
+    end
+
+    it "should return Dec 31, 2000 for 2001 with a Sunday week start" do
+      @it.iso_week_one(2001, 0).should == Date.new(2000, 12, 31)
+    end
+  end
+
+  describe ".leap_year?" do
+    it "should return true for 2000" do
+      Date.parse("1/3/2000").should be_leap_year
+    end
+
+    it "should return false for 2007" do
+      Date.parse("1/3/2007").should_not be_leap_year
+    end
+
+    it "should return true for 2008" do
+      Date.parse("1/3/2008").should be_leap_year
+    end
+
+    it "should return false for 2100" do
+      Date.parse("1/3/2100").should_not be_leap_year
+    end
+  end
+
+  describe ".days_in_month" do
+
+    it "should return 29 for February in a leap year" do
+      Date.new(2008, 2, 1).days_in_month.should == 29
+    end
+
+    it "should return 28 for February in a non-leap year" do
+      Date.new(2009, 2, 1).days_in_month.should == 28
+    end
+
+    it "should return 31 for January in a leap year" do
+      Date.new(2008, 1, 1).days_in_month.should == 31
+    end
+
+    it "should return 31 for January in a non-leap year" do
+      Date.new(2009, 1, 1).days_in_month.should == 31
+    end
+  end
+end