curzonj-icalendar 1.0.2

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,256 @@
+$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 TestAllDayEventWithoutTime < Test::Unit::TestCase
+  
+  def setup
+    src = <<EOS
+BEGIN:VCALENDAR
+VERSION:2.0
+X-WR-CALNAME:New Event
+PRODID:-//Apple Computer\, Inc//iCal 2.0//EN
+X-WR-RELCALID:3A016BE7-8932-4456-8ABD-C8F7EEC5963A
+X-WR-TIMEZONE:Europe/London
+CALSCALE:GREGORIAN
+METHOD:PUBLISH
+BEGIN:VEVENT
+DTSTART;VALUE=DATE:20090110
+DTEND;VALUE=DATE:20090111
+SUMMARY:New Event
+UID:3829F33C-F601-49AC-A3A5-C3AC4A6A3483
+SEQUENCE:4
+DTSTAMP:20090109T184719Z
+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_set_correctly
+    assert_equal("20090110", @event.dtstart.to_ical)
+  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/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,76 @@
+$:.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
+
+  def test_respond_to_missing
+    component = Icalendar::Component.new('name')
+    assert !component.respond_to?(:there_is_no_such_method)
+  end
+
+  def test_respond_to_x_property
+    component = Icalendar::Component.new('name')
+    assert component.respond_to?(:x_foobar)
+  end
+end