rubyredrick-ri_cal 0.0.2

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

@@ -0,0 +1,189 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+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

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

@@ -0,0 +1,46 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+require File.join(File.dirname(__FILE__), %w[.. .. .. spec_helper])
+
+describe RiCal::CoreExtensions::Time::WeekDayPredicates do
+
+  describe ".nth_wday_in_month" do
+    it "should return Feb 28, 2005 for the 4th Monday for a date in February 2005" do
+      expected = RiCal::PropertyValue::Date.new(nil, :value => "20050228")
+      it =Date.parse("Feb 7, 2005").nth_wday_in_month(4, 1)
+      it.should == expected
+    end
+  end
+
+  describe ".nth_wday_in_month?" do
+    it "should return true for Feb 28, 2005 for the 4th Monday" do
+      Date.parse("Feb 28, 2005").nth_wday_in_month?(4, 1).should be
+    end
+  end
+
+  describe ".start_of_week_with_wkst" do
+    describe "for Wednesday Sept 10 1997" do
+      before(:each) do
+        @date = Date.parse("Sept 10, 1997")
+      end
+
+      it "should return a Date of Sept 7, 1997 00:00 for a wkst of 0 - Sunday" do
+        @date.start_of_week_with_wkst(0).should == Date.parse("Sept 7, 1997")
+      end
+
+      it "should return a Date of Sept 8, 1997 00:00 for a wkst of 1 - Monday" do
+        @date.start_of_week_with_wkst(1).should == Date.parse("Sept 8, 1997")
+      end
+
+      it "should return a Date of Sept 10, 1997 00:00 for a wkst of 3 - Wednesday" do
+        @date.start_of_week_with_wkst(3).should == Date.parse("Sept 10, 1997")
+      end
+
+      it "should return a Date of Sept 4, 1997 00:00 for a wkst of 4 - Thursday" do
+        @date.start_of_week_with_wkst(4).should == Date.parse("Sept 4, 1997")
+      end
+    end
+
+  end
+end

data/spec/ri_cal/occurrence_enumerator_spec.rb

@@ -0,0 +1,218 @@
+#- ©2009 Rick DeNatale
+#- All rights reserved
+
+require File.join(File.dirname(__FILE__), %w[.. spec_helper.rb])
+
+# Note that this is more of a functional spec
+describe RiCal::OccurrenceEnumerator do
+  
+  Fr13Unbounded_Zulu = <<-TEXT
+BEGIN:VEVENT
+DTSTART:19970902T090000Z
+EXDATE:19970902T090000Z
+RRULE:FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13
+END:VEVENT
+TEXT
+
+ Fr13Unbounded_Eastern = <<-TEXT
+BEGIN:VEVENT
+DTSTART;TZID=US-Eastern:19970902T090000
+EXDATE;TZID=US-Eastern:19970902T090000
+RRULE:FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13
+END:VEVENT
+TEXT
+
+ Fr13UnboundedZuluExpectedFive = [
+   "19980213T090000Z",
+   "19980313T090000Z",
+   "19981113T090000Z",
+   "19990813T090000Z",
+   "20001013T090000Z"
+   ].map {|start| src = <<-TEXT
+BEGIN:VEVENT
+DTSTART:#{start}
+RECURRENCE-ID:#{start}
+END:VEVENT
+TEXT
+          RiCal.parse_string(src).first
+        }
+
+  describe ".occurrences" do
+    describe "with an unbounded component" do
+      before(:each) do
+        @it = RiCal.parse_string(Fr13Unbounded_Zulu).first
+      end
+      
+      it "should raise an ArgumentError with no options to limit result" do
+        lambda {@it.occurrences}.should raise_error(ArgumentError)
+      end
+      
+      it "should have the right five occurrences when :count => 5 option is used" do
+        result = @it.occurrences(:count => 5)
+        result.should == Fr13UnboundedZuluExpectedFive
+      end
+      
+    end
+  end
+    
+
+  describe ".each" do
+    describe " for Every Friday the 13th, forever" do
+      before(:each) do
+        event = RiCal.parse_string(Fr13Unbounded_Zulu).first
+        @result = []
+        event.each do |occurrence|
+          break if @result.length >= 5
+          @result << occurrence
+        end
+      end
+
+      it "should have the right first six occurrences" do
+        # TODO - Need to properly deal with timezones
+        @result.should == Fr13UnboundedZuluExpectedFive
+      end
+
+    end
+  end
+end
+
+describe RiCal::OccurrenceEnumerator::OccurrenceMerger do
+  before(:each) do
+    @merger = RiCal::OccurrenceEnumerator::OccurrenceMerger
+  end
+  
+  describe ".for" do
+    it "should return an EmptyEnumerator if the rules parameter is nil" do
+      @merger.for(nil, nil).should == RiCal::OccurrenceEnumerator::EmptyRulesEnumerator
+    end
+
+    it "should return an EmptyEnumerator if the rules parameter is empty" do
+      @merger.for(nil, []).should == RiCal::OccurrenceEnumerator::EmptyRulesEnumerator
+    end
+    
+    describe "with a single rrule" do
+      before(:each) do
+        @component = mock("component", :dtstart => :dtstart_value)
+        @rrule = mock("rrule", :enumerator => :rrule_enumerator)
+      end
+      
+      it "should return the enumerator the rrule" do
+        @merger.for(@component, [@rrule]).should == :rrule_enumerator
+      end
+      
+      it "should pass the component to the enumerator instantiation" do
+        @rrule.should_receive(:enumerator).with(@component)
+        @merger.for(@component, [@rrule])
+      end
+    end
+    
+    describe "with multiple rrules" do
+      before(:each) do
+        @component = mock("component", :dtstart => :dtstart_value)
+        @enum1 = mock("rrule_enumerator1", :next_occurrence => :occ1, :bounded? => true)
+        @enum2 = mock("rrule_enumerator2", :next_occurrence => :occ2, :bounded? => true)
+        @rrule1 = mock("rrule", :enumerator => @enum1)
+        @rrule2 = mock("rrule", :enumerator => @enum2)
+      end
+      
+      it "should return an instance of RiCal::OccurrenceEnumerator::OccurrenceMerger" do
+        @merger.for(@component, [@rrule1, @rrule2]).should be_kind_of(RiCal::OccurrenceEnumerator::OccurrenceMerger)
+      end
+      
+      it "should pass the component to the enumerator instantiation" do
+        @rrule1.should_receive(:enumerator).with(@component).and_return(@enum1)
+        @rrule2.should_receive(:enumerator).with(@component).and_return(@enum2)
+        @merger.for(@component, [@rrule1, @rrule2])
+      end
+      
+      it "should preload the next occurrences" do
+        @enum1.should_receive(:next_occurrence).and_return(:occ1)
+        @enum2.should_receive(:next_occurrence).and_return(:occ2)
+        @merger.for(@component, [@rrule1, @rrule2])        
+      end
+    end
+  end
+  
+  describe "#next_occurence" do
+
+    describe "with unique nexts" do
+      before(:each) do
+        @enum1 = mock("rrule_enumerator1", :next_occurrence => 3, :bounded? => true)
+        @enum2 = mock("rrule_enumerator2", :next_occurrence => 2, :bounded? => true)
+        @rrule1 = mock("rrule", :enumerator => @enum1)
+        @rrule2 = mock("rrule", :enumerator => @enum2)
+        @it = @merger.new(0, [@rrule1, @rrule2])
+      end
+      
+      it "should return the earliest occurrence" do
+        @it.next_occurrence.should == 2
+      end
+      
+      it "should advance the enumerator which returned the result" do
+        @enum2.should_receive(:next_occurrence).and_return(4)
+        @it.next_occurrence
+      end
+      
+      it "should not advance the other enumerator" do
+        @enum1.should_not_receive(:next_occurrence)
+        @it.next_occurrence
+      end
+      
+      it "should properly update the next array" do
+        @enum2.stub!(:next_occurrence).and_return(4)
+        @it.next_occurrence
+        @it.nexts.should == [3, 4]
+      end
+    end
+    
+    describe "with duplicated nexts" do
+      before(:each) do
+        @enum1 = mock("rrule_enumerator1", :next_occurrence => 2, :bounded? => true)
+        @enum2 = mock("rrule_enumerator2", :next_occurrence => 2, :bounded? => true)
+        @rrule1 = mock("rrule", :enumerator => @enum1)
+        @rrule2 = mock("rrule", :enumerator => @enum2)
+        @it = @merger.new(0, [@rrule1, @rrule2])
+      end
+      
+      it "should return the earliest occurrence" do
+        @it.next_occurrence.should == 2
+      end
+      
+      it "should advance both enumerators" do
+        @enum1.should_receive(:next_occurrence).and_return(5)
+        @enum2.should_receive(:next_occurrence).and_return(4)
+        @it.next_occurrence
+      end
+      
+      it "should properly update the next array" do
+        @enum1.stub!(:next_occurrence).and_return(5)
+        @enum2.stub!(:next_occurrence).and_return(4)
+        @it.next_occurrence
+        @it.nexts.should == [5, 4]
+      end
+      
+    end
+    
+    describe "with all enumerators at end" do
+      before(:each) do
+        @enum1 = mock("rrule_enumerator1", :next_occurrence => nil, :bounded? => true)
+        @enum2 = mock("rrule_enumerator2", :next_occurrence => nil, :bounded? => true)
+        @rrule1 = mock("rrule", :enumerator => @enum1)
+        @rrule2 = mock("rrule", :enumerator => @enum2)
+        @it = @merger.new(0, [@rrule1, @rrule2])
+      end
+      
+      it "should return nil" do
+        @it.next_occurrence.should == nil
+      end
+      
+      it "should not advance the enumerators which returned the result" do
+        @enum1.should_not_receive(:next_occurrence)
+        @enum2.should_not_receive(:next_occurrence)
+        @it.next_occurrence
+      end
+    end
+  end
+end
+  
+