motion_blender-support 0.2.7

data/spec/motion-support/core_ext/date/calculation_spec.rb

@@ -0,0 +1,186 @@
+describe "Date" do
+  describe "calculations" do
+    describe "yesterday" do
+      it "should calculate yesterday's date" do
+        Date.new(1982,10,15).yesterday.should == Date.new(1982,10,14)
+      end
+      
+      it "should construct yesterday's date" do
+        Date.yesterday.should == Date.current - 1
+      end
+    end
+    
+    describe "tomorrow" do
+      it "should calculate tomorrow's date" do
+        Date.new(1982,10,4).tomorrow.should == Date.new(1982,10,5)
+      end
+      
+      it "should construct tomorrow's date" do
+        Date.tomorrow.should == Date.current + 1
+      end
+    end
+    
+    describe "change" do
+      it "should change correctly" do
+        Date.new(2005,2,11).change(:day => 21).should == Date.new(2005,2,21)
+        Date.new(2005,2,11).change(:year => 2007, :month => 5).should == Date.new(2007,5,11)
+        Date.new(2005,2,22).change(:year => 2006).should == Date.new(2006,2,22)
+        Date.new(2005,2,22).change(:month => 6).should == Date.new(2005,6,22)
+      end
+    end
+    
+    describe "sunday" do
+      it "should calculate correctly" do
+        Date.new(2008,3,02).sunday.should == Date.new(2008,3,2)
+        Date.new(2008,2,29).sunday.should == Date.new(2008,3,2)
+      end
+    end
+    
+    describe "beginning_of_week" do
+      it "should calculate correctly" do
+        Date.new(1982,10,15).beginning_of_week.should == Date.new(1982,10,11)
+      end
+    end
+    
+    describe "end_of_week" do
+      it "should calculate correctly" do
+        Date.new(1982,10,4).end_of_week.should == Date.new(1982,10,10)
+      end
+    end
+    
+    describe "end_of_year" do
+      it "should calculate correctly" do
+        Date.new(2008,2,22).end_of_year.should == Date.new(2008,12,31)
+      end
+    end
+    
+    describe "end_of_month" do
+      it "should calculate correctly" do
+        Date.new(2005,3,20).end_of_month.should == Date.new(2005,3,31)
+        Date.new(2005,2,20).end_of_month.should == Date.new(2005,2,28)
+        Date.new(2005,4,20).end_of_month.should == Date.new(2005,4,30)
+      end
+    end
+    
+    describe "prev_year" do
+      it "should calculate correctly" do
+        Date.new(1983,10,14).prev_year.should == Date.new(1982,10,14)
+      end
+      
+      it "should work with leap years" do
+        Date.new(2000,2,29).prev_year.should == Date.new(1999,2,28)
+      end
+    end
+    
+    describe "last_year" do
+      it "should calculate correctly" do
+        Date.new(2005,6,5).last_year.should == Date.new(2004,6,5)
+        Date.new(1983,10,14).last_year.should == Date.new(1982,10,14)
+      end
+      
+      it "should work with leap years" do
+        Date.new(2000,2,29).last_year.should == Date.new(1999,2,28)
+      end
+    end
+    
+    describe "next_year" do
+      it "should calculate correctly" do
+        Date.new(1981,10,10).next_year.should == Date.new(1982,10,10)
+      end
+      
+      it "should work with leap years" do
+        Date.new(2000,2,29).next_year.should == Date.new(2001,2,28)
+      end
+    end
+    
+    describe "advance" do
+      it "should calculate correctly" do
+        Date.new(2005,2,28).advance(:years => 1).should == Date.new(2006,2,28)
+        Date.new(2005,2,28).advance(:months => 4).should == Date.new(2005,6,28)
+        Date.new(2005,2,28).advance(:weeks => 3).should == Date.new(2005,3,21)
+        Date.new(2005,2,28).advance(:days => 5).should == Date.new(2005,3,5)
+        Date.new(2005,2,28).advance(:years => 7, :months => 7).should == Date.new(2012,9,28)
+        Date.new(2005,2,28).advance(:years => 7, :months => 19, :days => 5).should == Date.new(2013,10,3)
+        Date.new(2005,2,28).advance(:years => 7, :months => 19, :weeks => 2, :days => 5).should == Date.new(2013,10,17)
+        Date.new(2004,2,29).advance(:years => 1).should == Date.new(2005,2,28)
+      end
+      
+      it "should advance years before days" do
+        Date.new(2011, 2, 28).advance(:years => 1, :days => 1).should == Date.new(2012, 2, 29)
+      end
+      
+      it "should advance months before days" do
+        Date.new(2010, 2, 28).advance(:months => 1, :days => 1).should == Date.new(2010, 3, 29)
+      end
+      
+      it "should not change passed option hash" do
+        options = { :years => 3, :months => 11, :days => 2 }
+        Date.new(2005,2,28).advance(options)
+        options.should == { :years => 3, :months => 11, :days => 2 }
+      end
+    end
+    
+    describe "last_week" do
+      it "should calculate correctly" do
+        Date.new(2005,5,17).last_week.should == Date.new(2005,5,9)
+        Date.new(2007,1,7).last_week.should == Date.new(2006,12,25)
+        Date.new(2010,2,19).last_week(:friday).should == Date.new(2010,2,12)
+        Date.new(2010,2,19).last_week(:saturday).should == Date.new(2010,2,13)
+        Date.new(2010,3,4).last_week(:saturday).should == Date.new(2010,2,27)
+      end
+    end
+    
+    describe "last_month" do
+      it "should calculate correctly on the 31st" do
+        Date.new(2004, 3, 31).last_month.should == Date.new(2004, 2, 29)
+        
+      end
+    end
+    
+    describe "last_quarter" do
+      it "should calculate correctly on the 31st" do
+        Date.new(2004, 5, 31).last_quarter.should == Date.new(2004, 2, 29)
+      end
+    end
+    
+    describe "since" do
+      it "should calculate correctly" do
+        Date.new(2005,2,21).since(45).should == Time.local(2005,2,21,0,0,45)
+      end
+    end
+    
+    describe "ago" do
+      it "should calculate correctly" do
+        Date.new(2005,2,21).ago(45).should == Time.local(2005,2,20,23,59,15)
+      end
+    end
+    
+    describe "beginning_of_day" do
+      it "should calculate correctly" do
+        Date.new(2005,2,21).beginning_of_day.should == Time.local(2005,2,21,0,0,0)
+      end
+    end
+    
+    describe "end_of_day" do
+      it "should calculate correctly" do
+        Date.new(2005,2,21).end_of_day.should == Time.local(2005,2,21,23,59,59,Rational(999999999, 1000))
+      end
+    end
+    
+    describe "past?" do
+      it "should calculate correctly" do
+        Date.yesterday.should.be.past
+        Date.today.last_week.should.be.past
+        Date.tomorrow.should.not.be.past
+      end
+    end
+    
+    describe "future?" do
+      it "should calculate correctly" do
+        Date.tomorrow.should.be.future
+        Date.today.next_week.should.be.future
+        Date.yesterday.should.not.be.future
+      end
+    end
+  end
+end

data/spec/motion-support/core_ext/date/conversion_spec.rb

@@ -0,0 +1,18 @@
+describe "date" do
+  describe "conversions" do
+    it "should convert date to string" do
+      date = Date.new(2005, 2, 21)
+      date.to_s.should == "2005-2-21"
+      date.to_s(:short).should == "21 Feb"
+      date.to_s(:long).should == "February 21, 2005"
+      date.to_s(:long_ordinal).should == "February 21st, 2005"
+      date.to_s(:db).should == "2005-02-21"
+      date.to_s(:rfc822).should == "21 Feb 2005"
+    end
+    
+    it "should make inspect readable" do
+      Date.new(2005, 2, 21).readable_inspect.should == "Mon, 21 Feb 2005"
+      Date.new(2005, 2, 21).readable_inspect.should == Date.new(2005, 2, 21).inspect
+    end
+  end
+end

data/spec/motion-support/core_ext/date_and_time/calculation_spec.rb

@@ -0,0 +1,336 @@
+class Date
+  def self.for_spec(year, month, day, hour, minute, second, usec)
+    new(year, month, day)
+  end
+end
+
+class Time
+  def self.for_spec(year, month, day, hour, minute, second, usec)
+    local(year, month, day, hour, minute, second, usec)
+  end
+end
+
+[Date, Time].each do |klass|
+  describe klass do
+    @klass = klass
+    def date_or_time(year, month, day, hour, minute, second, usec = nil)
+      @klass.for_spec(year, month, day, hour, minute, second, usec)
+    end
+    
+    def with_bw_default(bw = :monday)
+      old_bw = Date.beginning_of_week
+      Date.beginning_of_week = bw
+      yield
+    ensure
+      Date.beginning_of_week = old_bw
+    end
+    
+    describe "yesterday" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,22,10,10,10).yesterday.should == date_or_time(2005,2,21,10,10,10)
+        date_or_time(2005,3,2,10,10,10).yesterday.yesterday.should == date_or_time(2005,2,28,10,10,10)
+      end
+    end
+    
+    describe "tomorrow" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,22,10,10,10).tomorrow.should == date_or_time(2005,2,23,10,10,10)
+        date_or_time(2005,2,28,10,10,10).tomorrow.tomorrow.should == date_or_time(2005,3,2,10,10,10)
+      end
+    end
+    
+    describe "days_ago" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).days_ago(1).should == date_or_time(2005,6,4,10,10,10)
+        date_or_time(2005,6,5,10,10,10).days_ago(5).should == date_or_time(2005,5,31,10,10,10)
+      end
+    end
+    
+    describe "days_since" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).days_since(1).should == date_or_time(2005,6,6,10,10,10)
+        date_or_time(2004,12,31,10,10,10).days_since(1).should == date_or_time(2005,1,1,10,10,10)
+      end
+    end
+    
+    describe "weeks_ago" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).weeks_ago(1).should == date_or_time(2005,5,29,10,10,10)
+        date_or_time(2005,6,5,10,10,10).weeks_ago(5).should == date_or_time(2005,5,1,10,10,10)
+        date_or_time(2005,6,5,10,10,10).weeks_ago(6).should == date_or_time(2005,4,24,10,10,10)
+        date_or_time(2005,6,5,10,10,10).weeks_ago(14).should == date_or_time(2005,2,27,10,10,10)
+        date_or_time(2005,1,1,10,10,10).weeks_ago(1).should == date_or_time(2004,12,25,10,10,10)
+      end
+    end
+    
+    describe "weeks_since" do
+      it "should be calculated correctly" do
+        date_or_time(2005,7,7,10,10,10).weeks_since(1).should == date_or_time(2005,7,14,10,10,10)
+        date_or_time(2005,7,7,10,10,10).weeks_since(1).should == date_or_time(2005,7,14,10,10,10)
+        date_or_time(2005,6,27,10,10,10).weeks_since(1).should == date_or_time(2005,7,4,10,10,10)
+        date_or_time(2004,12,28,10,10,10).weeks_since(1).should == date_or_time(2005,1,4,10,10,10)
+      end
+    end
+    
+    describe "months_ago" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).months_ago(1).should == date_or_time(2005,5,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_ago(7).should == date_or_time(2004,11,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_ago(6).should == date_or_time(2004,12,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_ago(12).should == date_or_time(2004,6,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_ago(24).should == date_or_time(2003,6,5,10,10,10)
+      end
+    end
+    
+    describe "months_since" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).months_since(1).should == date_or_time(2005,7,5,10,10,10)
+        date_or_time(2005,12,5,10,10,10).months_since(1).should == date_or_time(2006,1,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_since(6).should == date_or_time(2005,12,5,10,10,10)
+        date_or_time(2005,12,5,10,10,10).months_since(6).should == date_or_time(2006,6,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_since(7).should == date_or_time(2006,1,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_since(12).should == date_or_time(2006,6,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).months_since(24).should == date_or_time(2007,6,5,10,10,10)
+        date_or_time(2005,3,31,10,10,10).months_since(1).should == date_or_time(2005,4,30,10,10,10)
+        date_or_time(2005,1,29,10,10,10).months_since(1).should == date_or_time(2005,2,28,10,10,10)
+        date_or_time(2005,1,30,10,10,10).months_since(1).should == date_or_time(2005,2,28,10,10,10)
+        date_or_time(2005,1,31,10,10,10).months_since(1).should == date_or_time(2005,2,28,10,10,10)
+      end
+    end
+    
+    describe "years_ago" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).years_ago(1).should == date_or_time(2004,6,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).years_ago(7).should == date_or_time(1998,6,5,10,10,10)
+         # 1 year ago from leap day
+        date_or_time(2004,2,29,10,10,10).years_ago(1).should == date_or_time(2003,2,28,10,10,10)
+      end
+    end
+    
+    describe "years_since" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).years_since(1).should == date_or_time(2006,6,5,10,10,10)
+        date_or_time(2005,6,5,10,10,10).years_since(7).should == date_or_time(2012,6,5,10,10,10)
+        # 1 year since leap day
+        date_or_time(2004,2,29,10,10,10).years_since(1).should == date_or_time(2005,2,28,10,10,10)
+      end
+    end
+    
+    describe "beginning_of_month" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,22,10,10,10).beginning_of_month.should == date_or_time(2005,2,1,0,0,0)
+      end
+    end
+    
+    describe "beginning_of_quarter" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,15,10,10,10).beginning_of_quarter.should == date_or_time(2005,1,1,0,0,0)
+        date_or_time(2005,1,1,0,0,0).beginning_of_quarter.should == date_or_time(2005,1,1,0,0,0)
+        date_or_time(2005,12,31,10,10,10).beginning_of_quarter.should == date_or_time(2005,10,1,0,0,0)
+        date_or_time(2005,6,30,23,59,59).beginning_of_quarter.should == date_or_time(2005,4,1,0,0,0)
+      end
+    end
+    
+    describe "end_of_quarter" do
+      it "should be calculated correctly" do
+        date_or_time(2007,2,15,10,10,10).end_of_quarter.should == date_or_time(2007,3,31,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,3,31,0,0,0).end_of_quarter.should == date_or_time(2007,3,31,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,12,21,10,10,10).end_of_quarter.should == date_or_time(2007,12,31,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,4,1,0,0,0).end_of_quarter.should == date_or_time(2007,6,30,23,59,59,Rational(999999999, 1000))
+        date_or_time(2008,5,31,0,0,0).end_of_quarter.should == date_or_time(2008,6,30,23,59,59,Rational(999999999, 1000))
+      end
+    end
+    
+    describe "beginning_of_year" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,22,10,10,10).beginning_of_year.should == date_or_time(2005,1,1,0,0,0)
+      end
+    end
+    
+    describe "next_week" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,22,15,15,10).next_week.should == date_or_time(2005,2,28,0,0,0)
+        date_or_time(2005,2,22,15,15,10).next_week(:friday).should == date_or_time(2005,3,4,0,0,0)
+        date_or_time(2006,10,23,0,0,0).next_week.should == date_or_time(2006,10,30,0,0,0)
+        date_or_time(2006,10,23,0,0,0).next_week(:wednesday).should == date_or_time(2006,11,1,0,0,0)
+      end
+      
+      it "should be calculated correctly with default beginning of week" do
+        # calling with_bw_default produces LocalJumpError, even though a block is given
+        begin
+          old_bw = Date.beginning_of_week
+          Date.beginning_of_week = :tuesday
+        
+          date_or_time(2012,3,21,0,0,0).next_week(:wednesday).should == date_or_time(2012,3,28,0,0,0)
+          date_or_time(2012,3,21,0,0,0).next_week(:saturday).should == date_or_time(2012,3,31,0,0,0)
+          date_or_time(2012,3,21,0,0,0).next_week(:tuesday).should == date_or_time(2012,3,27,0,0,0)
+          date_or_time(2012,3,21,0,0,0).next_week(:monday).should == date_or_time(2012,4,02,0,0,0)
+        ensure
+          Date.beginning_of_week = old_bw
+        end
+      end
+    end
+    
+    describe "next_month" do
+      it "should be calculated correctly" do
+        date_or_time(2005,8,31,15,15,10).next_month.should == date_or_time(2005,9,30,15,15,10)
+      end
+    end
+    
+    describe "next_quarter" do
+      it "should be calculated correctly" do
+        date_or_time(2005,8,31,15,15,10).next_quarter.should == date_or_time(2005,11,30,15,15,10)
+      end
+    end
+    
+    describe "next_year" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).next_year.should == date_or_time(2006,6,5,10,10,10)
+      end
+    end
+    
+    describe "prev_week" do
+      it "should be calculated correctly" do
+        date_or_time(2005,3,1,15,15,10).prev_week.should == date_or_time(2005,2,21,0,0,0)
+        date_or_time(2005,3,1,15,15,10).prev_week(:tuesday).should == date_or_time(2005,2,22,0,0,0)
+        date_or_time(2005,3,1,15,15,10).prev_week(:friday).should == date_or_time(2005,2,25,0,0,0)
+        date_or_time(2006,11,6,0,0,0).prev_week.should == date_or_time(2006,10,30,0,0,0)
+        date_or_time(2006,11,23,0,0,0).prev_week(:wednesday).should == date_or_time(2006,11,15,0,0,0)
+      end
+      
+      it "should be calculated correctly with default beginning of week" do
+        begin
+          old_bw = Date.beginning_of_week
+          Date.beginning_of_week = :tuesday
+        
+          date_or_time(2012,3,21,0,0,0).prev_week(:wednesday).should == date_or_time(2012,3,14,0,0,0)
+          date_or_time(2012,3,21,0,0,0).prev_week(:saturday).should == date_or_time(2012,3,17,0,0,0)
+          date_or_time(2012,3,21,0,0,0).prev_week(:tuesday).should == date_or_time(2012,3,13,0,0,0)
+          date_or_time(2012,3,21,0,0,0).prev_week(:monday).should == date_or_time(2012,3,19,0,0,0)
+        ensure
+          Date.beginning_of_week = old_bw
+        end
+      end
+    end
+    
+    describe "prev_month" do
+      it "should be calculated correctly" do
+        date_or_time(2004,3,31,10,10,10).prev_month.should == date_or_time(2004,2,29,10,10,10)
+      end
+    end
+    
+    describe "prev_quarter" do
+      it "should be calculated correctly" do
+        date_or_time(2004,5,31,10,10,10).prev_quarter.should == date_or_time(2004,2,29,10,10,10)
+      end
+    end
+    
+    describe "prev_year" do
+      it "should be calculated correctly" do
+        date_or_time(2005,6,5,10,10,10).prev_year.should == date_or_time(2004,6,5,10,10,10)
+      end
+    end
+    
+    describe "days_to_week_start" do
+      it "should be calculated correctly" do
+        date_or_time(2011,11,01,0,0,0).days_to_week_start(:tuesday).should == 0
+        date_or_time(2011,11,02,0,0,0).days_to_week_start(:tuesday).should == 1
+        date_or_time(2011,11,03,0,0,0).days_to_week_start(:tuesday).should == 2
+        date_or_time(2011,11,04,0,0,0).days_to_week_start(:tuesday).should == 3
+        date_or_time(2011,11,05,0,0,0).days_to_week_start(:tuesday).should == 4
+        date_or_time(2011,11,06,0,0,0).days_to_week_start(:tuesday).should == 5
+        date_or_time(2011,11,07,0,0,0).days_to_week_start(:tuesday).should == 6
+
+        date_or_time(2011,11,03,0,0,0).days_to_week_start(:monday).should == 3
+        date_or_time(2011,11,04,0,0,0).days_to_week_start(:tuesday).should == 3
+        date_or_time(2011,11,05,0,0,0).days_to_week_start(:wednesday).should == 3
+        date_or_time(2011,11,06,0,0,0).days_to_week_start(:thursday).should == 3
+        date_or_time(2011,11,07,0,0,0).days_to_week_start(:friday).should == 3
+        date_or_time(2011,11,8,0,0,0).days_to_week_start(:saturday).should == 3
+        date_or_time(2011,11,9,0,0,0).days_to_week_start(:sunday).should == 3
+      end
+      
+      it "should be calculated correctly with default beginning of week" do
+        begin
+          old_bw = Date.beginning_of_week
+          Date.beginning_of_week = :friday
+        
+          date_or_time(2012,03,8,0,0,0).days_to_week_start.should == 6
+          date_or_time(2012,03,7,0,0,0).days_to_week_start.should == 5
+          date_or_time(2012,03,6,0,0,0).days_to_week_start.should == 4
+          date_or_time(2012,03,5,0,0,0).days_to_week_start.should == 3
+          date_or_time(2012,03,4,0,0,0).days_to_week_start.should == 2
+          date_or_time(2012,03,3,0,0,0).days_to_week_start.should == 1
+          date_or_time(2012,03,2,0,0,0).days_to_week_start.should == 0
+        ensure
+          Date.beginning_of_week = old_bw
+        end
+      end
+    end
+    
+    describe "beginning_of_week" do
+      it "should be calculated correctly" do
+        date_or_time(2005,2,4,10,10,10).beginning_of_week.should == date_or_time(2005,1,31,0,0,0)
+        date_or_time(2005,11,28,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+        date_or_time(2005,11,29,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+        date_or_time(2005,11,30,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+        date_or_time(2005,12,01,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+        date_or_time(2005,12,02,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+        date_or_time(2005,12,03,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+        date_or_time(2005,12,04,0,0,0).beginning_of_week.should == date_or_time(2005,11,28,0,0,0)
+      end
+    end
+    
+    describe "end_of_week" do
+      it "should be calculated correctly" do
+        date_or_time(2007,12,31,10,10,10).end_of_week.should == date_or_time(2008,1,6,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,8,27,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,8,28,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,8,29,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,8,30,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,8,31,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,9,01,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,9,02,0,0,0).end_of_week.should == date_or_time(2007,9,2,23,59,59,Rational(999999999, 1000))
+      end
+    end
+    
+    describe "end_of_month" do
+      it "should be calculated correctly" do
+        date_or_time(2005,3,20,10,10,10).end_of_month.should == date_or_time(2005,3,31,23,59,59,Rational(999999999, 1000))
+        date_or_time(2005,2,20,10,10,10).end_of_month.should == date_or_time(2005,2,28,23,59,59,Rational(999999999, 1000))
+        date_or_time(2005,4,20,10,10,10).end_of_month.should == date_or_time(2005,4,30,23,59,59,Rational(999999999, 1000))
+      end
+    end
+    
+    describe "end_of_year" do
+      it "should be calculated correctly" do
+        date_or_time(2007,2,22,10,10,10).end_of_year.should == date_or_time(2007,12,31,23,59,59,Rational(999999999, 1000))
+        date_or_time(2007,12,31,10,10,10).end_of_year.should == date_or_time(2007,12,31,23,59,59,Rational(999999999, 1000))
+      end
+    end
+    
+    describe "weekdays" do
+      it "should return monday with default beginning of week" do
+        begin
+          old_bw = Date.beginning_of_week
+          Date.beginning_of_week = :saturday
+        
+          date_or_time(2012,9,18,0,0,0).monday.should == date_or_time(2012,9,17,0,0,0)
+        ensure
+          Date.beginning_of_week = old_bw
+        end
+      end
+      
+      it "should return sunday with default beginning of week" do
+        begin
+          old_bw = Date.beginning_of_week
+          Date.beginning_of_week = :wednesday
+        
+          date_or_time(2012,9,19,0,0,0).sunday.should == date_or_time(2012,9,23,23,59,59, Rational(999999999, 1000))
+        ensure
+          Date.beginning_of_week = old_bw
+        end
+      end
+    end
+  end
+end

data/spec/motion-support/core_ext/enumerable_spec.rb

@@ -0,0 +1,130 @@
+describe "enumerable" do
+  describe "collect_with_index" do
+    describe "on Array" do
+      it "should return an empty array on an empty array" do
+        [].collect_with_index { |x, i| x }.should == []
+      end
+    
+      it "should yield an index for each element" do
+        [1, 2, 3].collect_with_index { |x, i| [i, x] }.should == [[0, 1], [1, 2], [2, 3]]
+      end
+      
+      it "should apply the block to each element" do
+        [1, 2, 3].collect_with_index { |x, i| x * i }.should == [0, 2, 6]
+      end
+    end
+    
+    describe "on Hash" do
+      it "should return an empty array on an empty hash" do
+        {}.collect_with_index { |x, i| x }.should == []
+      end
+      
+      it "should apply the block to each element" do
+        result = {:foo => 1, :bar => 2, :baz => 3}.collect_with_index { |p, i| [p.first, p.last, i] }
+        result.should == [[:foo, 1, 0], [:bar, 2, 1], [:baz, 3, 2]]
+      end
+    end
+  end
+  
+  describe "sum" do
+    it "should return the sum of an integer array" do
+      [5, 15, 10].sum.should == 30
+    end
+    
+    it "should concatenate strings in a string array" do
+      ['foo', 'bar'].sum.should == "foobar"
+    end
+    
+    it "should concatenate arrays" do
+      [[1, 2], [3, 1, 5]].sum.should == [1, 2, 3, 1, 5]
+    end
+    
+    it "should yield a block to each element before summing if given" do
+      [1, 2, 3].sum { |p| p * 2 }.should == 12
+    end
+    
+    it "should allow a custom result for an empty list" do
+      [].sum("empty") { |i| i.amount }.should == "empty"
+    end
+  end
+  
+  describe "index_by" do
+    class Person < Struct.new(:first_name, :last_name)
+    end
+    
+    before do
+      @peter = Person.new('Peter', 'Griffin')
+      @homer = Person.new('Homer', 'Simpson')
+    end
+    
+    it "should create hash with keys given by block result" do
+      [@peter, @homer].index_by { |x| x.first_name }.should == { 'Peter' => @peter, 'Homer' => @homer }
+    end
+    
+    it "should create enumerator if no block is given" do
+      [@peter, @homer].index_by.should.is_a Enumerator
+    end
+  end
+  
+  describe "many?" do
+    it "should return false for an empty enumerable" do
+      [].many?.should == false
+      {}.many?.should == false
+    end
+    
+    it "should return false for an enumerable with only one element" do
+      [1].many?.should == false
+      {:foo => :bar}.many?.should == false
+    end
+    
+    it "should return true for an enumerable with more than one element" do
+      [1, 2].many?.should == true
+      [1, 2, 3].many?.should == true
+      {:foo => :bar, :baz => :bingo}.many?.should == true
+      {:a => :b, :c => :d, :e => :f}.many?.should == true
+    end
+    
+    it "should return false if there are less than two elements satisfying the block if given" do
+      [1].many? { |x| x * 10 > 100 }.should == false
+      [1, 2, 3, 4, 5].many? { |x| x >= 5 }.should == false
+    end
+    
+    it "should return true if there is more than one element satisfying the block if given" do
+      [1, 2, 3, 4, 5].many? { |x| x < 4 }.should == true
+    end
+  end
+  
+  describe "exclude?" do
+    it "should return true if the element is not in the array" do
+      [1, 2, 3].exclude?(4).should == true
+    end
+    
+    it "should return false if the element is in the array" do
+      [1, 2, 3].exclude?(2).should == false
+    end
+    
+    it "should always return true for an empty array" do
+      [].exclude?(rand).should == true
+    end
+  end
+end
+
+describe "Range" do
+  describe "sum" do
+    it "should return the sum of integers in an inclusive range" do
+      (3..5).sum.should == 12
+    end
+    
+    it "should return the sum of integers in an exclusive range" do
+      (3...5).sum.should == 7
+    end
+    
+    it "should return zero for an empty range" do
+      (1...1).sum.should == 0
+    end
+    
+    it "should return custom identity for an empty range if given" do
+      (1...1).sum("empty").should == "empty"
+    end
+  end
+end

data/spec/motion-support/core_ext/hash/deep_delete_if_spec.rb

@@ -0,0 +1,19 @@
+describe "hash" do
+  before do
+    @hash = { :a => 1, :b => [ { :c => 2, :d => 3 }, :b ], :d => { :f => 4 } }
+  end
+
+  describe "deep_delete_if" do
+    it "should delete a top level key recursively" do
+      @hash.deep_delete_if { |k,v| k == :a }.should == { :b => [ { :c => 2, :d => 3 }, :b ], :d => { :f => 4 } }
+    end
+
+    it "should delete a key within an array recursively" do
+      @hash.deep_delete_if { |k,v| v == 2 }.should == { :a => 1, :b => [ { :d => 3 }, :b ], :d => { :f => 4 } }
+    end
+
+    it "should delete a key within a hash recursively" do
+      @hash.deep_delete_if { |k,v| v == 4 }.should == { :a => 1, :b => [ { :c => 2, :d => 3 }, :b ], :d => {} }
+    end
+  end
+end