#- ©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::Timezone do

  context ".entity_name" do
    it "should be VTIMEZONE" do
      RiCal::Component::Timezone.entity_name.should == "VTIMEZONE"
    end
  end

  context "from an iCal.app calendar for America/New_York starting March 11 2007" do
    before(:each) do
      @it = RiCal.parse_string <<TZEND
BEGIN:VTIMEZONE
TZID:US/Eastern
BEGIN:DAYLIGHT
TZOFFSETFROM:-0500
TZOFFSETTO:-0400
DTSTART:20070311T020000
RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=2SU
TZNAME:EDT
END:DAYLIGHT
BEGIN:STANDARD
TZOFFSETFROM:-0400
TZOFFSETTO:-0500
DTSTART:20071104T020000
RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=1SU
TZNAME:EST
END:STANDARD
END:VTIMEZONE
TZEND
      @it = @it.first
    end

    it "should be a Timezone" do
      @it.should be_kind_of(RiCal::Component::Timezone)
    end

    context ".local_to_utc" do
      it "should produce 2/27/2009 18:00 UTC for 2/27/2009 13:00" do
        expected = RiCal::PropertyValue::DateTime.new(nil, :value => "20090227T1800Z" )
        @it.local_to_utc(DateTime.parse("Feb 27, 2009 13:00")).should == expected
      end
    end

    context ".utc_to_local" do
      it "should produce 2/27/2009 13:00 EST for 2/27/2009 18:00 UTC" do
        expected = RiCal::PropertyValue::DateTime.new(nil, :params => {'TZID' => 'US/Eastern'}, :value => "20090227T1300" )
        @it.utc_to_local(DateTime.parse("Feb 27, 2009 18:00")).should == expected
      end
    end

    context ".period_for_local" do
      it "should raise TZInfo::PeriodNotFound for an invalid local time, e.g. Mar 8, 2009 2:30" do
        lambda {@it.period_for_local(DateTime.parse("Mar 8, 2009 2:30"))}.should raise_error(TZInfo::PeriodNotFound)
      end

      context "for an ambiguous local time , e.g. Nov 1, 2009 2:00" do
        context "lacking a dst parameter or block" do
          it "should raise TZInfo::AmbiguousTime" do
            lambda {@it.period_for_local(DateTime.parse("Nov 1, 2009 2:00"))}.should raise_error(TZInfo::AmbiguousTime)
          end
        end

        context "with a dst parameter" do
          it "should return a dst period if the dst parameter is true" do
            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00"), true).should be_dst
          end
          
          it "should return a std period if the dst parameter is false" do
            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00"), false).should_not be_dst
          end
        end

        context "with a block" do
          it "should return a period if the block returns a TimezonePeriod" do
            mock_period = ::RiCal::Component::Timezone::TimezonePeriod.new(nil)
            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00")) { |results|
              mock_period
            }.should == mock_period
          end
          
          it "should return a period if the block returns a single element array" do
            mock_period = :foo
            @it.period_for_local(DateTime.parse("Nov 1, 2009 2:00")) { |results|
             [ mock_period]
            }.should == mock_period
          end
          
          it "should raise TZInfo::PeriodNotFound if the block returns a multi-element array" do
            lambda {
              @it.period_for_local(DateTime.parse("Mar 8, 2009 2:30")) {|results| [1,2]}
              }.should raise_error(TZInfo::PeriodNotFound)
          end
          
        end
      end
    end

    context ".periods_for_local" do
      context "for the date on which DST begins springing ahead e.g. Mar 8, 2009" do
        it "should return a 1 element array for 1 second before the transition time" do
          @it.periods_for_local(DateTime.parse("Mar 8, 2009 1:59:59")).length.should == 1
        end

        it "should return an empty array for the transition time" do
          @it.periods_for_local(DateTime.parse("Mar 8, 2009 2:00:00")).should == []
        end

        it "should return an empty array for 1 second after the transition time" do
          @it.periods_for_local(DateTime.parse("Mar 8, 2009 2:00:01")).should == []
        end

        it "should return an empty array for 1 second before the spring ahead time" do
          @it.periods_for_local(DateTime.parse("Mar 8, 2009 2:59:59")).should == []
        end

        it "should return a 1 element array for the spring ahead time" do
          @it.periods_for_local(DateTime.parse("Mar 8, 2009 3:00:00")).length.should == 1
        end
      end

      context "for the date on which DST ends falling back e.g. Nov 11, 2009" do
        it "should return a 1 element array for 1 second before the transition time" do
          @it.periods_for_local(DateTime.parse("Nov 1, 2009 1:59:59")).length.should == 1
        end

        it "should return a 2 element array for the transition time" do
          @it.periods_for_local(DateTime.parse("Nov 1, 2009 2:00:00")).length.should == 2
        end

        it "should return a 2 element array for 1 second after the transition time" do
          @it.periods_for_local(DateTime.parse("Nov 1, 2009 2:00:01")).length.should == 2
        end

        it "should return a 2 element array for 59 minutes and 59 seconds after the transition time" do
          @it.periods_for_local(DateTime.parse("Nov 1, 2009 2:59:59")).length.should == 2
        end

        it "should return a 2 element array for 1 hour after the transition time" do
          @it.periods_for_local(DateTime.parse("Nov 1, 2009 3:00:00")).length.should == 2
        end

        it "should return a 2 element array for 1 hour and 1 second after the transition time" do
          @it.periods_for_local(DateTime.parse("Nov 1, 2009 3:00:01")).length.should == 2
        end
      end
    end
  end
  
  context "Bug report from paulsm" do
      before(:each) do
        cals = RiCal.parse_string <<ENDCAL
BEGIN:VCALENDAR
X-WR-TIMEZONE:America/New_York
PRODID:-//Apple Inc.//iCal 3.0//EN
CALSCALE:GREGORIAN
X-WR-CALNAME:test
VERSION:2.0
X-WR-RELCALID:1884C7F8-BC8E-457F-94AC-297871967D5E
X-APPLE-CALENDAR-COLOR:#2CA10B
BEGIN:VTIMEZONE
TZID:US/Eastern
BEGIN:DAYLIGHT
TZOFFSETFROM:-0500
TZOFFSETTO:-0400
DTSTART:20070311T020000
RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=2SU
TZNAME:EDT
END:DAYLIGHT
BEGIN:STANDARD
TZOFFSETFROM:-0400
TZOFFSETTO:-0500
DTSTART:20071104T020000
RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=1SU
TZNAME:EST
END:STANDARD
END:VTIMEZONE
BEGIN:VEVENT
SEQUENCE:5
TRANSP:OPAQUE
UID:00481E53-9258-4EA7-9F8D-947D3041A3F2
DTSTART;TZID=US/Eastern:20090224T090000
DTSTAMP:20090225T000908Z
SUMMARY:Test Event
CREATED:20090225T000839Z
DTEND;TZID=US/Eastern:20090224T100000
RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20090228T045959Z
END:VEVENT
END:VCALENDAR
ENDCAL
      @event = cals.first.events.first
    end
    
    context "the events dtstart" do
      it "should be the right DateTime" do
        @event.dtstart.should == DateTime.civil(2009, 2, 24, 9, 0, 0, Rational(-5, 24))
      end
      
      it "should have the right tzid" do
        @event.dtstart.tzid.should == "US/Eastern"
      end
    end
    
    context "the events dtend" do
      it "should be the right DateTime" do
        @event.dtend.should == DateTime.civil(2009, 2, 24, 10, 0, 0, Rational(-5, 24))
      end
      
      it "should have the right tzid" do
        @event.dtend.tzid.should == "US/Eastern"
      end
    end
  end
end