alphasights-business_time 0.3.0

data/test/test_business_hours_eastern.rb

@@ -0,0 +1,75 @@
+require 'helper'
+
+class TestBusinessHours < Test::Unit::TestCase
+
+  context "with a TimeWithZone object in US Eastern" do
+    setup do
+      Time.zone = 'Eastern Time (US & Canada)'
+    end
+    teardown do
+      Time.zone = nil
+    end
+
+    should "move to tomorrow if we add 8 business hours" do
+      first = Time.zone.parse("Aug 4 2010, 9:35 am")
+      later = 8.business_hours.after(first)
+      expected = Time.zone.parse("Aug 5 2010, 9:35 am")
+      assert_equal expected, later
+    end
+
+    should "move to yesterday if we subtract 8 business hours" do
+      first = Time.zone.parse("Aug 4 2010, 9:35 am")
+      later = 8.business_hours.before(first)
+      expected = Time.zone.parse("Aug 3 2010, 9:35 am")
+      assert_equal expected, later
+    end
+
+    should "take into account a weekend when adding an hour" do
+      friday_afternoon = Time.zone.parse("April 9th, 4:50 pm")
+      monday_morning = 1.business_hour.after(friday_afternoon)
+      expected = Time.zone.parse("April 12th 2010, 9:50 am")
+      assert_equal expected, monday_morning
+    end
+
+    should "take into account a weekend when subtracting an hour" do
+      monday_morning = Time.zone.parse("April 12th 2010, 9:50 am")
+      friday_afternoon = 1.business_hour.before(monday_morning)
+      expected = Time.zone.parse("April 9th 2010, 4:50 pm")
+      assert_equal expected, friday_afternoon
+    end
+
+    should "take into account a holiday" do
+      BusinessTime::Config.holidays << Date.parse("July 5th, 2010")
+      friday_afternoon = Time.zone.parse("July 2nd 2010, 4:50pm")
+      tuesday_morning = 1.business_hour.after(friday_afternoon)
+      expected = Time.zone.parse("July 6th 2010, 9:50 am")
+      assert_equal expected, tuesday_morning
+    end
+
+    should "add hours in the middle of the workday"  do
+      monday_morning = Time.zone.parse("April 12th 2010, 9:50 am")
+      later = 3.business_hours.after(monday_morning)
+      expected = Time.zone.parse("April 12th 2010, 12:50 pm")
+      assert_equal expected, later
+    end
+
+    should "roll forward to 9 am if asked in the early morning" do
+      crack_of_dawn_monday = Time.zone.parse("Mon Apr 26, 04:30:00, 2010")
+      monday_morning = Time.zone.parse("Mon Apr 26, 09:00:00, 2010")
+      assert_equal monday_morning, Time.roll_forward(crack_of_dawn_monday)
+    end
+
+    should "roll forward to the next morning if aftern business hours" do
+      monday_evening = Time.zone.parse("Mon Apr 26, 18:00:00, 2010")
+      tuesday_morning = Time.zone.parse("Tue Apr 27, 09:00:00, 2010")
+      assert_equal tuesday_morning, Time.roll_forward(monday_evening)
+    end
+
+    should "consider any time on a weekend as equivalent to monday morning" do
+      sunday = Time.zone.parse("Sun Apr 25 12:06:56, 2010")
+      monday = Time.zone.parse("Mon Apr 26, 09:00:00, 2010")
+      assert_equal 1.business_hour.before(monday), 1.business_hour.before(sunday)
+    end
+
+  end
+end

data/test/test_business_hours_utc.rb

@@ -0,0 +1,75 @@
+require 'helper'
+
+class TestBusinessHours < Test::Unit::TestCase
+
+  context "with a TimeWithZone object in UTC" do
+    setup do
+      Time.zone = 'UTC'
+    end
+    teardown do
+      Time.zone = nil
+    end
+
+    should "move to tomorrow if we add 8 business hours" do
+      first = Time.zone.parse("Aug 4 2010, 9:35 am")
+      later = 8.business_hours.after(first)
+      expected = Time.zone.parse("Aug 5 2010, 9:35 am")
+      assert_equal expected, later
+    end
+
+    should "move to yesterday if we subtract 8 business hours" do
+      first = Time.zone.parse("Aug 4 2010, 9:35 am")
+      later = 8.business_hours.before(first)
+      expected = Time.zone.parse("Aug 3 2010, 9:35 am")
+      assert_equal expected, later
+    end
+
+    should "take into account a weekend when adding an hour" do
+      friday_afternoon = Time.zone.parse("April 9th, 4:50 pm")
+      monday_morning = 1.business_hour.after(friday_afternoon)
+      expected = Time.zone.parse("April 12th 2010, 9:50 am")
+      assert_equal expected, monday_morning
+    end
+
+    should "take into account a weekend when subtracting an hour" do
+      monday_morning = Time.zone.parse("April 12th 2010, 9:50 am")
+      friday_afternoon = 1.business_hour.before(monday_morning)
+      expected = Time.zone.parse("April 9th 2010, 4:50 pm")
+      assert_equal expected, friday_afternoon, "Expected #{expected} but received #{friday_afternoon}"
+    end
+
+    should "take into account a holiday" do
+      BusinessTime::Config.holidays << Date.parse("July 5th, 2010")
+      friday_afternoon = Time.zone.parse("July 2nd 2010, 4:50pm")
+      tuesday_morning = 1.business_hour.after(friday_afternoon)
+      expected = Time.zone.parse("July 6th 2010, 9:50 am")
+      assert_equal expected, tuesday_morning
+    end
+
+    should "add hours in the middle of the workday"  do
+      monday_morning = Time.zone.parse("April 12th 2010, 9:50 am")
+      later = 3.business_hours.after(monday_morning)
+      expected = Time.zone.parse("April 12th 2010, 12:50 pm")
+      assert_equal expected, later
+    end
+
+    should "roll forward to 9 am if asked in the early morning" do
+      crack_of_dawn_monday = Time.zone.parse("Mon Apr 26, 04:30:00, 2010")
+      monday_morning = Time.zone.parse("Mon Apr 26, 09:00:00, 2010")
+      assert_equal monday_morning, Time.roll_forward(crack_of_dawn_monday)
+    end
+
+    should "roll forward to the next morning if aftern business hours" do
+      monday_evening = Time.zone.parse("Mon Apr 26, 18:00:00, 2010")
+      tuesday_morning = Time.zone.parse("Tue Apr 27, 09:00:00, 2010")
+      assert_equal tuesday_morning, Time.roll_forward(monday_evening)
+    end
+
+    should "consider any time on a weekend as equivalent to monday morning" do
+      sunday = Time.zone.parse("Sun Apr 25 12:06:56, 2010")
+      monday = Time.zone.parse("Mon Apr 26, 09:00:00, 2010")
+      assert_equal 1.business_hour.before(monday), 1.business_hour.before(sunday)
+    end
+  end
+
+end

data/test/test_config.rb

@@ -0,0 +1,25 @@
+require 'helper'
+
+class TestConfig < Test::Unit::TestCase
+  
+  should "keep track of the start of the day" do
+    assert_equal BusinessTime::Config.beginning_of_workday, "9:00 am"
+    BusinessTime::Config.beginning_of_workday = "8:30 am"
+    assert_equal BusinessTime::Config.beginning_of_workday, "8:30 am"
+  end
+  
+  should "keep track of the end of the day" do
+    assert_equal BusinessTime::Config.end_of_workday, "5:00 pm"
+    BusinessTime::Config.end_of_workday = "5:30 pm"
+    assert_equal BusinessTime::Config.end_of_workday, "5:30 pm"
+  end
+  
+  should "keep track of holidays" do
+    BusinessTime::Config.reset
+    assert BusinessTime::Config.holidays.empty?
+    daves_birthday = Date.parse("August 4th, 1969")
+    BusinessTime::Config.holidays << daves_birthday
+    assert BusinessTime::Config.holidays.include?(daves_birthday)
+  end
+  
+end

data/test/test_date_extensions.rb

@@ -0,0 +1,33 @@
+require 'helper'
+
+class TestDateExtensions < Test::Unit::TestCase
+  
+  should "know what a weekend day is"  do
+    assert(Date.parse("April 9, 2010").weekday?)
+    assert(!Date.parse("April 10, 2010").weekday?)
+    assert(!Date.parse("April 11, 2010").weekday?)
+    assert(Date.parse("April 12, 2010").weekday?)
+  end
+  
+  should "know a weekend day is not a workday"  do
+    assert(Date.parse("April 9, 2010").workday?)
+    assert(!Date.parse("April 10, 2010").workday?)
+    assert(!Date.parse("April 11, 2010").workday?)
+    assert(Date.parse("April 12, 2010").workday?)
+  end
+  
+  should "know a holiday is not a workday" do
+    july_4 = Date.parse("July 4, 2010")
+    july_5 = Date.parse("July 5, 2010")
+    
+    assert(!july_4.workday?)
+    assert(july_5.workday?)
+    
+    BusinessTime::Config.holidays << july_4
+    BusinessTime::Config.holidays << july_5
+    
+    assert(!july_4.workday?)
+    assert(!july_5.workday?)
+  end
+  
+end

data/test/test_fixnum_extensions.rb

@@ -0,0 +1,17 @@
+require 'helper'
+
+class TestFixnumExtensions < Test::Unit::TestCase
+  
+  should "respond to business_hours by returning an instance of BusinessHours" do
+    assert(1.respond_to?(:business_hour))
+    assert(1.respond_to?(:business_hours))
+    assert 1.business_hour.instance_of?(BusinessTime::BusinessHours)
+  end
+  
+  should "respond to business_days by returning an instance of BusinessDays" do
+    assert(1.respond_to?(:business_day))
+    assert(1.respond_to?(:business_days))
+    assert 1.business_day.instance_of?(BusinessTime::BusinessDays)
+  end
+  
+end

data/test/test_time_extensions.rb

@@ -0,0 +1,131 @@
+require 'helper'
+
+class TestTimeExtensions < Test::Unit::TestCase
+  
+  should "know what a weekend day is" do
+    assert( Time.weekday?(Time.parse("April 9, 2010 10:30am")))
+    assert(!Time.weekday?(Time.parse("April 10, 2010 10:30am")))
+    assert(!Time.weekday?(Time.parse("April 11, 2010 10:30am")))
+    assert( Time.weekday?(Time.parse("April 12, 2010 10:30am")))
+  end
+  
+  should "know a weekend day is not a workday" do
+    assert( Time.workday?(Time.parse("April 9, 2010 10:45 am")))
+    assert(!Time.workday?(Time.parse("April 10, 2010 10:45 am")))
+    assert(!Time.workday?(Time.parse("April 11, 2010 10:45 am")))
+    assert( Time.workday?(Time.parse("April 12, 2010 10:45 am")))
+  end
+  
+  should "know a holiday is not a workday" do
+    BusinessTime::Config.reset
+    
+    BusinessTime::Config.holidays << Date.parse("July 4, 2010")
+    BusinessTime::Config.holidays << Date.parse("July 5, 2010")
+    
+    assert(!Time.workday?(Time.parse("July 4th, 2010 1:15 pm")))
+    assert(!Time.workday?(Time.parse("July 5th, 2010 2:37 pm")))
+  end
+  
+  
+  should "know the beginning of the day for an instance" do
+    first = Time.parse("August 17th, 2010, 11:50 am")
+    expecting = Time.parse("August 17th, 2010, 9:00 am")
+    assert_equal expecting, Time.beginning_of_workday(first)
+  end
+  
+  should "know the end of the day for an instance" do
+    first = Time.parse("August 17th, 2010, 11:50 am")
+    expecting = Time.parse("August 17th, 2010, 5:00 pm")
+    assert_equal expecting, Time.end_of_workday(first)
+  end
+
+  should "know if instance is during business hours" do
+    assert(!Time.during_business_hours?(Time.parse("April 11, 2010 10:45 am")))
+    assert(!Time.during_business_hours?(Time.parse("April 12, 2010  8:45 am")))
+    assert(Time.during_business_hours?(Time.parse("April 12, 2010  9:45 am")))
+  end
+
+
+  should "know a seconds to an instance" do
+    start_time = Time.parse("August 17th, 2010, 8:50 am")
+    end_time = Time.parse("August 17th, 2010, 13:00 pm")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, 3600 * 4
+  end
+
+  should "know a seconds to an instance" do
+    start_time = Time.parse("August 17th, 2010, 11:50 am")
+    end_time = Time.parse("August 17th, 2010, 13:50 pm")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, 7200
+  end
+
+  should "know a seconds to an instance" do
+    start_time = Time.parse("August 17th, 2010, 17:50 am")
+    end_time = Time.parse("August 17th, 2010, 18:50 pm")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, 0
+  end
+
+  should "know a seconds to an instance in weekend" do
+    start_time = Time.parse("August 22th, 2010, 11:50 am")
+    end_time = Time.parse("August 22th, 2010, 13:50 pm")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, 0
+  end
+
+  should "know a seconds to an instance between holidays" do
+    start_time = Time.parse("August 22th, 2010, 11:50 am")
+    BusinessTime::Config.reset
+    
+    BusinessTime::Config.holidays << Date.parse("August 24, 2010")
+    end_time = Time.parse("August 24th, 2010, 13:50 pm")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, 8 * 3600
+  end
+
+  should "know a seconds to an other day instance" do
+    start_time = Time.parse("August 17th, 2010, 16:00 pm")
+    end_time = Time.parse("August 18th, 2010, 9:00 am")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, 3600
+  end
+
+  should "know a seconds to an other week instance" do
+    start_time = Time.parse("August 17th, 2010, 16:00 pm")
+    end_time = Time.parse("August 23th, 2010, 10:00 am")
+    expecting = start_time.business_time_left_to(end_time)
+    assert_equal expecting, (3600 * 26)
+  end
+
+  should "know a seconds to end of business hours" do
+    time = Time.parse("August 17th, 2010, 16:00 pm")
+    expecting = time.business_time_left_to_end
+    assert_equal expecting, 3600
+    time = Time.parse("August 17th, 2010, 8:00 am")
+    expecting = time.business_time_left_to_end
+    assert_equal expecting, 3600 * 8
+    time = Time.parse("August 17th, 2010, 18:00 pm")
+    expecting = time.business_time_left_to_end
+    assert_equal expecting, 0
+    time = Time.parse("August 21th, 2010, 16:00 pm")
+    expecting = time.business_time_left_to_end
+    assert_equal expecting, 0
+  end
+
+  should "know a seconds from beginning of business hours" do
+    time = Time.parse("August 17th, 2010, 16:00 pm")
+    expecting = time.business_time_passed_from_beginning
+    assert_equal expecting, 3600 * 7
+    time = Time.parse("August 17th, 2010, 8:00 am")
+    expecting = time.business_time_passed_from_beginning
+    assert_equal expecting, 0
+    time = Time.parse("August 17th, 2010, 18:00 pm")
+    expecting = time.business_time_passed_from_beginning
+    assert_equal expecting, 3600 * 8
+    time = Time.parse("August 21th, 2010, 16:00 pm")
+    expecting = time.business_time_passed_from_beginning
+    assert_equal expecting, 0
+  end
+  
+end

data/test/test_time_with_zone_extensions.rb

@@ -0,0 +1,92 @@
+require 'helper'
+
+class TestTimeWithZoneExtensions < Test::Unit::TestCase
+  
+  context "With Eastern Standard Time" do
+    setup do
+      Time.zone = 'Eastern Time (US & Canada)'
+    end
+    
+    should "know what a weekend day is" do
+      assert( Time.weekday?(Time.zone.parse("April 9, 2010 10:30am")))
+      assert(!Time.weekday?(Time.zone.parse("April 10, 2010 10:30am")))
+      assert(!Time.weekday?(Time.zone.parse("April 11, 2010 10:30am")))
+      assert( Time.weekday?(Time.zone.parse("April 12, 2010 10:30am")))
+    end
+  
+    should "know a weekend day is not a workday" do
+      assert( Time.workday?(Time.zone.parse("April 9, 2010 10:45 am")))
+      assert(!Time.workday?(Time.zone.parse("April 10, 2010 10:45 am")))
+      assert(!Time.workday?(Time.zone.parse("April 11, 2010 10:45 am")))
+      assert( Time.workday?(Time.zone.parse("April 12, 2010 10:45 am")))
+    end
+  
+    should "know a holiday is not a workday" do
+      BusinessTime::Config.reset
+    
+      BusinessTime::Config.holidays << Date.parse("July 4, 2010")
+      BusinessTime::Config.holidays << Date.parse("July 5, 2010")
+    
+      assert(!Time.workday?(Time.zone.parse("July 4th, 2010 1:15 pm")))
+      assert(!Time.workday?(Time.zone.parse("July 5th, 2010 2:37 pm")))
+    end
+  
+  
+    should "know the beginning of the day for an instance" do
+      first = Time.zone.parse("August 17th, 2010, 11:50 am")
+      expecting = Time.zone.parse("August 17th, 2010, 9:00 am")
+      assert_equal expecting, Time.beginning_of_workday(first)
+    end
+  
+    should "know the end of the day for an instance" do
+      first = Time.zone.parse("August 17th, 2010, 11:50 am")
+      expecting = Time.zone.parse("August 17th, 2010, 5:00 pm")
+      assert_equal expecting, Time.end_of_workday(first)
+    end
+  end
+  
+  
+  context "With UTC Timezone" do
+    setup do
+      Time.zone = 'UTC'
+    end
+    
+    should "know what a weekend day is" do
+      assert( Time.weekday?(Time.zone.parse("April 9, 2010 10:30am")))
+      assert(!Time.weekday?(Time.zone.parse("April 10, 2010 10:30am")))
+      assert(!Time.weekday?(Time.zone.parse("April 11, 2010 10:30am")))
+      assert( Time.weekday?(Time.zone.parse("April 12, 2010 10:30am")))
+    end
+  
+    should "know a weekend day is not a workday" do
+      assert( Time.workday?(Time.zone.parse("April 9, 2010 10:45 am")))
+      assert(!Time.workday?(Time.zone.parse("April 10, 2010 10:45 am")))
+      assert(!Time.workday?(Time.zone.parse("April 11, 2010 10:45 am")))
+      assert( Time.workday?(Time.zone.parse("April 12, 2010 10:45 am")))
+    end
+  
+    should "know a holiday is not a workday" do
+      BusinessTime::Config.reset
+    
+      BusinessTime::Config.holidays << Date.parse("July 4, 2010")
+      BusinessTime::Config.holidays << Date.parse("July 5, 2010")
+    
+      assert(!Time.workday?(Time.zone.parse("July 4th, 2010 1:15 pm")))
+      assert(!Time.workday?(Time.zone.parse("July 5th, 2010 2:37 pm")))
+    end
+  
+  
+    should "know the beginning of the day for an instance" do
+      first = Time.zone.parse("August 17th, 2010, 11:50 am")
+      expecting = Time.zone.parse("August 17th, 2010, 9:00 am")
+      assert_equal expecting, Time.beginning_of_workday(first)
+    end
+  
+    should "know the end of the day for an instance" do
+      first = Time.zone.parse("August 17th, 2010, 11:50 am")
+      expecting = Time.zone.parse("August 17th, 2010, 5:00 pm")
+      assert_equal expecting, Time.end_of_workday(first)
+    end
+  end
+  
+end