runt 0.3.0 → 0.5.0

data/test/pdatetest.rb

@@ -1,104 +1,117 @@
-#!/usr/bin/env ruby
-
-require 'test/unit'
-require 'date'
-require 'runt'
-
-# Unit tests for PDate class
-# Author:: Matthew Lipper
-class PDateTest < Test::Unit::TestCase
-
-  include Runt
-
-  def setup
-    # 2010 (August - ignored)
-    @year_prec = PDate.year(2010,8)
-    #August, 2004
-    @month_prec = PDate.month(2004,8)
-    #January 25th, 2004 (11:39 am - ignored)
-    @day_prec = PDate.day(2004,1,25,11,39)
-    #11:59(:04 - ignored), December 31st, 1999
-    @minute_prec = PDate.min(1999,12,31,23,59,4)
-    #12:00:10 am, March 1st, 2004
-    @second_prec = PDate.sec(2004,3,1,0,0,10)
-  end
-
-  def test_new
-    date = PDate.new(2004,2,29)
-    assert(!date.date_precision.nil?)
-    date_time = PDate.new(2004,2,29,22,13,2)
-    assert(!date_time.date_precision.nil?)
-
-    date2 = PDate.day(2004,2,29)
-    assert(date==date2)
-
-    date_time2 = PDate.sec(2004,2,29,22,13,2)
-    assert(date_time==date_time2)
-
-  end
-
-  def test_plus
-    assert(PDate.year(2022,12)==(@year_prec+12))
-    assert(PDate.month(2005,2)==(@month_prec+6))
-    assert(PDate.day(2004,2,1)==(@day_prec+7))
-    assert(PDate.min(2000,1,1,0,0)==(@minute_prec+1))
-    assert(PDate.sec(2004,3,1,0,0,21)==(@second_prec+11))
-  end
-
-  def test_minus
-    assert(PDate.year(1998,12)==(@year_prec-12))
-    assert(PDate.month(2002,6)==(@month_prec-26))
-    #Hmmm...FIXME? @day_prec-26 == 12/31??
-    assert(PDate.day(2003,12,30)==(@day_prec-26))
-    assert(PDate.min(1999,12,31,21,57)==(@minute_prec-122))
-    assert(PDate.sec(2004,2,29,23,59,59)==(@second_prec-11))
-  end
-  def test_spaceship_comparison_operator
-    sec_prec = PDate.sec(2002,8,28,6,04,02)
-    assert(PDate.year(1998,12)<sec_prec)
-    assert(PDate.month(2002,9)>sec_prec)
-    assert(PDate.day(2002,8,28)==sec_prec)
-    assert(PDate.min(1999,12,31,21,57)<sec_prec)
-    assert(DateTime.new(2002,8,28,6,04,02)==sec_prec)
-    assert(Date.new(2004,8,28)>sec_prec)
-  end
-  def test_succ
-    #~ fail("FIXME! Implement succ")
-  end
-  def test_range
-    #11:50 pm (:22 seconds ignored), February 2nd, 2004
-    min1 = PDate.min(2004,2,29,23,50,22)
-    #12:02 am , March 1st, 2004
-    min2 = PDate.min(2004,3,1,0,2)
-    #Inclusive Range w/minute precision
-    r_min = min1..min2
-    assert( r_min.include?(PDate.min(2004,2,29,23,50,22)) )
-    assert( r_min.include?(PDate.min(2004,3,1,0,2)) )
-    assert( r_min.include?(PDate.min(2004,3,1,0,0)) )
-    assert( ! r_min.include?(PDate.min(2004,3,1,0,3)) )
-    #Exclusive Range w/minute precision
-    r_min = min1...min2
-    assert( r_min.include?(PDate.min(2004,2,29,23,50,22)) )
-    assert( !r_min.include?(PDate.min(2004,3,1,0,2)) )
-  end
-
-  def test_create_with_class_methods
-    #December 12th, 1968
-    no_prec = PDate.civil(1968,12,12)
-    #December 12th, 1968 (at 11:15 am - ignored)
-    day_prec = PDate.day(1968,12,12,11,15)
-    assert(no_prec==day_prec, "PDate instance does not equal precisioned instance.")
-    #December 2004 (24th - ignored)
-    month_prec1 = PDate.month(2004,12,24)
-    #December 31st, 2004  (31st - ignored)
-    month_prec2 = PDate.month(2004,12,31)
-    assert(month_prec1==month_prec2, "PDate.month instances not equal.")
-    #December 2004
-    month_prec3 = PDate.month(2004,12)
-    assert(month_prec1==month_prec3, "PDate.month instances not equal.")
-    assert(month_prec2==month_prec3, "PDate.month instances not equal.")
-    #December 2003
-    month_prec4 = PDate.month(2003,12)
-    assert(month_prec4!=month_prec1, "PDate.month instances not equal.")
-  end
-end
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'date'
+require 'runt'
+
+# Unit tests for PDate class
+# Author:: Matthew Lipper
+class PDateTest < Test::Unit::TestCase
+
+  include Runt
+
+  def setup
+    # 2010 (August - ignored)
+    @year_prec = PDate.year(2010,8)
+    #August, 2004
+    @month_prec = PDate.month(2004,8)
+    #January 25th, 2004 (11:39 am - ignored)
+    @day_prec = PDate.day(2004,1,25,11,39)
+    #11:59(:04 - ignored), December 31st, 1999
+    @minute_prec = PDate.min(1999,12,31,23,59,4)
+    #12:00:10 am, March 1st, 2004
+    @second_prec = PDate.sec(2004,3,1,0,0,10)
+  end
+
+  def test_marshal
+    # Thanks to Jodi Showers for finding/fixing this bug
+    pdate=PDate.new(2004,2,29,22,13,2)
+    assert_not_nil pdate.date_precision
+    data=Marshal.dump pdate
+    obj=Marshal.load data
+    assert_not_nil obj.date_precision
+  end
+
+  def test_include
+    pdate = PDate.new(2006,3,10)
+    assert(pdate.include?(Date.new(2006,3,10)))
+    date = Date.new(2006,3,10)
+    assert(date.include?(PDate.new(2006,3,10)))
+  end
+
+  def test_new
+    date = PDate.new(2004,2,29)
+    assert(!date.date_precision.nil?)
+    date_time = PDate.new(2004,2,29,22,13,2)
+    assert(!date_time.date_precision.nil?)
+    date2 = PDate.day(2004,2,29)
+    assert(date==date2)
+    date_time2 = PDate.sec(2004,2,29,22,13,2)
+    assert(date_time==date_time2)
+  end
+
+  def test_plus
+    assert(PDate.year(2022,12)==(@year_prec+12))
+    assert(PDate.month(2005,2)==(@month_prec+6))
+    assert(PDate.day(2004,2,1)==(@day_prec+7))
+    assert(PDate.min(2000,1,1,0,0)==(@minute_prec+1))
+    assert(PDate.sec(2004,3,1,0,0,21)==(@second_prec+11))
+  end
+
+  def test_minus
+    assert(PDate.year(1998,12)==(@year_prec-12))
+    assert(PDate.month(2002,6)==(@month_prec-26))
+    #Hmmm...FIXME? @day_prec-26 == 12/31??
+    assert(PDate.day(2003,12,30)==(@day_prec-26))
+    assert(PDate.min(1999,12,31,21,57)==(@minute_prec-122))
+    assert(PDate.sec(2004,2,29,23,59,59)==(@second_prec-11))
+  end
+  def test_spaceship_comparison_operator
+    sec_prec = PDate.sec(2002,8,28,6,04,02)
+    assert(PDate.year(1998,12)<sec_prec)
+    assert(PDate.month(2002,9)>sec_prec)
+    assert(PDate.day(2002,8,28)==sec_prec)
+    assert(PDate.min(1999,12,31,21,57)<sec_prec)
+    assert(DateTime.new(2002,8,28,6,04,02)==sec_prec)
+    assert(Date.new(2004,8,28)>sec_prec)
+  end
+  def test_succ
+    #~ fail("FIXME! Implement succ")
+  end
+  def test_range
+    #11:50 pm (:22 seconds ignored), February 2nd, 2004
+    min1 = PDate.min(2004,2,29,23,50,22)
+    #12:02 am , March 1st, 2004
+    min2 = PDate.min(2004,3,1,0,2)
+    #Inclusive Range w/minute precision
+    r_min = min1..min2
+    assert( r_min.include?(PDate.min(2004,2,29,23,50,22)) )
+    assert( r_min.include?(PDate.min(2004,3,1,0,2)) )
+    assert( r_min.include?(PDate.min(2004,3,1,0,0)) )
+    assert( ! r_min.include?(PDate.min(2004,3,1,0,3)) )
+    #Exclusive Range w/minute precision
+    r_min = min1...min2
+    assert( r_min.include?(PDate.min(2004,2,29,23,50,22)) )
+    assert( !r_min.include?(PDate.min(2004,3,1,0,2)) )
+  end
+
+  def test_create_with_class_methods
+    #December 12th, 1968
+    no_prec = PDate.civil(1968,12,12)
+    #December 12th, 1968 (at 11:15 am - ignored)
+    day_prec = PDate.day(1968,12,12,11,15)
+    assert(no_prec==day_prec, "PDate instance does not equal precisioned instance.")
+    #December 2004 (24th - ignored)
+    month_prec1 = PDate.month(2004,12,24)
+    #December 31st, 2004  (31st - ignored)
+    month_prec2 = PDate.month(2004,12,31)
+    assert(month_prec1==month_prec2, "PDate.month instances not equal.")
+    #December 2004
+    month_prec3 = PDate.month(2004,12)
+    assert(month_prec1==month_prec3, "PDate.month instances not equal.")
+    assert(month_prec2==month_prec3, "PDate.month instances not equal.")
+    #December 2003
+    month_prec4 = PDate.month(2003,12)
+    assert(month_prec4!=month_prec1, "PDate.month instances not equal.")
+  end
+end

data/test/runttest.rb

@@ -0,0 +1,101 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'runt'
+require 'date'
+require 'pp'
+
+class RuntModuleTest < Test::Unit::TestCase
+  
+  def test_last
+    assert Runt::Last == -1
+  end
+  
+  def test_last_of
+    assert Runt::Last_of == -1
+  end
+
+  def test_second_to_last
+    assert Runt::Second_to_last == -2
+  end
+
+  def test_ordinals
+    #1.upto(31){ |n| puts Runt.ordinalize(n); }
+    assert_equal '1st', Runt.ordinalize(1)
+    assert_equal '33rd', Runt.ordinalize(33)
+    assert_equal '50th', Runt.ordinalize(50)
+    assert_equal '2nd', Runt.ordinalize(2)
+    assert_equal 'second to last', Runt.ordinalize(-2)
+    assert_equal 'last', Runt.ordinalize(-1)
+  end
+
+  def test_day_name
+    i=0
+    Date::DAYNAMES.each do |n|
+      assert_equal Date::DAYNAMES[i], Runt.day_name(i)
+      i=i+1
+    end
+  end
+  
+  def test_month_name
+    i=0
+    Date::MONTHNAMES.each do |n|
+      assert_equal Date::MONTHNAMES[i], Runt.month_name(i)
+      i=i+1
+    end
+  end
+
+  def test_strftime
+    d=DateTime.new(2006,2,26,14,45)
+    assert_equal '02:45PM', Runt.format_time(d)
+  end
+
+  def test_numeric_class_additions
+    assert_equal 0.000001, 1.microsecond
+    assert_equal 0.000001, 1.microseconds
+    assert_equal 0.001, 1.millisecond
+    assert_equal 0.001, 1.milliseconds
+    assert_equal 7, 7.second
+    assert_equal 7, 7.seconds
+    assert_equal 60, 1.minute
+    assert_equal 60, 1.minutes
+    assert_equal 3600, 1.hour
+    assert_equal 3600, 1.hours
+    assert_equal 86400, 1.day
+    assert_equal 86400, 1.days
+    assert_equal 604800, 1.week
+    assert_equal 604800, 1.weeks
+    assert_equal 2592000, 1.month
+    assert_equal 2592000, 1.months
+    assert_equal 31536000, 1.year
+    assert_equal 31536000, 1.years
+    assert_equal 315360000, 1.decade
+    assert_equal 315360000, 1.decades
+  end
+
+  def test_time_class_dprecision
+    time=Time.parse('Monday 06 November 2006 07:38')
+    assert_equal(Runt::DPrecision::DEFAULT,time.date_precision)
+  end
+
+  def test_date_class_dprecision
+    date=Date.today
+    assert_equal(Runt::DPrecision::DEFAULT,date.date_precision)
+  end
+
+  def test_datetime_class_dprecision
+    date=DateTime.civil
+    assert_equal(Runt::DPrecision::DEFAULT,date.date_precision)
+  end
+
+  def test_time_plus
+    time=Time.parse("Sat Dec 09 05:56:12 -0500 2006")
+    # Default precision is minute
+    assert_equal(Runt::PDate.min(2006,12,9,5,56),Runt::DPrecision.to_p(time))
+    assert_not_equal(Time.parse("Sat Dec 09 05:56:00 -0500 2006"),time)
+
+
+
+  end
+
+end

data/test/scheduletest.rb

@@ -1,88 +1,148 @@
-#!/usr/bin/env ruby
-
-require 'test/unit'
-require 'runt'
-require 'date'
-
-# Unit tests for Schedule classes
-# Author:: Matthew Lipper
-class ScheduleTest < Test::Unit::TestCase
-
-  include Runt
-
-  def test_add
-
-    #Jane is very busy these days.
-    j_sched = Schedule.new
-
-    #Elmo's World is on TV: Mon-Fri 8am-8:30am
-    elmo = Event.new("Elmo's World")
-  
-    j_sched.add(elmo,(REWeek.new(Mon,Fri) & REDay.new(8,00,8,30)))
-    assert(j_sched.include?(elmo, PDate.new(2004,5,4,8,06)))
-    assert(!j_sched.include?(elmo, PDate.new(2004,5,1,8,06)))
-    assert(!j_sched.include?(elmo, PDate.new(2004,5,3,9,06)))
-
-    #Oobi's on TV: Thu-Sat 8:30am-9am
-    oobi = Event.new("Oobi")
-
-    j_sched.add(oobi,(REWeek.new(Thu,Sat) & REDay.new(8,30,9,00)))
-
-    assert(j_sched.include?(oobi, PDate.new(2004,4,30,8,56)))
-    assert(!j_sched.include?(oobi, PDate.new(2004,5,1,8,12)))
-    assert(!j_sched.include?(oobi, PDate.new(2004,5,5,8,50)))
-
-  end
-
-  def test_dates
-
-    # range: May 1st, 2004 to May 31st, 2004
-    d_range = DateRange.new(PDate.day(2004,5,1), PDate.day(2004,5,31))
-    sched = Schedule.new
-    event = Event.new("Visit Ernie")
-
-    # First and last Friday of the month
-    expr1 = DIMonth.new(1,Fri) |  DIMonth.new(-1,Fri)
-    sched.add(event,expr1)
-
-    dates = sched.dates(event,d_range)
-    expected = [PDate.day(2004,5,7), PDate.day(2004,5,28)]
-    assert_equal(expected,dates)
-  end
-
-  def test_using_a_schedule
-        
-    # September 18th - 19th, 2005, 8am - 10am 
-    expr1=RSpec.new(DateRange.new(PDate.day(2005,9,18),PDate.day(2005,9,19))) & REDay.new(8,0,10,0)
-    assert(expr1.include?(PDate.min(2005,9,18,8,15)))
-    # September 19th - 20th, 2005, 9am - 11am 
-    expr2=RSpec.new(DateRange.new(PDate.day(2005,9,19),PDate.day(2005,9,20))) & REDay.new(9,0,11,0) 
-    # Quick sanuty check
-    assert(expr1.overlap?(expr2))
-    # Setup a schedule w/first expression
-    sched = Schedule.new
-    sched.add(Event.new("Snafubar Opening"),expr1)
-    resource = Resource.new(sched)
-    # Add a another overlapping event 
-    resource.add_event(Event.new("Yodeling Lesson"),expr2)
-    # Create a new resource using the same schedule
-    resource2 = Resource.new(sched)
-    # Add a another overlapping event and pass a block which should complain
-    #resource.add_event(Event.new("Yodeling Lesson"),expr2) \
-    #{|e,s| raise "Resource not available at requested time(s)." \
-    #  if (@schedule.overlap?(s))} 
-  end
-end
-
-class Resource
-  def initialize(schedule)
-    @schedule=schedule
-  end
-  def add_event(event,expr)
-    if(block_given?) 
-      yield(event,expr) 
-    else
-      @schedule.add(event,expr) 
-    end
-  end
-end
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'runt'
+require 'date'
+
+# Unit tests for Schedule classes
+# Author:: Matthew Lipper
+class ScheduleTest < Test::Unit::TestCase
+
+  include Runt
+
+  def setup
+    # Jane is very busy these days.
+    @sched=Schedule.new
+    # Elmo's World is on TV: Mon-Fri 8am-8:30am
+    @elmo=Event.new("Elmo's World")
+    @elmo_broadcast=(REWeek.new(Mon,Fri) & REDay.new(8,00,8,30))
+    @sched.add(@elmo,@elmo_broadcast)
+    #Oobi's on TV: Thu-Sat 8:30am-9am
+    @oobi=Event.new("Oobi")
+    @oobi_broadcast=(REWeek.new(Thu,Sat) & REDay.new(8,30,9,00))
+    @sched.add(@oobi,@oobi_broadcast)
+    @during_elmo=PDate.new(2004,5,4,8,06)
+    @not_during_elmo=PDate.new(2004,5,1,8,06)
+    @during_oobi=PDate.new(2004,4,30,8,56)
+    @not_during_oobi=PDate.new(2004,5,1,8,12)  
+  end
+
+  def test_include
+    # Check Elmo
+    assert(@sched.include?(@elmo, @during_elmo))
+    assert(!@sched.include?(@elmo,@not_during_elmo))
+    assert(!@sched.include?(@elmo,@during_oobi))
+    # Check Oobi
+    assert(@sched.include?(@oobi, @during_oobi))
+    assert(!@sched.include?(@oobi,@not_during_oobi))
+    assert(!@sched.include?(@oobi,@not_during_elmo))
+  end
+
+  def test_select_all
+    # select all
+    all=@sched.select {|ev,xpr| true; }
+    assert all.size==2
+    assert all.include?(@elmo)
+    assert all.include?(@oobi)
+  end
+
+  def test_select_none
+      # select none
+    assert((@sched.select {|ev,xpr| false; }).size==0)
+  end
+
+  def test_select_some
+    # select oobi only 
+    some=@sched.select {|ev,xpr| @oobi.eql?(ev); }
+    assert some.size==1
+    assert !some.include?(@elmo)
+    assert some.include?(@oobi)
+    some.clear
+    # select elmo only 
+    some=@sched.select {|ev,xpr| @elmo.eql?(ev); }
+    assert some.size==1
+    assert some.include?(@elmo)
+    assert !some.include?(@oobi)
+  end
+
+  def test_events
+    events=@sched.events(PDate.new(2006,12,4,11,15))
+    assert_equal 0,events.size
+    # The Barney power hour which overlaps with Elmo
+    barney=Event.new("Barney")
+    @sched.add(barney,REDay.new(7,30,8,30))
+    events=@sched.events(PDate.new(2006,12,4,8,15))
+    assert_equal 2,events.size
+    assert events.include?(barney)
+    assert events.include?(@elmo)
+  end
+
+  def test_update
+    @sched.update(Event.new("aaa")){|ev|assert_nil(ev)}
+    @sched.update(@elmo){|ev|assert_equal(@elmo_broadcast,ev)}
+    @sched.update(@oobi){|ev|assert_equal(@oobi_broadcast,ev)}
+  end
+
+  def test_select_old
+    @sched=Schedule.new
+    e1=Event.new("e1")
+    assert(!@sched.include?(e1,nil))
+    range=RSpec.new(DateRange.new(PDate.new(2006,12,3),PDate.new(2007,1,24)))
+    in_range=PDate.new(2007,1,4)
+    assert(range.include?(in_range))
+    out_of_range=PDate.new(2006,1,4)
+    assert(!range.include?(out_of_range))
+    @sched.add(e1,range)
+    assert(@sched.include?(e1,in_range))
+    assert(!@sched.include?(e1,out_of_range))
+  end
+
+  def test_dates
+    # range: May 1st, 2004 to May 31st, 2004
+    d_range = DateRange.new(PDate.day(2004,5,1), PDate.day(2004,5,31))
+    @sched = Schedule.new
+    event = Event.new("Visit Ernie")
+    # First and last Friday of the month
+    expr1 = DIMonth.new(1,Fri) |  DIMonth.new(-1,Fri)
+    @sched.add(event,expr1)
+    dates = @sched.dates(event,d_range)
+    expected = [PDate.day(2004,5,7), PDate.day(2004,5,28)]
+    assert_equal(expected,dates)
+  end
+
+  def test_using_a_schedule
+        
+    # September 18th - 19th, 2005, 8am - 10am 
+    expr1=RSpec.new(DateRange.new(PDate.day(2005,9,18),PDate.day(2005,9,19))) & REDay.new(8,0,10,0)
+    assert(expr1.include?(PDate.min(2005,9,18,8,15)))
+    # September 19th - 20th, 2005, 9am - 11am 
+    expr2=RSpec.new(DateRange.new(PDate.day(2005,9,19),PDate.day(2005,9,20))) & REDay.new(9,0,11,0) 
+    # Quick sanuty check
+    assert(expr1.overlap?(expr2))
+    # Setup a @schedule w/first expression
+    @sched = Schedule.new
+    @sched.add(Event.new("Snafubar Opening"),expr1)
+    resource = Resource.new(@sched)
+    # Add a another overlapping event 
+    resource.add_event(Event.new("Yodeling Lesson"),expr2)
+    # Create a new resource using the same schedule
+    resource2 = Resource.new(@sched)
+    # Add a another overlapping event and pass a block which should complain
+    #resource.add_event(Event.new("Yodeling Lesson"),expr2) \
+    #{|e,s| raise "Resource not available at requested time(s)." \
+    #  if (@schedule.overlap?(s))} 
+  end
+end
+
+class Resource
+  def initialize(schedule)
+    @schedule=schedule
+  end
+  def add_event(event,expr)
+    if(block_given?) 
+      yield(event,expr) 
+    else
+      @schedule.add(event,expr) 
+    end
+  end
+end