radiant-event_calendar-extension 1.0.0

data/spec/datasets/calendar_events_dataset.rb

@@ -0,0 +1,43 @@
+class CalendarEventsDataset < Dataset::Base  
+  uses :calendars
+  
+  def load
+    create_calendar :local do
+      create_event 'simple', :title => "Simple Event", :start_date => "2009-11-03 18:30:00"
+      create_event 'repeating', :title => 'Repeating Event', :start_date => "2009-11-03 18:30:00", :end_date => "2009-11-03 20:00:00" do
+        add_recurrence :period => "weekly", :interval => "1", :basis => 'count', :limiting_count => "4"
+      end
+      create_event 'spanning', :title => "Simple Event", :start_date => "2009-11-03 09:00:00", :end_date => "2009-11-04 17:00:00"
+      create_event 'allday', :title => "All Day Event", :start_date => "2009-11-03 09:00:00", :end_date => "2009-11-04 17:00:00", :all_day => true
+    end
+  end
+
+  helpers do
+    def create_event(title, attributes={})
+      attributes = event_attributes(attributes.update(:title => title))
+      event = create_model Event, title.symbolize, attributes
+      if block_given?
+        @event = event
+        yield
+      end
+      event
+    end
+  end
+  
+  def event_attributes(attributes={})
+    title = attributes[:title] || "Default"
+    symbol = title.symbolize
+    attributes = {
+      :calendar => @calendar,
+      :title => title,
+      :description => 'An event'
+    }.merge(attributes)
+    attributes[:site] = sites(:test) if defined? Site
+    attributes
+  end
+  
+  def add_recurrence(attributes={})
+    @event.recurrence_rules.create(attributes)
+  end
+  
+end

data/spec/datasets/calendar_pages_dataset.rb

@@ -0,0 +1,8 @@
+class CalendarPagesDataset < Dataset::Base
+  uses :calendars, :home_page
+  
+  def load
+    create_page "calendar", :slug => "calendar", :class_name => 'EventCalendarPage', :body => '<r:month />'
+  end
+ 
+end

data/spec/datasets/calendar_sites_dataset.rb

@@ -0,0 +1,6 @@
+class CalendarSitesDataset < Dataset::Base  
+  def load
+    create_record Site, :test, :name => 'Test host', :domain => '^test\.', :base_domain => 'test.host', :position => 6
+    Page.current_site = sites(:test) if defined? Site
+  end
+end

data/spec/datasets/calendars_dataset.rb

@@ -0,0 +1,34 @@
+class CalendarsDataset < Dataset::Base
+  uses :calendar_sites if defined? Site
+  
+  def load
+    create_calendar :dummy
+    create_calendar :ny
+  end
+  
+  helpers do
+    def create_calendar(name, attributes={})
+      attributes = calendar_attributes(attributes.update(:name => name))
+      calendar = create_model Calendar, name.symbolize, attributes
+      calendar.ical = calendar.build_ical(:url => 'stubbed')
+      if block_given?
+        @calendar = calendar
+        yield
+      end
+    end
+    
+    def calendar_attributes(attributes={})
+      name = attributes[:name] || "Default"
+      symbol = name.symbolize
+      attributes = {
+        :name => name,
+        :description => 'A dummy calendar',
+        :category => 'test',
+        :slug => name.to_s
+      }.merge(attributes)
+      attributes[:site] = sites(:test) if defined? Site
+      attributes
+    end
+    
+  end
+end

data/spec/datasets/recurrence_dataset.rb

@@ -0,0 +1,7 @@
+class RecurrenceDataset < Dataset::Base
+  def load
+    create_record EventRecurrenceRule, :date_limited, :period => 'weekly', :interval => 1, :basis => 'limit', :limiting_date => DateTime.civil(2009, 2, 24)
+    create_record EventRecurrenceRule, :count_limited, :period => 'monthly', :interval => 2 ,:basis => 'count', :limiting_date => DateTime.civil(2009, 2, 24), :limiting_count => 12
+    create_record EventRecurrenceRule, :unlimited, :period => 'daily', :interval => 2
+  end
+end

data/spec/files/dummy.ics

@@ -0,0 +1,59 @@
+BEGIN:VCALENDAR
+X-WR-TIMEZONE:Europe/London
+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:Europe/London
+BEGIN:STANDARD
+DTSTART:19961027T020000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU
+TZNAME:GMT
+TZOFFSETFROM:+0100
+TZOFFSETTO:+0000
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:19810329T010000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=-1SU
+TZNAME:BST
+TZOFFSETFROM:+0000
+TZOFFSETTO:+0100
+END:DAYLIGHT
+END:VTIMEZONE
+BEGIN:VEVENT
+SEQUENCE:5
+TRANSP:OPAQUE
+UID:00481E53-9258-4EA7-9F8D-947D3041A3F2
+DTSTART;TZID=Europe/London:20090224T090000
+DTSTAMP:20090225T000908Z
+SUMMARY:Test Event
+CREATED:20090225T000839Z
+DTEND;TZID=Europe/London:20090224T100000
+END:VEVENT
+BEGIN:VEVENT
+SEQUENCE:5
+TRANSP:OPAQUE
+UID:c8061ac2-1f04-11df-aef9-001ff3fffe2b
+DTSTART;TZID=Europe/London:20090224T090000
+DTSTAMP:20090225T000908Z
+SUMMARY:Repeating Event
+CREATED:20090225T000839Z
+DTEND;TZID=Europe/London:20090224T100000
+RRULE:FREQ=DAILY;INTERVAL=1;UNTIL=20090228T045959Z
+END:VEVENT
+BEGIN:VEVENT
+UID:6F372639-3FBD-429D-846B-59E6269C55A3
+DTSTART;VALUE=DATE:20090224
+DTEND;VALUE=DATE:20090224
+CREATED:20090819T132847Z
+DESCRIPTION:This is an all-day event.
+DTSTAMP:20091118T132402Z
+LOCATION:SD227739
+SEQUENCE:9
+SUMMARY:All Day
+TRANSP:TRANSPARENT
+END:VEVENT
+END:VCALENDAR

data/spec/files/ny.ics

@@ -0,0 +1,36 @@
+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:911be31c-1f03-11df-aef9-001ff3fffe2b
+DTSTART;TZID=US/Eastern:20090224T090000
+DTSTAMP:20090225T000908Z
+SUMMARY:Test Event
+CREATED:20090225T000839Z
+DTEND;TZID=US/Eastern:20090224T100000
+END:VEVENT
+END:VCALENDAR

data/spec/lib/event_calendar_page_spec.rb

@@ -0,0 +1,24 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe EventCalendarPage do
+  dataset :calendar_pages
+  
+  it "should be a page" do
+    pages(:calendar).is_a?(Page).should be_true
+  end
+  
+  it "should be cacheable" do
+    pages(:calendar).cache?.should be_true
+  end
+  
+  describe ".find_by_url" do
+    it "should return self to our own url" do
+      pages(:calendar).find_by_url("/#{pages(:calendar).slug}/").should == pages(:calendar)
+    end
+  
+    it "should return self to any child url" do
+      pages(:calendar).find_by_url("/#{pages(:calendar).slug}/something").should == pages(:calendar)
+    end
+  end
+
+end

data/spec/models/calendar_spec.rb

@@ -0,0 +1,11 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe Calendar do
+  dataset :calendars
+  
+  it "should be ok" do
+    Calendar.should_not be_nil
+  end
+  
+
+end

data/spec/models/event_spec.rb

@@ -0,0 +1,98 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe Event do
+  dataset :calendar_events
+  
+  before do
+    @ical = calendars(:dummy).ical
+    @ical.parse_file(File.dirname(__FILE__) + "/../files/dummy.ics")
+  end
+      
+  describe "A simple event" do
+    before do 
+      @event = events(:simple)
+    end
+    
+    it "should be valid" do
+      @event.valid?.should be_true
+    end
+    
+    [:title, :start_date].each do |field|
+      it "should not be valid without a #{field}" do
+        @event.send "#{field}=".intern, nil
+        @event.valid?.should be_false
+      end
+    end
+    
+    it "should not mind if it has no end date" do
+      @event.end_date.should be_nil
+      @event.duration.should == 0
+    end
+  end
+
+  describe "A spanning event" do
+    before do 
+      @event = events(:spanning)
+    end
+    
+    it "should have the right duration" do
+      @event.duration.should == 32.hours
+    end
+    
+    it "should not be marked as all day" do
+      @event.all_day?.should be_false
+    end
+  end
+
+  describe "A repeating event" do
+    before do 
+      @event = events(:repeating)
+      @event.send :update_occurrences
+    end
+    
+    it "should have the right duration" do
+      @event.duration.should == 90.minutes
+    end
+    
+    it "should not be marked as all day" do
+      @event.all_day?.should be_false
+    end
+    
+    it "should have a recurrence rule" do
+      @event.recurrence_rules.should_not be_empty
+      @event.recurrence_rules.first.period.should == 'weekly'
+      @event.recurrence_rules.first.interval.should == 1
+      @event.recurrence_rules.first.limiting_count.should == 4
+    end
+    
+    it "should have occurrences" do
+      @event.occurrences.should_not be_empty
+    end
+    
+    describe "recurring" do
+      before do 
+        @occurrence = @event.occurrences.last
+      end
+      
+      it "should have the right master" do
+        @occurrence.master.should == @event
+      end
+      
+      it "should resemble its master in most ways" do
+        [:title, :description, :event_venue, :keywords, :url, :postcode, :duration].each do |att|
+          @occurrence.send(att).should == @event.send(att)
+        end
+      end
+      
+      it "should have a different date and uuid" do
+        [:start_date, :end_date, :uuid].each do |att|
+          @occurrence.send(att).should_not == @event.send(att)
+        end
+      end
+
+    end
+    
+  end
+
+end
+

data/spec/models/ical_spec.rb

@@ -0,0 +1,63 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe Ical do
+  dataset :calendars
+  
+  before do
+    @ical = calendars(:dummy).ical
+  end
+      
+  describe "reading an ics file with GMT times" do
+    before do
+      lambda {@ical.parse_file(File.dirname(__FILE__) + "/../files/dummy.ics")}.should_not raise_error
+      @test = @ical.calendar.events.find_by_title("Test Event")
+      @allday = @ical.calendar.events.find_by_title("All Day")
+      @repeating = @ical.calendar.events.find_by_title("Repeating Event")
+    end
+
+    it "should import events" do
+      @ical.calendar.events.should_not be_empty
+      @test.title.should_not be_nil
+      @allday.title.should_not be_nil
+    end
+    
+    it "should record timed events (with GMT times)" do
+      @test.start_date.should == DateTime.civil(2009, 2, 24, 9, 0, 0)
+      @test.all_day?.should be_false
+    end
+
+    it "should record all-day events (with GMT times set to midnight)" do
+      @allday.start_date.should == DateTime.civil(2009, 2, 24)
+      @allday.end_date.should == DateTime.civil(2009, 2, 24)
+      @allday.all_day?.should be_true
+    end
+
+    it "should record repeating events" do
+      @repeating.recurrence_rules.should_not be_empty
+      rrule = @repeating.recurrence_rules.first
+      rrule.period.downcase.should == 'daily'
+      rrule.interval.should == 1
+      rrule.limiting_date.should == DateTime.civil(2009, 2, 28, 4, 59, 59)
+    end
+
+  end
+  describe "reading an ics file from another timezone" do
+    before do
+      lambda {@ical.parse_file(File.dirname(__FILE__) + "/../files/ny.ics")}.should_not raise_error
+    end
+    
+    it "should import events" do
+      @ical.calendar.events.should_not be_empty
+      @ical.calendar.events.first.title.should == "Test Event"
+    end
+    
+    it "should record events (with adjusted GMT times)" do
+      @ical.calendar.events.first.start_date.should == DateTime.civil(2009, 2, 24, 14, 0, 0)
+    end
+    
+  end
+  
+  
+
+end
+

data/spec/models/recurrence_rule_spec.rb

@@ -0,0 +1,82 @@
+require File.dirname(__FILE__) + '/../spec_helper'
+
+describe EventRecurrenceRule do
+  dataset :recurrence
+  
+  describe "date-limited rule" do
+    before do 
+      @rule = event_recurrence_rules(:date_limited)
+    end
+    
+    it "should be bounded" do
+      @rule.unbounded?.should be_false
+    end
+
+    it "should report the right basis" do
+      @rule.basis.should == 'limit'
+    end
+
+    it "should describe itself correctly" do
+      @rule.to_s.should == "weekly until 24 February 2009"
+    end
+  end
+
+  describe "count-limited rule" do
+    before do 
+      @rule = event_recurrence_rules(:count_limited)
+    end
+    
+    it "should be bounded" do
+      @rule.unbounded?.should be_false
+    end
+
+    it "should report the right basis" do
+      @rule.basis.should == 'count'
+    end
+
+    it "should describe itself correctly" do
+      @rule.to_s.should == "every 2 months, 12 times"
+    end
+  end
+
+  describe "unlimited rule" do
+    before do 
+      @rule = event_recurrence_rules(:unlimited)
+    end
+    
+    it "should not be bounded" do
+      @rule.unbounded?.should be_true
+    end
+
+    it "should report no basis" do
+      @rule.basis.should be_nil
+    end
+    
+    it "should describe itself correctly" do
+      @rule.to_s.should == "every 2 days, indefinitely"
+    end
+  end
+
+  describe "imported rule" do
+    before do 
+      @rule = EventRecurrenceRule.from("FREQ=DAILY;INTERVAL=1;UNTIL=20090228")
+    end
+    
+    it "should be bounded" do
+      @rule.unbounded?.should be_false
+    end
+
+    it "should report the right basis" do
+      @rule.basis.should == 'limit'
+    end
+
+    it "should have the right limiting date" do
+      @rule.limiting_date.should == DateTime.civil(2009, 2, 28)
+    end
+    
+    it "should describe itself correctly" do
+      @rule.to_s.should == "daily until 28 February 2009"
+    end
+  end
+
+end