sdague-icalendar 1.0.2.1

data/lib/meta.rb

@@ -0,0 +1,32 @@
+# A set of methods to help create meta-programming gizmos.
+class Object
+  # The metaclass is the singleton behind every object.  
+  def metaclass
+    class << self
+      self
+    end
+  end
+
+  # Evaluates the block in the context of the metaclass
+  def meta_eval &blk
+    metaclass.instance_eval &blk
+  end
+
+  # Acts like an include except it adds the module's methods
+  # to the metaclass so they act like class methods.
+  def meta_include mod
+    meta_eval do
+      include mod
+    end
+  end
+
+  # Adds methods to a metaclass
+  def meta_def name, &blk
+    meta_eval { define_method name, &blk }
+  end
+
+  # Defines an instance method within a class
+  def class_def name, &blk
+    class_eval { define_method name, &blk }
+  end
+end

data/test/calendar_test.rb

@@ -0,0 +1,71 @@
+$:.unshift(File.dirname(__FILE__) + '/../lib')
+
+require 'test/unit'
+require 'icalendar'
+
+require 'date'
+
+class TestCalendar < Test::Unit::TestCase
+  include Icalendar
+   # Generate a calendar using the raw api, and then spit it out
+   # as a string.  Parse the string and make sure everything matches up.
+   def test_raw_generation    
+      # Create a fresh calendar
+      cal = Calendar.new
+
+      cal.calscale = "GREGORIAN"
+      cal.version = "3.2"
+      cal.prodid = "test-prodid"
+
+      # Now generate the string and then parse it so we can verify 
+      # that everything was set, generated and parsed correctly.
+      calString = cal.to_ical
+
+      cals = Parser.new(calString).parse
+
+      cal2 = cals.first
+      assert_equal("GREGORIAN", cal2.calscale)
+      assert_equal("3.2", cal2.version)
+      assert_equal("test-prodid", cal2.prodid)
+   end
+
+   def test_block_creation
+      cal = Calendar.new
+      cal.event do
+         self.dtend = "19970903T190000Z"
+         self.summary = "This is my summary"
+      end
+
+      event = cal.event
+      event.dtend "19970903T190000Z", {:TZID => "Europe/Copenhagen"}
+      event.summary "This is my summary"
+
+      ev = cal.events.each do |ev|
+         assert_equal("19970903T190000Z", ev.dtend)
+         assert_equal("This is my summary", ev.summary)
+      end
+   end
+
+   def test_find
+     cal = Calendar.new
+
+     # add some events so we actually have to search
+     10.times do 
+       cal.event
+       cal.todo 
+       cal.journal
+       cal.freebusy 
+     end
+     event = cal.events[5]
+     assert_equal(event, cal.find_event(event.uid))
+
+     todo = cal.todos[5]
+     assert_equal(todo, cal.find_todo(todo.uid))
+
+     journal = cal.journals[5]
+     assert_equal(journal, cal.find_journal(journal.uid))
+     
+     freebusy = cal.freebusys[5]
+     assert_equal(freebusy, cal.find_freebusy(freebusy.uid))
+   end
+end

data/test/component/event_test.rb

@@ -0,0 +1,220 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+
+require 'test/unit'
+require 'icalendar'
+
+unless defined? 1.days
+  class Integer
+    def days
+      self * 60 * 60 * 24
+    end
+  end
+end
+
+# Define a test event
+testEvent = <<EOS
+BEGIN:VEVENT
+UID:19970901T130000Z-123401@host.com
+DTSTAMP:19970901T1300Z
+DTSTART:19970903T163000Z
+DTEND:19970903T190000Z
+SUMMARY:Annual Employee Review
+CLASS:PRIVATE
+CATEGORIES:BUSINESS,HUMAN RESOURCES
+END:VEVENT
+EOS
+
+class TestEvent < Test::Unit::TestCase
+
+  # Create a calendar with an event for each test.
+  def setup
+    @cal = Icalendar::Calendar.new
+    @event = Icalendar::Event.new
+  end
+
+  def test_new
+    assert(@event)
+  end
+  
+  # Properties that can only occur once per event
+  def test_single_properties
+    @event.ip_class = "PRIVATE"
+    
+    @cal.add_event(@event)
+    
+    cals = Icalendar::Parser.new(@cal.to_ical).parse
+    cal2 = cals.first
+    event2 = cal2.events.first
+    
+    assert_equal("PRIVATE", event2.ip_class)
+  end
+end
+
+class TestEventWithSpecifiedTimezone < Test::Unit::TestCase
+  
+  def setup
+    src = <<EOS
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+CALSCALE:GREGORIAN
+VERSION:2.0
+BEGIN:VEVENT
+UID:19970901T130000Z-123401@host.com
+DTSTAMP:19970901T1300Z
+DTSTART;TZID=America/Chicago:19970903T163000
+DTEND;TZID=America/Chicago:19970903T190000
+SUMMARY:Annual Employee Review
+CLASS:PRIVATE
+CATEGORIES:BUSINESS,HUMAN RESOURCES
+END:VEVENT
+END:VCALENDAR
+EOS
+    @calendar = Icalendar.parse(src).first
+    @event = @calendar.events.first
+  end
+  
+  def test_event_is_parsed
+    assert_not_nil(@event)
+  end
+  
+  def test_dtstart_should_understand_icalendar_tzid
+    assert_respond_to(@event.dtstart, :icalendar_tzid)
+  end
+  
+  def test_dtstart_tzid_should_be_correct
+    puts "#{@event.dtstart.icalendar_tzid} #{@event.dtstart}"
+    assert_equal("America/Chicago",@event.dtstart.icalendar_tzid)
+  end
+  
+  def test_dtend_tzid_should_be_correct
+    assert_equal("America/Chicago",@event.dtend.icalendar_tzid)
+  end
+  
+end
+
+class TestEventWithZuluTimezone < Test::Unit::TestCase
+  
+  def setup
+    src = <<EOS
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+CALSCALE:GREGORIAN
+VERSION:2.0
+BEGIN:VEVENT
+UID:19970901T130000Z-123401@host.com
+DTSTAMP:19970901T1300Z
+DTSTART:19970903T163000Z
+DTEND:19970903T190000Z
+SUMMARY:Annual Employee Review
+CLASS:PRIVATE
+CATEGORIES:BUSINESS,HUMAN RESOURCES
+END:VEVENT
+END:VCALENDAR
+EOS
+    @calendar = Icalendar.parse(src).first
+    @event = @calendar.events.first
+  end
+  
+  def test_event_is_parsed
+    assert_not_nil(@event)
+  end
+  
+  def test_dtstart_tzid_should_be_correct
+    puts "#{@event.dtstart.icalendar_tzid} #{@event.dtstart}"
+    assert_equal("UTC",@event.dtstart.icalendar_tzid)
+  end
+  
+  def test_dtend_tzid_should_be_correct
+    assert_equal("UTC",@event.dtend.icalendar_tzid)
+  end
+  
+end
+
+class TestEventWithFloatingTimezone < Test::Unit::TestCase
+  
+  def setup
+    src = <<EOS
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+CALSCALE:GREGORIAN
+VERSION:2.0
+BEGIN:VEVENT
+UID:19970901T130000Z-123401@host.com
+DTSTAMP:19970901T1300Z
+DTSTART:19970903T163000
+DTEND:19970903T190000
+SUMMARY:Annual Employee Review
+CLASS:PRIVATE
+CATEGORIES:BUSINESS,HUMAN RESOURCES
+END:VEVENT
+END:VCALENDAR
+EOS
+    @calendar = Icalendar.parse(src).first
+    @event = @calendar.events.first
+  end
+  
+  def test_event_is_parsed
+    assert_not_nil(@event)
+  end
+  
+  def test_dtstart_tzid_should_be_nil
+    puts "#{@event.dtstart.icalendar_tzid.inspect} #{@event.dtstart}"
+    assert_nil(@event.dtstart.icalendar_tzid)
+  end
+  
+  def test_dtend_tzid_should_be_nil
+    assert_nil(@event.dtend.icalendar_tzid)
+  end
+  
+end 
+
+class TestRecurringEventWithCount < Test::Unit::TestCase 
+  # DTSTART;TZID=US-Eastern:19970902T090000
+  # RRULE:FREQ=DAILY;COUNT=10
+  # ==> (1997 9:00 AM EDT)September 2-11
+  
+  def setup
+    src = <<EOS
+BEGIN:VCALENDAR
+METHOD:PUBLISH
+CALSCALE:GREGORIAN
+VERSION:2.0
+BEGIN:VEVENT
+UID:19970901T130000Z-123401@host.com
+DTSTAMP:19970901T1300Z
+DTSTART:19970902T090000Z
+DTEND:19970902T100000Z
+RRULE:FREQ=DAILY;COUNT=10
+SUMMARY:Annual Employee Review
+CLASS:PRIVATE
+CATEGORIES:BUSINESS,HUMAN RESOURCES
+END:VEVENT
+END:VCALENDAR
+EOS
+    @calendar = Icalendar.parse(src).first
+    @event = @calendar.events.first
+  end
+  
+  def test_event_is_parsed
+    assert_not_nil(@event)
+  end
+  
+  def test_recurrence_rules_should_return_a_recurrence_rule_array
+    assert_equal 1, @event.recurrence_rules.length
+    assert_kind_of(Icalendar::RRule, @event.recurrence_rules.first)
+  end
+  
+  def test_occurrences_after_with_start_before_start_at_should_return_count_occurrences
+    assert_equal 10, @event.occurrences_starting(Time.utc(1997, 9, 2, 8, 30, 0, 0)).length
+  end
+                  
+  def test_occurrences_after_with_start_before_start_at_should_return_an_event_with_the_dtstart_as_the_first_event
+    assert_equal @event.dtstart.to_s, @event.occurrences_starting(Time.utc(1997, 9, 2, 8, 30, 0, 0)).first.dtstart.to_s
+  end
+  
+  def test_occurrences_after_with_start_before_start_at_should_return_events_with_the_correct_dtstart_values
+    expected = (0..9).map {|delta| (@event.dtstart + delta).to_s}
+    assert_equal expected, @event.occurrences_starting(Time.utc(1997, 9, 2, 8, 30, 0, 0)).map {|occurence| occurence.dtstart.to_s}
+  end
+end
+

data/test/component/timezone_test.rb

@@ -0,0 +1,67 @@
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), "..", "lib"))
+
+require 'test/unit'
+require 'icalendar'
+
+class TestTimezone < Test::Unit::TestCase
+
+  # Create a calendar with an event for each test.
+  def setup
+    @cal = Icalendar::Calendar.new
+    # Define a test timezone
+    @testTimezone = %Q(BEGIN:VTIMEZONE\r\nTZID:America/Chicago\r\nBEGIN:STANDARD\r\nTZOFFSETTO:-0600\r\nRRULE:YEARLY\\;BYMONTH=11\\;BYDAY=1SU\r\nTZOFFSETFROM:-0500\r\nDTSTART:19701101T020000\r\nTZNAME:CST\r\nEND:STANDARD\r\nBEGIN:DAYLIGHT\r\nTZOFFSETTO:-0500\r\nRRULE:FREQ=YEARLY\\;BYMONTH=3\\;BYDAY=2SU\r\nTZOFFSETFROM:-0600\r\nDTSTART:19700308TO20000\r\nTZNAME:CDT\r\nEND:DAYLIGHT\r\nEND:VTIMEZONE\r\n)
+  end
+
+  def test_new
+    @tz = Icalendar::Timezone.new
+    assert(@tz)
+  end
+  
+  def test_raw_generation    
+    timezone = Icalendar::Timezone.new
+    daylight = Icalendar::Daylight.new
+    standard = Icalendar::Standard.new
+
+    timezone.timezone_id =            "America/Chicago"
+
+    daylight.timezone_offset_from =   "-0600"
+    daylight.timezone_offset_to =     "-0500"
+    daylight.timezone_name =          "CDT"
+    daylight.dtstart =                "19700308TO20000"
+    daylight.recurrence_rules =       ["FREQ=YEARLY;BYMONTH=3;BYDAY=2SU"]
+
+    standard.timezone_offset_from =   "-0500"
+    standard.timezone_offset_to =     "-0600"
+    standard.timezone_name =          "CST"
+    standard.dtstart =                "19701101T020000"
+    standard.recurrence_rules =       ["YEARLY;BYMONTH=11;BYDAY=1SU"]
+
+    timezone.add(daylight)
+    timezone.add(standard)
+    @cal.add(timezone)
+    assert_equal(@testTimezone, @cal.timezones.first.to_ical)
+  end
+
+  def test_block_creation
+    @cal.timezone do
+      timezone_id             "America/Chicago"
+
+      daylight do
+        timezone_offset_from  "-0600"
+        timezone_offset_to    "-0500"
+        timezone_name         "CDT"
+        dtstart               "19700308TO20000"
+        add_recurrence_rule   "FREQ=YEARLY;BYMONTH=3;BYDAY=2SU"
+      end
+
+      standard do
+        timezone_offset_from  "-0500"
+        timezone_offset_to    "-0600"
+        timezone_name         "CST"
+        dtstart               "19701101T020000"
+        add_recurrence_rule   "YEARLY;BYMONTH=11;BYDAY=1SU"
+      end
+    end
+    assert_equal(@testTimezone, @cal.timezones.first.to_ical)
+  end  
+end

data/test/component/todo_test.rb

@@ -0,0 +1,13 @@
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+class TestTodo < Test::Unit::TestCase
+
+  def setup
+    @cal = Icalendar::Calendar.new
+    @todo = Icalendar::Todo.new
+  end
+
+  def test_new
+    assert(@todo)
+  end
+end

data/test/component_test.rb

@@ -0,0 +1,66 @@
+$:.unshift File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'date'
+require 'test/unit'
+require 'icalendar'
+
+class TestComponent < Test::Unit::TestCase
+
+  # Create a calendar with an event for each test.
+  def setup
+    @cal = Icalendar::Calendar.new
+    @event = Icalendar::Event.new
+  end
+
+  def test_add_remove_component
+    @cal.add_component(@event)
+    assert_equal(1, @cal.events.size)
+    @cal.remove_component(@event)
+    assert_equal(0, @cal.events.size)
+  end
+
+  def test_ical_property
+    # No alias but it does have a prop_name
+    assert_equal(false, @event.ip_class?)
+    @event.ip_class = "PRIVATE"
+    assert_equal(true, @event.ip_class?)
+    assert_equal("PRIVATE", @event.ip_class)
+
+    # Check that both dtend and its alias start work correctly
+    date = DateTime.new(2005, 02, 05, 23, 24, 25)
+    @event.dtend = date
+    assert_equal(date.year, @event.dtend.year)
+
+    date2 =  DateTime.new(2005, 02, 05, 23, 24, 26)
+    @event.end = date2
+    assert_equal(date2.year, @event.end.year)
+  end
+
+  def test_ical_multi_property
+    # Query
+    assert_equal(false, @event.comments?)
+    @event.comments = []
+    assert_equal(true, @event.comments?)
+
+    # Should return an empty array, rather than nil
+    assert_equal(0, @event.comments.size)
+
+    # Add and remove
+    @event.add_comment "c1"
+    @event.add_comment "c2"
+    assert_equal(2, @event.comments.size)
+    assert_equal(["c1","c2"], @event.comments)
+    @event.remove_comment "c1"
+    assert_equal(["c2"], @event.comments)
+
+    # Set & get whole array
+    foo = ["as", "df"]
+    @event.comments = foo
+    assert_equal(foo, @event.comments)
+  end
+
+  def test_x_property
+    @event.x_foobar = "my-custom-property"
+    assert_equal("my-custom-property", @event.x_foobar)
+  end
+end