workpattern 0.2.0

data/test/test_week.rb

@@ -0,0 +1,236 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestWeek < Test::Unit::TestCase #:nodoc:
+
+  def setup
+    
+  end
+  
+  must "create a working week" do
+    start=DateTime.new(2000,1,1,11,3)
+    finish=DateTime.new(2005,12,31,16,41)
+    working_week=week(start,finish,1)
+    assert_equal DateTime.new(start.year,start.month,start.day), working_week.start
+    assert_equal DateTime.new(finish.year,finish.month,finish.day), working_week.finish
+    assert_equal 3156480, working_week.total#2192
+  end
+    
+  must "create a resting week" do
+    start=DateTime.new(2000,1,1,11,3)
+    finish=DateTime.new(2005,12,31,16,41)
+    resting_week=week(start,finish,0)
+    assert_equal DateTime.new(start.year,start.month,start.day), resting_week.start
+    assert_equal DateTime.new(finish.year,finish.month,finish.day), resting_week.finish
+    assert_equal 0, resting_week.total#2192
+    assert_equal 0,resting_week.week_total
+  end
+  
+  must 'duplicate all of a week' do
+    start=DateTime.new(2000,1,1,11,3)
+    finish=DateTime.new(2005,12,31,16,41)
+    week=week(start,finish,1)
+    new_week=week.duplicate
+    assert_equal DateTime.new(start.year,start.month,start.day), new_week.start
+    assert_equal DateTime.new(finish.year,finish.month,finish.day), new_week.finish
+    assert_equal 3156480, new_week.total#2192
+    
+  end
+  
+  must "set patterns correctly" do
+    start=DateTime.new(2000,1,1,0,0)
+    finish=DateTime.new(2005,12,31,8,59)
+    working_week=week(start,finish,1)
+    assert_equal 10080, working_week.week_total
+    working_week.workpattern(:all,start,finish,0)
+    assert_equal 6300, working_week.week_total
+    working_week.workpattern(:sun,start,finish,1)
+    assert_equal 6840, working_week.week_total 
+    working_week.workpattern(:mon,start,finish,1)
+    assert_equal 7380, working_week.week_total 
+    working_week.workpattern(:all,clock(18,0),clock(18,19),0)
+    assert_equal 7240, working_week.week_total 
+    working_week.workpattern(:all,clock(0,0),clock(23,59),0)
+    assert_equal 0, working_week.week_total
+    working_week.workpattern(:all,clock(0,0),clock(0,0),1)
+    assert_equal 7, working_week.week_total
+    working_week.workpattern(:all,clock(23,59),clock(23,59),1)
+    assert_equal 14, working_week.week_total
+    working_week.workpattern(:all,clock(0,0),clock(23,59),1)
+    assert_equal 10080, working_week.week_total
+    working_week.workpattern(:weekend,clock(0,0),clock(23,59),0)
+    assert_equal 7200, working_week.week_total
+    
+  end
+  
+  must 'add minutes in a working week' do
+    start=DateTime.new(2000,1,1,0,0)
+    finish=DateTime.new(2005,12,31,8,59)
+    working_week=week(start,finish,1)
+    result_date, result_duration= working_week.calc(start,0)
+    assert_equal start,result_date, "#{start} + #{0}"
+    result_date,result_duration=working_week.calc(finish,0)
+    assert_equal finish,result_date, "#{finish} + #{0}"
+    result_date,result_duration=working_week.calc(finish,10)
+    assert_equal DateTime.new(2005,12,31,9,9),result_date, "#{finish} + #{10}"
+  end
+  
+  must 'add minutes in a resting week' do
+    assert true
+  end
+  
+  must 'add minutes in a patterned week' do
+    assert true
+  end
+  
+  must 'subtract minutes in a working week' do
+    start=DateTime.new(2000,1,1,0,0)
+    finish=DateTime.new(2005,12,31,8,59)
+    working_week=week(start,finish,1)
+    result_date, result_duration= working_week.calc(start,0)
+    assert_equal start,result_date, "#{start} + #{0}"
+    result_date,result_duration=working_week.calc(finish,0)
+    assert_equal finish,result_date, "#{finish} + #{0}"
+    result_date,result_duration=working_week.calc(finish,-10)
+    assert_equal DateTime.new(2005,12,31,8,49),result_date, "#{finish} - #{10}"
+    result_date,result_duration=working_week.calc(DateTime.new(2005,12,31,0,0),-10)
+    assert_equal DateTime.new(2005,12,30,23,50),result_date, "#{DateTime.new(2005,12,31,0,0)} - #{10}"
+  end
+  
+  must 'subtract minutes in a resting week' do
+    assert true
+  end
+  
+  must 'subtract minutes in a patterned week' do
+    assert true
+  end
+  
+  
+  must 'create complex patterns' do
+    assert true
+  end
+
+  must "calculate difference between dates in working week" do
+    start=DateTime.new(2012,10,1)
+    finish=DateTime.new(2012,10,7)
+    week=week(start,finish,1)
+        
+    [
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 0,    0,2012,10, 1, 0, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 1,    1,2012,10, 1, 0, 1],
+     [ 2012,10, 1, 0,50, 2012,10, 1, 0,59,    9,2012,10, 1, 0,59],
+     [ 2012,10, 1, 8,50, 2012,10, 1, 9, 0,   10,2012,10, 1, 9, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 1,23,59, 1439,2012,10, 1,23,59],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 0, 1440,2012,10, 2, 0, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 1, 1441,2012,10, 2, 0, 1],     
+     [ 2012,10, 1, 0, 0, 2013, 3,22, 6,11,10080,2012,10, 8, 0, 0],
+     [ 2012,10, 1, 0, 1, 2012,10, 1, 0, 0,    1,2012,10, 1, 0, 1],
+     [ 2012,10, 1, 0,59, 2012,10, 1, 0,50,    9,2012,10, 1, 0,59],
+     [ 2012,10, 1, 9, 0, 2012,10, 1, 8,50,   10,2012,10, 1, 9, 0],
+     [ 2012,10, 1,23,59, 2012,10, 1, 0, 0, 1439,2012,10, 1,23,59],
+     [ 2012,10, 2, 0, 0, 2012,10, 1, 0, 0, 1440,2012,10, 2, 0, 0],
+     [ 2012,10, 2, 0, 1, 2012,10, 1, 0, 0, 1441,2012,10, 2, 0, 1],     
+     [ 2013, 3,22, 6,11, 2012,10, 1, 0, 0,10080,2012,10, 8, 0, 0],
+     [ 2012,10, 2, 6,11, 2012,10, 4, 8, 9, 2998,2012,10, 4, 8, 9]
+    ].each {|start_year, start_month, start_day, start_hour,start_min,
+             finish_year, finish_month, finish_day, finish_hour,finish_min,result,
+             y,m,d,h,n|
+      start=DateTime.new(start_year, start_month, start_day, start_hour,start_min)
+      finish=DateTime.new(finish_year, finish_month, finish_day, finish_hour,finish_min)
+      expected_date=DateTime.new(y,m,d,h,n)       
+      duration, result_date=week.diff(start,finish)
+      assert_equal result, duration,"duration diff(#{start}, #{finish})"
+      assert_equal expected_date, result_date,"date diff(#{start}, #{finish})"
+    }
+  end
+
+  must "calculate difference between dates in resting week" do
+
+    start=DateTime.new(2012,10,1)
+    finish=DateTime.new(2012,10,7)
+    week=week(start,finish,0)
+  
+    [
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 0,   0,2012,10, 1, 0, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 1,   0,2012,10, 1, 0, 1],
+     [ 2012,10, 1, 0,50, 2012,10, 1, 0,59,   0,2012,10, 1, 0,59],
+     [ 2012,10, 1, 8,50, 2012,10, 1, 9, 0,   0,2012,10, 1, 9, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 1,23,59,   0,2012,10, 1,23,59],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 0,   0,2012,10, 2, 0, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 1,   0,2012,10, 2, 0, 1],     
+     [ 2012,10, 1, 0, 0, 2013, 3,22, 6,11,   0,2012,10, 8, 0, 0],
+     [ 2012,10, 1, 0, 1, 2012,10, 1, 0, 0,   0,2012,10, 1, 0, 1],
+     [ 2012,10, 1, 0,59, 2012,10, 1, 0,50,   0,2012,10, 1, 0,59],
+     [ 2012,10, 1, 9, 0, 2012,10, 1, 8,50,   0,2012,10, 1, 9, 0],
+     [ 2012,10, 1,23,59, 2012,10, 1, 0, 0,   0,2012,10, 1,23,59],
+     [ 2012,10, 2, 0, 0, 2012,10, 1, 0, 0,   0,2012,10, 2, 0, 0],
+     [ 2012,10, 2, 0, 1, 2012,10, 1, 0, 0,   0,2012,10, 2, 0, 1],     
+     [ 2013, 3,22, 6,11, 2012,10, 1, 0, 0,   0,2012,10, 8, 0, 0]
+    ].each {|start_year, start_month, start_day, start_hour,start_min,
+             finish_year, finish_month, finish_day, finish_hour,finish_min,result,
+             y,m,d,h,n|
+      start=DateTime.new(start_year, start_month, start_day, start_hour,start_min)
+      finish=DateTime.new(finish_year, finish_month, finish_day, finish_hour,finish_min)
+      expected_date=DateTime.new(y,m,d,h,n)       
+      duration, result_date=week.diff(start,finish)
+      assert_equal result, duration,"duration diff(#{start}, #{finish})"
+      assert_equal expected_date, result_date,"date diff(#{start}, #{finish})"
+     }
+  end
+
+  must "calculate difference between dates in pattern week" do
+    
+    day = Workpattern::Day.new(1)
+    [[0,0,8,59],
+     [12,0,12,59],
+     [17,0,22,59]
+    ].each {|start_hour,start_min,finish_hour,finish_min|
+      day.workpattern(clock(start_hour, start_min),
+                      clock(finish_hour, finish_min),
+                      0)
+    }
+    assert_equal 480, day.total, "minutes in patterned day should be 480"
+    assert_equal 1, day.minutes(16,59,16,59),"16:59 should be 1"
+    assert_equal 0, day.minutes(17,0,17,0),"17:00 should be 0"
+    assert_equal 0, day.minutes(22,59,22,59),"22:59 should be 0"
+    assert_equal 1, day.minutes(23,0,23,0),"23:00 should be 1"
+  
+    [
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 0,   0,2012,10, 1, 0, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 1,   0,2012,10, 1, 0, 1],
+     [ 2012,10, 1, 0,50, 2012,10, 1, 9,59,  59,2012,10, 1, 9,59],
+     [ 2012,10, 1, 8,50, 2012,10, 1, 9,10,  10,2012,10, 1, 9,10],
+     [ 2012,10, 1, 0, 0, 2012,10, 1,23,59, 479,2012,10, 1,23,59],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 0, 480,2012,10, 2, 0, 0],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 1, 480,2012,10, 2, 0, 0],     
+     [ 2012,10, 1, 0, 0, 2013, 3,22, 6,11, 480,2012,10, 2, 0, 0],
+     [ 2012,10, 1, 0, 1, 2012,10, 1, 0, 0,   0,2012,10, 1, 0, 1],
+     [ 2012,10, 1, 9,59, 2012,10, 1, 0,50,  59,2012,10, 1, 9,59],
+     [ 2012,10, 1, 9, 0, 2012,10, 1, 8,50,   0,2012,10, 1, 9, 0],
+     [ 2012,10, 1,23,59, 2012,10, 1, 0, 0, 479,2012,10, 1,23,59],
+     [ 2012,10, 2, 0, 0, 2012,10, 1, 0, 0, 480,2012,10, 2, 0, 0],
+     [ 2012,10, 2, 0, 1, 2012,10, 1, 0, 0, 480,2012,10, 2, 0, 0],     
+     [ 2013, 3,22, 6,11, 2012,10, 1, 0, 0, 480,2012,10, 2, 0, 0]
+    ].each {|start_year, start_month, start_day, start_hour,start_min,
+             finish_year, finish_month, finish_day, finish_hour,finish_min,result,
+             y,m,d,h,n|
+      start=DateTime.new(start_year, start_month, start_day, start_hour,start_min)
+      finish=DateTime.new(finish_year, finish_month, finish_day, finish_hour,finish_min)
+      expected_date=DateTime.new(y,m,d,h,n)       
+      duration, result_date=day.diff(start,finish)
+      assert_equal result, duration,"duration diff(#{start}, #{finish})"
+      assert_equal expected_date, result_date,"date diff(#{start}, #{finish})"
+     }
+
+  end
+  
+  private
+  
+  def week(start,finish,type)
+    return Workpattern::Week.new(start,finish,type)
+  end 
+  
+  def clock(hour,min)
+    return Workpattern.clock(hour,min)
+  end 
+end
+

data/test/test_workpattern.rb

@@ -0,0 +1,260 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestWorkpattern < Test::Unit::TestCase #:nodoc:
+
+  def setup
+    Workpattern.clear()    
+  end
+  
+  must "create a working workpattern" do
+    name='mywp'
+    base=2001
+    span=11
+    wp=Workpattern.new(name,base,span)
+    assert_equal name, wp.name
+    assert_equal base, wp.base
+    assert_equal span, wp.span
+    assert_equal DateTime.new(base), wp.from
+    assert_equal DateTime.new(base+span-1,12,31,23,59), wp.to
+  end
+  
+  must "set patterns correctly" do
+    name='mypattern'
+    base=2000
+    span=11
+    wp=Workpattern.new(name,base,span)
+ 
+    start=clock(0,0)
+    finish=clock(8,59)    
+    assert_equal 10080, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:all,:from_time=>start,:to_time=>finish,:work_type=>0)
+    assert_equal 6300, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:sun,:from_time=>start,:to_time=>finish,:work_type=>1)
+    assert_equal 6840, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:mon,:from_time=>start,:to_time=>finish,:work_type=>1)
+    assert_equal 7380, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:all,:from_time=>clock(18,0),:to_time=>clock(18,19),:work_type=>0)
+    assert_equal 7240, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:all,:from_time=>clock(0,0),:to_time=>clock(23,59),:work_type=>0)
+    assert_equal 0, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:all,:from_time=>clock(0,0),:to_time=>clock(0,0),:work_type=>1)
+    assert_equal 7, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:all,:from_time=>clock(23,59),:to_time=>clock(23,59),:work_type=>1)
+    assert_equal 14, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:all,:from_time=>clock(0,0),:to_time=>clock(23,59),:work_type=>1)
+    assert_equal 10080, get_week(wp.weeks).week_total
+    wp.workpattern(:days=>:weekend,:from_time=>clock(0,0),:to_time=>clock(23,59),:work_type=>0)
+    assert_equal 7200, get_week(wp.weeks).week_total
+    
+  end
+  
+  must 'add minutes in a working workpattern' do
+    name='mypattern'
+    base=1999
+    span=11
+    wp=Workpattern.new(name,base,span)
+    tests=[[2000,1,1,0,0,3,2000,1,1,0,3],
+     [2000,1,1,23,59,0,2000,1,1,23,59],
+     [2000,1,1,23,59,1,2000,1,2,0,0],
+     [2000,1,1,23,59,2,2000,1,2,0,1],
+     [2000,1,1,9,10,33,2000,1,1,9,43],
+     [2000,1,1,9,10,60,2000,1,1,10,10],
+     [2000,1,1,9,0,931,2000,1,2,0,31],
+     [2000,1,1,0,0,3,2000,1,1,0,3]
+    ]
+    clue="add minutes in a working workpattern"
+    calc_test(wp,tests,clue) 
+  end
+  
+  must 'add minutes in a resting workpattern' do
+    name='mypattern'
+    base=1999
+    span=11
+    wp=Workpattern.new(name,base,span)
+    start=DateTime.new(1999,6,11,0,0)
+    finish=DateTime.new(2003,6,8,0,0)
+    wp.workpattern(:days=>:all,:start=> start, :finish=>finish, :work_type=>0 )
+    tests=[[2000,1,1,0,0,3,2003,6,9,0,3],
+     [2000,1,1,23,59,0,2000,1,1,23,59],
+     [2000,1,1,23,59,1,2003,6,9,0,1],
+     [2000,1,1,23,59,2,2003,6,9,0,2],
+     [2000,1,1,9,10,33,2003,6,9,0,33],
+     [2000,1,1,9,10,60,2003,6,9,1,0],
+     [2000,1,1,9,0,931,2003,6,9,15,31],
+     [2000,1,1,0,0,3,2003,6,9,0,3]
+    ]
+    clue="add minutes in a resting workpattern"
+    calc_test(wp,tests,clue) 
+  end
+  
+  must 'add minutes in a patterned workpattern' do
+    assert true
+  end
+  
+  must 'subtract minutes in a working workpattern' do
+    name='mypattern'
+    base=1999
+    span=11
+    wp=Workpattern.new(name,base,span)
+    tests=[[2000,1,1,0,0,-3,1999,12,31,23,57],
+     [2000,1,1,23,59,0,2000,1,1,23,59],
+     [2000,1,1,23,59,-1,2000,1,1,23,58],
+     [2000,1,1,23,59,-2,2000,1,1,23,57],
+     [2000,1,1,9,10,-33,2000,1,1,8,37],
+     [2000,1,1,9,10,-60,2000,1,1,8,10],
+     [2000,1,1,9,0,-931,1999,12,31,17,29],
+     [2000,1,1,0,0,-3,1999,12,31,23,57]
+    ]
+    clue="subtract minutes in a working workpattern"
+    calc_test(wp,tests,clue) 
+  end
+  
+  must 'subtract minutes in a resting workpattern' do
+    name='mypattern'
+    base=1999
+    span=11
+    wp=Workpattern.new(name,base,span)
+    start=DateTime.new(1999,6,11,0,0)
+    finish=DateTime.new(2003,6,8,0,0)
+    wp.workpattern(:days=>:all,:start=> start, :finish=>finish, :work_type=>0 )
+    tests=[[2000,1,1,0,0,-3,1999,6,10,23,57],
+     [2000,1,1,23,59,0,2000,1,1,23,59],
+     [2000,1,1,23,59,-1,1999,6,10,23,59],
+     [2000,1,1,23,59,-2,1999,6,10,23,58],
+     [2000,1,1,9,10,-33,1999,6,10,23,27],
+     [2000,1,1,9,10,-60,1999,6,10,23,0],
+     [2000,1,1,9,0,-931,1999,6,10,8,29],
+     [2000,1,1,0,0,-3,1999,6,10,23,57]
+    ]
+    clue="subtract minutes in a resting workpattern"
+    calc_test(wp,tests,clue)
+  end
+  
+  must 'subtract minutes in a patterned workpattern' do
+    assert true
+  end
+  
+  
+  must "calculate difference between dates in working calender" do
+    name='mypattern'
+    base=1999
+    span=40
+    wp=Workpattern.new(name,base,span)
+        
+    [
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 0,    0],
+     [ 2012,10, 1, 0, 0, 2012,10, 1, 0, 1,    1],
+     [ 2012,10, 1, 0,50, 2012,10, 1, 0,59,    9],
+     [ 2012,10, 1, 8,50, 2012,10, 1, 9, 0,   10],
+     [ 2012,10, 1, 0, 0, 2012,10, 1,23,59, 1439],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 0, 1440],
+     [ 2012,10, 1, 0, 0, 2012,10, 2, 0, 1, 1441],     
+     [ 2012,10, 1, 0, 0, 2013, 3,22, 6,11,248051],
+     [ 2012,10, 1, 0, 1, 2012,10, 1, 0, 0,    1],
+     [ 2012,10, 1, 0,59, 2012,10, 1, 0,50,    9],
+     [ 2012,10, 1, 9, 0, 2012,10, 1, 8,50,   10],
+     [ 2012,10, 1,23,59, 2012,10, 1, 0, 0, 1439],
+     [ 2012,10, 2, 0, 0, 2012,10, 1, 0, 0, 1440],
+     [ 2012,10, 2, 0, 1, 2012,10, 1, 0, 0, 1441],     
+     [ 2013, 3,22, 6,11, 2012,10, 1, 0, 0,248051],
+     [ 2012,10, 2, 6,11, 2012,10, 4, 8, 9, 2998]
+    ].each {|start_year, start_month, start_day, start_hour,start_min,
+             finish_year, finish_month, finish_day, finish_hour,finish_min,result|
+      start=DateTime.new(start_year, start_month, start_day, start_hour,start_min)
+      finish=DateTime.new(finish_year, finish_month, finish_day, finish_hour,finish_min)
+      duration, result_date=wp.diff(start,finish)
+      assert_equal result, duration,"duration diff(#{start}, #{finish})"
+    }
+  end
+
+  must "calculate difference between minutes in resting workpattern" do
+    assert true
+  end
+
+  must "calculate difference between minutes in pattern workpattern" do
+    assert true 
+  end
+
+  must "follow the example in workpattern" do
+    mywp=Workpattern.new('My Workpattern',2011,10)
+    mywp.resting(:days => :weekend)
+    mywp.resting(:days =>:weekday, :from_time=>Workpattern.clock(0,0),:to_time=>Workpattern.clock(8,59))
+    mywp.resting(:days =>:weekday, :from_time=>Workpattern.clock(12,0),:to_time=>Workpattern.clock(12,59))
+    mywp.resting(:days =>:weekday, :from_time=>Workpattern.clock(18,0),:to_time=>Workpattern.clock(23,59))
+    mydate=DateTime.civil(2011,9,1,9,0)
+    result_date = mywp.calc(mydate,1920) # => 6/9/11@18:00
+    assert_equal DateTime.civil(2011,9,6,18,0), result_date, 'example in workpattern'
+  end
+  
+  must "calculate across week patterns" do
+    name='mypattern'
+    base=2011
+    span=11
+    wp=Workpattern.new(name,base,span)
+    start=DateTime.new(2012,9,24,0,0)
+    finish=DateTime.new(2012,10,14,0,0)
+    wp.resting(:days =>:all,:start=> start, :finish=>finish)    
+    wp.working(:days =>:mon,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(1,0),:to_time=>Workpattern.clock(1,59))        
+    wp.working(:days =>:tue,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(2,0),:to_time=>Workpattern.clock(2,59))        
+    wp.working(:days =>:wed,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(3,0),:to_time=>Workpattern.clock(3,59))        
+    wp.working(:days =>:thu,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(4,0),:to_time=>Workpattern.clock(4,59))        
+    wp.working(:days =>:fri,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(5,0),:to_time=>Workpattern.clock(5,59))        
+    wp.working(:days =>:sat,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(6,0),:to_time=>Workpattern.clock(6,59))        
+    wp.working(:days =>:sun,:start=> start, :finish=>finish, :from_time=>Workpattern.clock(0,0),:to_time=>Workpattern.clock(23,59))        
+
+    # Mon Tue Wed Thu Fri Sat Sun
+    #  24  25  26  27  28  29  30
+    #   1   2   3   4   5   6   7
+    #   8   9  10  11  12  13  14
+    # Mon 01:00 - 01:59
+    # Tue 02:00 - 02:59
+    # Wed 03:00 - 03:59
+    # Thu 04:00 - 04:59
+    # Fri 05:00 - 05:59
+    # Sat 06:00 - 06:59
+    # Sun 00:00 - 23:59
+    #
+    tests=[[2012,10,1,1,0,1,2012,10,1,1,1],
+     [2012,10,14,23,59,1,2012,10,15,0,0],
+     [2012,10,1,1,0,60*60+1,2012,10,15,0,1],
+     [2012,10,1,2,0,-1,2012,10,1,1,59],
+     [2012,10,2,3,0,-61,2012,10,1,1,59],
+     [2012,9,24,1,1,-2,2012,9,23,23,59],
+     [2012,10,1,1,59,61,2012,10,2,3,0],
+     [2012,10,1,1,1,-1,2012,10,1,1,0],
+     [2012,10,1,1,0,-1,2012,9,30,23,59]          
+    ]
+    clue="calculate across week patterns"
+    calc_test(wp,tests,clue)
+  end
+  
+  must "know whether a time is working or resting" do
+    name='working?'
+    base=2011
+    span=11
+    wp=Workpattern.new(name,base,span)
+    wp.resting(:to_time=>Workpattern.clock(8,59))
+    assert wp.working?(DateTime.new(2012,1,1,9,0))
+    assert !wp.working?(DateTime.new(2012,1,1,8,59))    
+  end
+  
+  
+  private
+  
+  def get_week(ss)
+    ss.each {|obj|  return obj}
+  end  
+  
+
+  def calc_test(wp,tests,clue)
+    
+    tests.each{|y,m,d,h,n,add,yr,mr,dr,hr,nr|
+      start_date=DateTime.new(y,m,d,h,n)
+      result_date = wp.calc(start_date,add)
+      assert_equal DateTime.new(yr,mr,dr,hr,nr), result_date, "result date calc(#{start_date},#{add}) for #{clue}"
+    }
+  end
+  def clock(hour,min)
+    return Workpattern.clock(hour,min)
+  end
+end

data/test/test_workpattern_module.rb

@@ -0,0 +1,93 @@
+require File.dirname(__FILE__) + '/test_helper.rb'
+
+class TestWorkpatternModule < Test::Unit::TestCase #:nodoc:
+
+  def setup
+    Workpattern.clear()
+  end
+  
+  must "create workpattern with given name" do
+  
+    wp = Workpattern.new()
+    assert_equal Workpattern::DEFAULT_WORKPATTERN_NAME, wp.name, 'not returned the default workpattern name'
+    assert_equal Workpattern::DEFAULT_BASE_YEAR, wp.from.year, 'not returned the default workpattern base year'
+    assert_equal Workpattern::DEFAULT_SPAN, wp.span, 'not returned the default workpattern span'
+    
+    mywp_name='barrie callender'
+    mywp_base=1963
+    mywp_span=48
+    mywp = Workpattern.new(mywp_name, mywp_base,mywp_span)
+    assert_equal mywp_name, mywp.name, 'not returned the supplied workpattern name'
+    assert_equal mywp_base, mywp.from.year, 'not returned the supplied workpattern base year'
+    assert_equal mywp_span, mywp.span, 'not returned the supplied workpattern span'
+    
+  end
+  
+  must "raise error when creating workpattern with existing name" do
+
+    assert_raise NameError do
+      mywp_name='duplicate'
+      wp=Workpattern.new(mywp_name)    
+      wp=Workpattern.new(mywp_name)
+    end
+
+  end
+  
+  must "return an array of all known workpattern objects" do
+
+    names =%w{fred harry sally}
+    names.each {|name| wp=Workpattern.new(name)}
+    wp_names = Workpattern.to_a
+    
+    assert_equal names.size, wp_names.size, "lists are not the same size"
+    
+    wp_names.each {|name, wp| assert names.include?(name)}
+  end
+  
+  must "return empty array when no workpatterns exist" do
+
+    assert Workpattern.to_a.empty?
+  end
+  
+  must "return existing workpattern" do
+
+    names =%w{fred harry sally}
+    names.each {|name| wp=Workpattern.new(name)}
+    
+    names.each {|name|
+      wp=Workpattern.get(name)
+      }
+  end
+  
+  must "raise error when workpattern does not exist" do
+
+    names =%w{fred harry sally}
+    names.each {|name| wp=Workpattern.new(name)}
+    assert_raise NameError do
+      wp=Workpattern.get('missing')
+    end
+  end
+  
+  must "delete existing workpattern returning true" do
+
+    names =%w{fred harry sally}
+    names.each {|name| wp=Workpattern.new(name)}
+    names.each {|name| assert Workpattern.delete(name)}
+  end
+  
+  must "return false deleting workpattern that does not exist" do
+    names =%w{fred harry sally}
+    names.each {|name| wp=Workpattern.new(name)}
+    assert !Workpattern.delete('missing')
+  end
+  
+  must "delete all workpatterns" do
+
+    names =%w{fred harry sally}
+    names.each {|name| wp=Workpattern.new(name)}
+    Workpattern.clear
+    assert Workpattern.to_a.empty?
+  end
+  
+  
+end

data/workpattern.gemspec

@@ -0,0 +1,24 @@
+# -*- encoding: utf-8 -*-
+$:.push File.expand_path("../lib", __FILE__)
+require "workpattern/version"
+
+Gem::Specification.new do |s|
+  s.name        = "workpattern"
+  s.version     = Workpattern::VERSION
+  s.authors     = ["Barrie Callender"]
+  s.email       = ["barrie@callenb.org"]
+  s.homepage    = ""
+  s.summary     = %q{temporal calculations}
+  s.description = %q{Workpattern performs date calculations that take into account working and resting periods.}
+
+  s.rubyforge_project = "workpattern"
+
+  s.files         = `git ls-files`.split("\n")
+  s.test_files    = `git ls-files -- {test,spec,features}/*`.split("\n")
+  s.executables   = `git ls-files -- bin/*`.split("\n").map{ |f| File.basename(f) }
+  s.require_paths = ["lib"]
+
+  # specify any dependencies here; for example:
+  # s.add_development_dependency "rspec"
+  # s.add_runtime_dependency "rest-client"
+end

metadata

@@ -0,0 +1,72 @@
+--- !ruby/object:Gem::Specification
+name: workpattern
+version: !ruby/object:Gem::Version
+  version: 0.2.0
+  prerelease: 
+platform: ruby
+authors:
+- Barrie Callender
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-05-31 00:00:00.000000000Z
+dependencies: []
+description: Workpattern performs date calculations that take into account working
+  and resting periods.
+email:
+- barrie@callenb.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- CHANGELOG
+- Gemfile
+- README.md
+- Rakefile
+- config/website.yml
+- lib/workpattern.rb
+- lib/workpattern/clock.rb
+- lib/workpattern/day.rb
+- lib/workpattern/hour.rb
+- lib/workpattern/utility/base.rb
+- lib/workpattern/version.rb
+- lib/workpattern/week.rb
+- lib/workpattern/workpattern.rb
+- script/console
+- script/destroy
+- script/generate
+- script/txt2html
+- test/test_clock.rb
+- test/test_day.rb
+- test/test_helper.rb
+- test/test_hour.rb
+- test/test_week.rb
+- test/test_workpattern.rb
+- test/test_workpattern_module.rb
+- workpattern.gemspec
+homepage: ''
+licenses: []
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: workpattern
+rubygems_version: 1.8.15
+signing_key: 
+specification_version: 3
+summary: temporal calculations
+test_files: []