vpim 0.695 → 13.11.11

data/test/test_agent_app.rb

@@ -1,74 +0,0 @@
-require 'test/common'
-require 'sinatra/test/unit'
-
-require 'vpim/agent/app'
-
-class IcsAgent < Test::Unit::TestCase
-
-  def to_str
-    @caldata
-  end
-
-  def setup
-    @thrd = data_on_port(self, 9876)
-  end
-  def teardown
-    @thrd.kill
-  end
-
-  def test_ics_atom_query
-    @caldata = open('test/calendars/weather.calendar/Events/1205042405-0-0.ics').read
-
-    get '/ics/atom?http://127.0.0.1:9876'
-
-    #pp @response
-    assert(@response.body =~ /<\?xml/)
-    assert_equal(Vpim::Agent::Atomize::MIME, @response['Content-Type'])
-    assert_equal(200, @response.status)
-    assert(@response.body =~ Regexp.new(
-      Regexp.quote(
-        "<id>http://example.org/ics/atom?http://127.0.0.1:9876</id>"
-    )), @response.body)
-  end
-
-  def test_ics
-    get '/ics'
-
-    assert(@response.body =~ /<html/)
-    assert_equal('text/html', @response['Content-Type'])
-    assert_equal(200, @response.status)
-    assert(@response.body =~ Regexp.new(
-      Regexp.quote("<title>Subscribe")), @response.body)
-  end
-
-  def test_ics_query
-    @caldata = open('test/calendars/weather.calendar/Events/1205042405-0-0.ics').read
-
-    get '/ics?http://127.0.0.1:9876'
-
-    assert(@response.body =~ /<html/)
-    assert_equal('text/html', @response['Content-Type'])
-    assert_equal(200, @response.status)
-
-    assert(@response.body =~ Regexp.new(
-      Regexp.quote("Subscribe to")), @response.body)
-  end
-
-  def test_ics_atom
-    get '/ics/atom'
-    assert_equal(302, @response.status)
-  end
-
-=begin
-
-WTF? Sinatra doesn't run it's error catcher in unit test mode?
-  def test_ics_atom_query_bad
-    get '/ics/atom?http://example.com'
-    assert_equal(500, @response.status)
-    assert(@response.body =~ Regexp.new(
-      Regexp.quote("error")), @response.body)
-  end
-=end
-
-end
-

data/test/test_agent_atomize.rb

@@ -1,84 +0,0 @@
-require 'test/common'
-
-require 'vpim/agent/atomize'
-require 'vpim/icalendar'
-require 'vpim/view'
-
-class TextAgentAtomize < Test::Unit::TestCase
-
-  def atomize(cal, feeduri, caluri, filter=nil)
-    ical = Vpim::Icalendar.decode(cal).first
-    if filter
-      ical = filter.call(ical)
-    end
-    feed = Vpim::Agent::Atomize.calendar(ical, feeduri, caluri)
-    return ical, feed
-  end
-
-  def test_minimal
-    ical, feed = atomize(<<'__', "http://example.com/feed", "http://example.com/calendar")
-BEGIN:VCALENDAR
-BEGIN:VEVENT
-DTSTART:20090214T144503
-END:VEVENT
-END:VCALENDAR
-__
-
-  assert_equal(feed.entries.size, 1)
-  assert_equal("http://example.com/feed", feed.id)
-  assert_equal("http://example.com/calendar", feed.title)
-  assert(feed.to_xml.to_str)
-  assert_equal(nil, feed.entries.first.title)
-  assert_equal(nil, feed.entries.first.content)
-  #puts feed.to_xml
-  end
-
-  def test_small
-    ical, feed = atomize(<<'__', "http://example.com/feed", "http://example.com/calendar")
-BEGIN:VCALENDAR
-BEGIN:VEVENT
-DTSTART:20090214T144503
-SUMMARY:I am summarized
-DESCRIPTION:And I am described
-UID:very, very, unique
-END:VEVENT
-END:VCALENDAR
-__
-
-  assert_equal(feed.entries.size, 1)
-  assert_equal("http://example.com/feed", feed.id)
-  assert_equal("http://example.com/calendar", feed.title)
-  assert_equal("I am summarized", feed.entries.first.title)
-  assert_equal("And I am described", feed.entries.first.content)
-  assert(feed.to_xml.to_str)
-  #puts feed.to_xml
-  end
-
-  def test_recurring
-    filter = proc do |cal|
-      Vpim::View.week(cal)
-    end
-    ical, feed = atomize(<<'__', "http://example.com/feed", "http://example.com/calendar", filter)
-BEGIN:VCALENDAR
-BEGIN:VEVENT
-DTSTART:20090214T144503
-RRULE:FREQ=weekly
-SUMMARY:I am summarized
-DESCRIPTION:And I am described
-UID:very, very, unique
-END:VEVENT
-END:VCALENDAR
-__
-
-  puts feed.to_xml
-  assert_equal(1, feed.entries.size)
-  assert_equal("http://example.com/feed", feed.id)
-  assert_equal("http://example.com/calendar", feed.title)
-  assert_equal("I am summarized", feed.entries.first.title)
-  assert_equal("And I am described", feed.entries.first.content)
-  assert(feed.to_xml.to_str)
-  end
-
-end
-
-

data/test/test_agent_calendars.rb

@@ -1,128 +0,0 @@
-#!/usr/bin/env ruby
-
-require 'vpim/repo'
-require 'vpim/agent/calendars'
-require 'test/common'
-
-class TestAgentCalendars < Test::Unit::TestCase
-  Apple3 = Vpim::Repo::Apple3
-  Directory = Vpim::Repo::Directory
-  Uri = Vpim::Repo::Uri
-  Agent = Vpim::Agent
-  Path = Agent::Path
-  NotFound = Agent::NotFound
-
-  def setup
-    @testdir = Dir.getwd + "/test" #File.dirname($0) doesn't work with rcov :-(
-    @caldir = @testdir + "/calendars"
-    @eventsz = Dir[@caldir + "/**/*.ics"].size
-    assert(@testdir)
-    assert(test(?d, @caldir), "no caldir "+@caldir)
-  end
-
-  def assert_is_text_calendar(text)
-    lines = text.split("\n")
-    lines = lines.first, lines.last
-    assert_equal("BEGIN:VCALENDAR", lines.first.upcase, lines)
-    assert_equal("END:VCALENDAR", lines.last.upcase, lines)
-  end
-
-  def test_agent_calendars
-    repo = Apple3.new(@caldir)
-    rest = Agent::Calendars.new(repo)
-
-    out1, form = rest.get(Path.new("http://host/here", "/here"))
-    assert_equal("text/html", form)
-    #puts(out1)
-
-    out1, form = rest.get(Path.new("http://host/here/weather%2fLeavenworth", "/here"))
-    assert_equal("text/html", form)
-    #puts(out1)
-
-    out2, form = rest.get(Path.new("http://host/here/weather%2fLeavenworth/calendar", "/here"))
-    assert_equal("text/calendar", form)
-    assert_is_text_calendar(out2)
-
-    #assert_equal(out1, out2)
-
-    assert_raise(Vpim::Agent::NotFound) do
-      rest.get(Path.new("http://host/here/weather%2fLeavenworth/an_unknown_protocol", "/here"))
-    end
-    assert_raise(Vpim::Agent::NotFound) do
-      rest.get(Path.new("http://host/here/no_such_calendar", "/here"))
-    end
-
-    assert_equal(["","/","/"], Vpim::Agent::Path.split_path("/%2F/%2F"))
-    assert_equal(["/","/"], Vpim::Agent::Path.split_path("%2F/%2F"))
-    assert_equal(["calendars", "weather/Leavenworth"],
-                 Vpim::Agent::Path.split_path("calendars/weather%2FLeavenworth"))
-  end
-
-  def test_agent_calendar_atom
-    repo = Apple3.new(@caldir)
-    rest = Agent::Calendars.new(repo)
-
-    out, form = rest.get(Path.new("http://host/here/weather%2fLeavenworth/atom", "/here"))
-    assert_equal("application/atom+xml", form)
-    #pp out
-    #assert_is_atom(out)
-  end
-
-  def _test_path_shift(url, shifts)
-    # last shift should be a nil
-    shifts << nil
-
-    # presence or absence of a trailing / should not affect shifting
-    ["", "/"].each do |trailer|
-      path = Path.new(url + trailer)
-      shifts.each do |_|
-        assert_equal(_, path.shift)
-      end
-    end
-  end
-
-  def test_path_shift
-    _test_path_shift("http://host.ex", [])
-    _test_path_shift("http://host.ex/a", ["a"])
-    _test_path_shift("http://host.ex/a/b", ["a", "b"])
-    _test_path_shift("http://host.ex/a/b/c", ["a", "b", "c"])
-  end
-
-  def _test_path_prefix(base, parts, shifts, prefix)
-    path = Path.new(base+parts.join("/"))
-    shifts.times{ path.shift }
-    assert_equal(prefix, path.prefix)
-  end
-
-  def test_path_prefix
-    _test_path_prefix("http://host.ex/", [], 0, "/")
-    _test_path_prefix("http://host.ex/", ["a"], 0, "/")
-    _test_path_prefix("http://host.ex/", ["a"], 1, "/")
-    _test_path_prefix("http://host.ex/", ["a"], 2, "/a/")
-    _test_path_prefix("http://host.ex/", ["a"], 3, "/a/")
-    _test_path_prefix("http://host.ex/", ["a", "b"], 0, "/")
-    _test_path_prefix("http://host.ex/", ["a", "b"], 1, "/")
-    _test_path_prefix("http://host.ex/", ["a", "b"], 2, "/a/")
-    _test_path_prefix("http://host.ex/", ["a", "b"], 3, "/a/b/")
-  end
-
-=begin
-  def test_atomize
-    repo = Apple3.new(@caldir)
-    cal = repo.find{true}
-    a = Vpim::Agent::Atomize.new(cal)
-    assert( a.get(Path.new("http://example.com/path")))
-  end
-
-  def x_test_uri_query
-    uri = "http://example.com/ics/atom?http://localhost:9876"
-
-    repo = Uri.new("http://localhost:9876")
-    rest = Agent::Calendars.new(repo)
-    out1, form = rest.get(Path.new("http://example.com/ics", "/ics/atom"))
-    p [out1, form]
-  end
-=end
-
-end
-

data/test/test_view.rb

@@ -1,79 +0,0 @@
-#!/usr/bin/env ruby
-
-require 'test/unit'
-
-require 'vpim/repo'
-require 'vpim/view'
-
-class TestView < Test::Unit::TestCase
-  View = Vpim::View
-  Icalendar = Vpim::Icalendar
-
-  def _test_week_events(vc, kind)
-    vc = Icalendar.decode(vc.to_s.gsub("EVENT", kind)).first
-
-    vv = View.week vc
-
-    reader = kind.downcase + "s"
-
-    kind = "check against kind=" + kind + "<\n" + vv.to_s + ">\n"
-
-    assert_no_match(/yesterday/, vv.to_s, kind)
-    assert_no_match(/nextweek/, vv.to_s, kind)
-
-    assert_equal(["starts tomorrow"], vv.send(reader).map{|ve| ve.summary}, kind)
-  end
-
-  def test_week_single
-    now = Time.now
-    yesterday = now - View::SECSPERDAY
-    tomorrow  = now + View::SECSPERDAY
-    nextweek  = now + View::SECSPERDAY * 8
-
-    vc = Icalendar.create2 do |vc|
-      %w{yesterday tomorrow nextweek}.each do |dtstart|
-        vc.add_event do |ve|
-          ve.dtstart eval(dtstart)
-          ve.summary "starts #{dtstart}"
-        end
-      end
-    end
-
-    _test_week_events(vc, "EVENT")
-    _test_week_events(vc, "TODO")
-    _test_week_events(vc, "JOURNAL")
-  end
-
-  def test_week_recurring
-    now = Time.now
-    ago = now - View::SECSPERDAY * 2
-
-    vc = Icalendar.create2 do |vc|
-      vc.add_event do |ve|
-        ve.dtstart ago
-        ve.dtend   ago + View::SECSPERDAY / 2
-        ve.add_rrule do |r|
-          r.frequency = "daily"
-        end
-      end
-    end
-
-    vv = View.week vc
-
-    assert_equal(1, vv.events.to_a.size)
-
-    ve = vv.events{|e| break e}
-
-    #p ve
-
-    #puts "now=" + now.to_s
-
-    ve.occurrences() do |t|
-      p [now, t, t + ve.duration]
-    end
-
-
-
-  end
-end
-