month.rb 0.11.0 → 0.11.2

data/test/tc_Month_self.method_missing.rb

@@ -0,0 +1,227 @@
+# test/tc_Month_self.method_missing.rb
+
+class TC_Month_self_method_missing < Minitest::Test
+  
+  def test_self_method_missing_for_months
+    assert_equal Month.new(1).month, Month.january.month
+    assert_equal Month.new(1).year, Month.january.year
+    assert_equal Month.new(2).month, Month.february.month
+    assert_equal Month.new(2).year, Month.february.year
+    assert_equal Month.new(3).month, Month.march.month
+    assert_equal Month.new(3).year, Month.march.year
+    assert_equal Month.new(4).month, Month.april.month
+    assert_equal Month.new(4).year, Month.april.year
+    assert_equal Month.new(5).month, Month.may.month
+    assert_equal Month.new(5).year, Month.may.year
+    assert_equal Month.new(6).month, Month.june.month
+    assert_equal Month.new(6).year, Month.june.year
+    assert_equal Month.new(7).month, Month.july.month
+    assert_equal Month.new(7).year, Month.july.year
+    assert_equal Month.new(8).month, Month.august.month
+    assert_equal Month.new(8).year, Month.august.year
+    assert_equal Month.new(9).month, Month.september.month
+    assert_equal Month.new(9).year, Month.september.year
+    assert_equal Month.new(10).month, Month.october.month
+    assert_equal Month.new(10).year, Month.october.year
+    assert_equal Month.new(11).month, Month.november.month
+    assert_equal Month.new(11).year, Month.november.year
+    assert_equal Month.new(12).month, Month.december.month
+    assert_equal Month.new(12).year, Month.december.year
+  end
+  
+  def test_self_method_missing_for_days
+    if Date.today.year == 2011 && Date.today.month == 1
+      assert_equal Month.new(2011, 1).mondays, Month.mondays
+      assert_equal [3, 10, 17, 24, 31], Month.mondays
+      assert_equal Month.new(2011, 1).tuesdays, Month.tuesdays
+      assert_equal [4, 11, 18, 25], Month.tuesdays
+      assert_equal Month.new(2011, 1).wednesdays, Month.wednesdays
+      assert_equal [5, 12, 19, 26], Month.wednesdays
+      assert_equal Month.new(2011, 1).thursdays, Month.thursdays
+      assert_equal [6, 13, 20, 27], Month.thursdays
+      assert_equal Month.new(2011, 1).fridays, Month.fridays
+      assert_equal [7, 14, 21, 28], Month.fridays
+      assert_equal Month.new(2011, 1).saturdays, Month.saturdays
+      assert_equal [1, 8, 15, 22, 29], Month.saturdays
+      assert_equal Month.new(2011, 1).sundays, Month.sundays
+      assert_equal [2, 9, 16, 23, 30], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 2
+      assert_equal Month.new(2011, 2).mondays, Month.mondays
+      assert_equal [7, 14, 21, 28], Month.mondays
+      assert_equal Month.new(2011, 2).tuesdays, Month.tuesdays
+      assert_equal [1, 8, 15, 22], Month.tuesdays
+      assert_equal Month.new(2011, 2).wednesdays, Month.wednesdays
+      assert_equal [2, 9, 16, 23], Month.wednesdays
+      assert_equal Month.new(2011, 2).thursdays, Month.thursdays
+      assert_equal [3, 10, 17, 24], Month.thursdays
+      assert_equal Month.new(2011, 2).fridays, Month.fridays
+      assert_equal [4, 11, 18, 25], Month.fridays
+      assert_equal Month.new(2011, 2).saturdays, Month.saturdays
+      assert_equal [5, 12, 19, 26], Month.saturdays
+      assert_equal Month.new(2011, 2).sundays, Month.sundays
+      assert_equal [6, 13, 20, 27], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 3
+      assert_equal Month.new(2011, 3).mondays, Month.mondays
+      assert_equal [7, 14, 21, 28], Month.mondays
+      assert_equal Month.new(2011, 3).tuesdays, Month.tuesdays
+      assert_equal [1, 8, 15, 22, 29], Month.tuesdays
+      assert_equal Month.new(2011, 3).wednesdays, Month.wednesdays
+      assert_equal [2, 9, 16, 23, 30], Month.wednesdays
+      assert_equal Month.new(2011, 3).thursdays, Month.thursdays
+      assert_equal [3, 10, 17, 24, 31], Month.thursdays
+      assert_equal Month.new(2011, 3).fridays, Month.fridays
+      assert_equal [4, 11, 18, 25], Month.fridays
+      assert_equal Month.new(2011, 3).saturdays, Month.saturdays
+      assert_equal [5, 12, 19, 26], Month.saturdays
+      assert_equal Month.new(2011, 3).sundays, Month.sundays
+      assert_equal [6, 13, 20, 27], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 4
+      assert_equal Month.new(2011, 4).mondays, Month.mondays
+      assert_equal [4, 11, 18, 25], Month.mondays
+      assert_equal Month.new(2011, 4).tuesdays, Month.tuesdays
+      assert_equal [5, 12, 19, 26], Month.tuesdays
+      assert_equal Month.new(2011, 4).wednesdays, Month.wednesdays
+      assert_equal [6, 13, 20, 27], Month.wednesdays
+      assert_equal Month.new(2011, 4).thursdays, Month.thursdays
+      assert_equal [7, 14, 21, 28], Month.thursdays
+      assert_equal Month.new(2011, 4).fridays, Month.fridays
+      assert_equal [1, 8, 15, 22, 29], Month.fridays
+      assert_equal Month.new(2011, 4).saturdays, Month.saturdays
+      assert_equal [2, 9, 16, 23, 30], Month.saturdays
+      assert_equal Month.new(2011, 4).sundays, Month.sundays
+      assert_equal [3, 10, 17, 24], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 5
+      assert_equal Month.new(2011, 5).mondays, Month.mondays
+      assert_equal [2, 9, 16, 23, 30], Month.mondays
+      assert_equal Month.new(2011, 5).tuesdays, Month.tuesdays
+      assert_equal [3, 10, 17, 24, 31], Month.tuesdays
+      assert_equal Month.new(2011, 5).wednesdays, Month.wednesdays
+      assert_equal [4, 11, 18, 25], Month.wednesdays
+      assert_equal Month.new(2011, 5).thursdays, Month.thursdays
+      assert_equal [5, 12, 19, 26], Month.thursdays
+      assert_equal Month.new(2011, 5).fridays, Month.fridays
+      assert_equal [6, 13, 20, 27], Month.fridays
+      assert_equal Month.new(2011, 5).saturdays, Month.saturdays
+      assert_equal [7, 14, 21, 28], Month.saturdays
+      assert_equal Month.new(2011, 5).sundays, Month.sundays
+      assert_equal [1, 8, 15, 22, 29], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 6
+      assert_equal Month.new(2011, 6).mondays, Month.mondays
+      assert_equal [6, 13, 20, 27], Month.mondays
+      assert_equal Month.new(2011, 6).tuesdays, Month.tuesdays
+      assert_equal [7, 14, 21, 28], Month.tuesdays
+      assert_equal Month.new(2011, 6).wednesdays, Month.wednesdays
+      assert_equal [1, 8, 15, 22, 29], Month.wednesdays
+      assert_equal Month.new(2011, 6).thursdays, Month.thursdays
+      assert_equal [2, 9, 16, 23, 30], Month.thursdays
+      assert_equal Month.new(2011, 6).fridays, Month.fridays
+      assert_equal [3, 10, 17, 24], Month.fridays
+      assert_equal Month.new(2011, 6).saturdays, Month.saturdays
+      assert_equal [4, 11, 18, 25], Month.saturdays
+      assert_equal Month.new(2011, 6).sundays, Month.sundays
+      assert_equal [5, 12, 19, 26], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 7
+      assert_equal Month.new(2011, 7).mondays, Month.mondays
+      assert_equal [4, 11, 18, 25], Month.mondays
+      assert_equal Month.new(2011, 7).tuesdays, Month.tuesdays
+      assert_equal [5, 12, 19, 26], Month.tuesdays
+      assert_equal Month.new(2011, 7).wednesdays, Month.wednesdays
+      assert_equal [6, 13, 20, 27], Month.wednesdays
+      assert_equal Month.new(2011, 7).thursdays, Month.thursdays
+      assert_equal [7, 14, 21, 28], Month.thursdays
+      assert_equal Month.new(2011, 7).fridays, Month.fridays
+      assert_equal [1, 8, 15, 22, 29], Month.fridays
+      assert_equal Month.new(2011, 7).saturdays, Month.saturdays
+      assert_equal [2, 9, 16, 23, 30], Month.saturdays
+      assert_equal Month.new(2011, 7).sundays, Month.sundays
+      assert_equal [3, 10, 17, 24, 31], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 8
+      assert_equal Month.new(2011, 8).mondays, Month.mondays
+      assert_equal [1, 8, 15, 22, 29], Month.mondays
+      assert_equal Month.new(2011, 8).tuesdays, Month.tuesdays
+      assert_equal [2, 9, 16, 23, 30], Month.tuesdays
+      assert_equal Month.new(2011, 8).wednesdays, Month.wednesdays
+      assert_equal [3, 10, 17, 24, 31], Month.wednesdays
+      assert_equal Month.new(2011, 8).thursdays, Month.thursdays
+      assert_equal [4, 11, 18, 25], Month.thursdays
+      assert_equal Month.new(2011, 8).fridays, Month.fridays
+      assert_equal [5, 12, 19, 26], Month.fridays
+      assert_equal Month.new(2011, 8).saturdays, Month.saturdays
+      assert_equal [6, 13, 20, 27], Month.saturdays
+      assert_equal Month.new(2011, 8).sundays, Month.sundays
+      assert_equal [7, 14, 21, 28], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 9
+      assert_equal Month.new(2011, 9).mondays, Month.mondays
+      assert_equal [5, 12, 19, 26], Month.mondays
+      assert_equal Month.new(2011, 9).tuesdays, Month.tuesdays
+      assert_equal [6, 13, 20, 27], Month.tuesdays
+      assert_equal Month.new(2011, 9).wednesdays, Month.wednesdays
+      assert_equal [7, 14, 21, 28], Month.wednesdays
+      assert_equal Month.new(2011, 9).thursdays, Month.thursdays
+      assert_equal [1, 8, 15, 22, 29], Month.thursdays
+      assert_equal Month.new(2011, 9).fridays, Month.fridays
+      assert_equal [2, 9, 16, 23, 30], Month.fridays
+      assert_equal Month.new(2011, 9).saturdays, Month.saturdays
+      assert_equal [3, 10, 17, 24], Month.saturdays
+      assert_equal Month.new(2011, 9).sundays, Month.sundays
+      assert_equal [4, 11, 18, 25], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 10
+      assert_equal Month.new(2011, 10).mondays, Month.mondays
+      assert_equal [3, 10, 17, 24, 31], Month.mondays
+      assert_equal Month.new(2011, 10).tuesdays, Month.tuesdays
+      assert_equal [4, 11, 18, 25], Month.tuesdays
+      assert_equal Month.new(2011, 10).wednesdays, Month.wednesdays
+      assert_equal [5, 12, 19, 26], Month.wednesdays
+      assert_equal Month.new(2011, 10).thursdays, Month.thursdays
+      assert_equal [6, 13, 20, 27], Month.thursdays
+      assert_equal Month.new(2011, 10).fridays, Month.fridays
+      assert_equal [7, 14, 21, 28], Month.fridays
+      assert_equal Month.new(2011, 10).saturdays, Month.saturdays
+      assert_equal [1, 8, 15, 22, 29], Month.saturdays
+      assert_equal Month.new(2011, 10).sundays, Month.sundays
+      assert_equal [2, 9, 16, 23, 30], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 11
+      assert_equal Month.new(2011, 11).mondays, Month.mondays
+      assert_equal [7, 14, 21, 28], Month.mondays
+      assert_equal Month.new(2011, 11).tuesdays, Month.tuesdays
+      assert_equal [1, 8, 15, 22, 29], Month.tuesdays
+      assert_equal Month.new(2011, 11).wednesdays, Month.wednesdays
+      assert_equal [2, 9, 16, 23, 30], Month.wednesdays
+      assert_equal Month.new(2011, 11).thursdays, Month.thursdays
+      assert_equal [3, 10, 17, 24], Month.thursdays
+      assert_equal Month.new(2011, 11).fridays, Month.fridays
+      assert_equal [4, 11, 18, 25], Month.fridays
+      assert_equal Month.new(2011, 11).saturdays, Month.saturdays
+      assert_equal [5, 12, 19, 26], Month.saturdays
+      assert_equal Month.new(2011, 11).sundays, Month.sundays
+      assert_equal [6, 13, 20, 27], Month.sundays
+    end
+    if Date.today.year == 2011 && Date.today.month == 12
+      assert_equal Month.new(2011, 12).mondays, Month.mondays
+      assert_equal [5, 12, 19, 26], Month.mondays
+      assert_equal Month.new(2011, 12).tuesdays, Month.tuesdays
+      assert_equal [6, 13, 20, 27], Month.tuesdays
+      assert_equal Month.new(2011, 12).wednesdays, Month.wednesdays
+      assert_equal [7, 14, 21, 28], Month.wednesdays
+      assert_equal Month.new(2011, 12).thursdays, Month.thursdays
+      assert_equal [1, 8, 15, 22, 29], Month.thursdays
+      assert_equal Month.new(2011, 12).fridays, Month.fridays
+      assert_equal [2, 9, 16, 23, 30], Month.fridays
+      assert_equal Month.new(2011, 12).saturdays, Month.saturdays
+      assert_equal [3, 10, 17, 24, 31], Month.saturdays
+      assert_equal Month.new(2011, 12).sundays, Month.sundays
+      assert_equal [4, 11, 18, 25], Month.sundays
+    end
+  end
+  
+end

data/test/tc_Month_self.next.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.next.rb
+
+class TC_Month_self_next < Minitest::Test
+  
+  def test_self_next
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(2).month, Month.next.month
+    when 2; assert_equal Month.new(3).month, Month.next.month
+    when 3; assert_equal Month.new(4).month, Month.next.month
+    when 4; assert_equal Month.new(5).month, Month.next.month
+    when 5; assert_equal Month.new(6).month, Month.next.month
+    when 6; assert_equal Month.new(7).month, Month.next.month
+    when 7; assert_equal Month.new(8).month, Month.next.month
+    when 8; assert_equal Month.new(9).month, Month.next.month
+    when 9; assert_equal Month.new(10).month, Month.next.month
+    when 10; assert_equal Month.new(11).month, Month.next.month
+    when 11; assert_equal Month.new(12).month, Month.next.month
+    when 12; assert_equal Month.new(today.year + 1, 1).month, Month.next.month
+    end
+  end
+  
+end

data/test/tc_Month_self.next_month.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.next_month.rb
+
+class TC_Month_self_next_month < Minitest::Test
+  
+  def test_self_next_month
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(2).month, Month.next_month.month
+    when 2; assert_equal Month.new(3).month, Month.next_month.month
+    when 3; assert_equal Month.new(4).month, Month.next_month.month
+    when 4; assert_equal Month.new(5).month, Month.next_month.month
+    when 5; assert_equal Month.new(6).month, Month.next_month.month
+    when 6; assert_equal Month.new(7).month, Month.next_month.month
+    when 7; assert_equal Month.new(8).month, Month.next_month.month
+    when 8; assert_equal Month.new(9).month, Month.next_month.month
+    when 9; assert_equal Month.new(10).month, Month.next_month.month
+    when 10; assert_equal Month.new(11).month, Month.next_month.month
+    when 11; assert_equal Month.new(12).month, Month.next_month.month
+    when 12; assert_equal Month.new(today.year + 1, 1).month, Month.next_month.month
+    end
+  end
+  
+end

data/test/tc_Month_self.now.rb

@@ -0,0 +1,9 @@
+# test/tc_Month_self.now.rb
+
+class TC_Month_today < Minitest::Test
+    
+  def test_self_now
+    assert_equal Month.new(Date.today.year, Date.today.month), Month.now
+  end
+  
+end

data/test/tc_Month_self.of.rb

@@ -0,0 +1,78 @@
+# test/tc_Month_self.of.rb
+
+if __FILE__ == $0
+  require 'minitest/autorun'
+  $LOAD_PATH.unshift(File.expand_path(File.join(File.dirname(__FILE__), '..', 'lib')))
+  require 'Month/Constants'
+  require 'Month/self.of'
+  require 'Month/_equals'
+end
+
+class TC_Month_self_of < Minitest::Test
+  
+  def test_long_capitalized
+    assert_equal true, Month.of('January') == Month.new(1)
+    assert_equal true, Month.of('February') == Month.new(2)
+    assert_equal true, Month.of('March') == Month.new(3)
+    assert_equal true, Month.of('April') == Month.new(4)
+    assert_equal true, Month.of('May') == Month.new(5)
+    assert_equal true, Month.of('June') == Month.new(6)
+    assert_equal true, Month.of('July') == Month.new(7)
+    assert_equal true, Month.of('August') == Month.new(8)
+    assert_equal true, Month.of('September') == Month.new(9)
+    assert_equal true, Month.of('October') == Month.new(10)
+    assert_equal true, Month.of('November') == Month.new(11)
+    assert_equal true, Month.of('December') == Month.new(12)
+  end
+  
+  def test_long_downcase
+    assert_equal true, Month.of('january') == Month.new(1)
+    assert_equal true, Month.of('february') == Month.new(2)
+    assert_equal true, Month.of('march') == Month.new(3)
+    assert_equal true, Month.of('april') == Month.new(4)
+    assert_equal true, Month.of('may') == Month.new(5)
+    assert_equal true, Month.of('june') == Month.new(6)
+    assert_equal true, Month.of('july') == Month.new(7)
+    assert_equal true, Month.of('august') == Month.new(8)
+    assert_equal true, Month.of('september') == Month.new(9)
+    assert_equal true, Month.of('october') == Month.new(10)
+    assert_equal true, Month.of('november') == Month.new(11)
+    assert_equal true, Month.of('december') == Month.new(12)
+  end
+  
+  def test_short_capitalized
+    assert_equal true, Month.of('Jan') == Month.new(1)
+    assert_equal true, Month.of('Feb') == Month.new(2)
+    assert_equal true, Month.of('Mar') == Month.new(3)
+    assert_equal true, Month.of('Apr') == Month.new(4)
+    assert_equal true, Month.of('May') == Month.new(5)
+    assert_equal true, Month.of('Jun') == Month.new(6)
+    assert_equal true, Month.of('Jul') == Month.new(7)
+    assert_equal true, Month.of('Aug') == Month.new(8)
+    assert_equal true, Month.of('Sep') == Month.new(9)
+    assert_equal true, Month.of('Oct') == Month.new(10)
+    assert_equal true, Month.of('Nov') == Month.new(11)
+    assert_equal true, Month.of('Dec') == Month.new(12)
+  end
+  
+  def test_short_downcase
+    assert_equal true, Month.of('jan') == Month.new(1)
+    assert_equal true, Month.of('feb') == Month.new(2)
+    assert_equal true, Month.of('mar') == Month.new(3)
+    assert_equal true, Month.of('apr') == Month.new(4)
+    assert_equal true, Month.of('may') == Month.new(5)
+    assert_equal true, Month.of('jun') == Month.new(6)
+    assert_equal true, Month.of('jul') == Month.new(7)
+    assert_equal true, Month.of('aug') == Month.new(8)
+    assert_equal true, Month.of('sep') == Month.new(9)
+    assert_equal true, Month.of('oct') == Month.new(10)
+    assert_equal true, Month.of('nov') == Month.new(11)
+    assert_equal true, Month.of('dec') == Month.new(12)
+  end
+  
+  def test_crap
+    assert_nil Month.of('random')
+    assert_nil Month.of(12)
+  end
+  
+end

data/test/tc_Month_self.prev.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.prev.rb
+
+class TC_Month_self_prev < Minitest::Test
+  
+  def test_self_prev
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(today.year - 1, 12).month, Month.prev.month
+    when 2; assert_equal Month.new(1).month, Month.prev.month
+    when 3; assert_equal Month.new(2).month, Month.prev.month
+    when 4; assert_equal Month.new(3).month, Month.prev.month
+    when 5; assert_equal Month.new(4).month, Month.prev.month
+    when 6; assert_equal Month.new(5).month, Month.prev.month
+    when 7; assert_equal Month.new(6).month, Month.prev.month
+    when 8; assert_equal Month.new(7).month, Month.prev.month
+    when 9; assert_equal Month.new(8).month, Month.prev.month
+    when 10; assert_equal Month.new(9).month, Month.prev.month
+    when 11; assert_equal Month.new(10).month, Month.prev.month
+    when 12; assert_equal Month.new(11).month, Month.prev.month
+    end
+  end
+  
+end

data/test/tc_Month_self.prev_month.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.prev_month.rb
+
+class TC_Month_self_prev_month < Minitest::Test
+  
+  def test_self_prev_month
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(today.year - 1, 12).month, Month.prev_month.month
+    when 2; assert_equal Month.new(1).month, Month.prev_month.month
+    when 3; assert_equal Month.new(2).month, Month.prev_month.month
+    when 4; assert_equal Month.new(3).month, Month.prev_month.month
+    when 5; assert_equal Month.new(4).month, Month.prev_month.month
+    when 6; assert_equal Month.new(5).month, Month.prev_month.month
+    when 7; assert_equal Month.new(6).month, Month.prev_month.month
+    when 8; assert_equal Month.new(7).month, Month.prev_month.month
+    when 9; assert_equal Month.new(8).month, Month.prev_month.month
+    when 10; assert_equal Month.new(9).month, Month.prev_month.month
+    when 11; assert_equal Month.new(10).month, Month.prev_month.month
+    when 12; assert_equal Month.new(11).month, Month.prev_month.month
+    end
+  end
+  
+end

data/test/tc_Month_self.previous.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.previous.rb
+
+class TC_Month_self_previous < Minitest::Test
+  
+  def test_self_previous
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(today.year - 1, 12).month, Month.previous.month
+    when 2; assert_equal Month.new(1).month, Month.previous.month
+    when 3; assert_equal Month.new(2).month, Month.previous.month
+    when 4; assert_equal Month.new(3).month, Month.previous.month
+    when 5; assert_equal Month.new(4).month, Month.previous.month
+    when 6; assert_equal Month.new(5).month, Month.previous.month
+    when 7; assert_equal Month.new(6).month, Month.previous.month
+    when 8; assert_equal Month.new(7).month, Month.previous.month
+    when 9; assert_equal Month.new(8).month, Month.previous.month
+    when 10; assert_equal Month.new(9).month, Month.previous.month
+    when 11; assert_equal Month.new(10).month, Month.previous.month
+    when 12; assert_equal Month.new(11).month, Month.previous.month
+    end
+  end
+  
+end

data/test/tc_Month_self.previous_month.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.previous_month.rb
+
+class TC_Month_self_previous_month < Minitest::Test
+  
+  def test_self_previous_month
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(today.year - 1, 12).month, Month.previous_month.month
+    when 2; assert_equal Month.new(1).month, Month.previous_month.month
+    when 3; assert_equal Month.new(2).month, Month.previous_month.month
+    when 4; assert_equal Month.new(3).month, Month.previous_month.month
+    when 5; assert_equal Month.new(4).month, Month.previous_month.month
+    when 6; assert_equal Month.new(5).month, Month.previous_month.month
+    when 7; assert_equal Month.new(6).month, Month.previous_month.month
+    when 8; assert_equal Month.new(7).month, Month.previous_month.month
+    when 9; assert_equal Month.new(8).month, Month.previous_month.month
+    when 10; assert_equal Month.new(9).month, Month.previous_month.month
+    when 11; assert_equal Month.new(10).month, Month.previous_month.month
+    when 12; assert_equal Month.new(11).month, Month.previous_month.month
+    end
+  end
+  
+end

data/test/tc_Month_self.prior.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.prior.rb
+
+class TC_Month_self_prior < Minitest::Test
+  
+  def test_self_prior
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(today.year - 1, 12).month, Month.prior.month
+    when 2; assert_equal Month.new(1).month, Month.prior.month
+    when 3; assert_equal Month.new(2).month, Month.prior.month
+    when 4; assert_equal Month.new(3).month, Month.prior.month
+    when 5; assert_equal Month.new(4).month, Month.prior.month
+    when 6; assert_equal Month.new(5).month, Month.prior.month
+    when 7; assert_equal Month.new(6).month, Month.prior.month
+    when 8; assert_equal Month.new(7).month, Month.prior.month
+    when 9; assert_equal Month.new(8).month, Month.prior.month
+    when 10; assert_equal Month.new(9).month, Month.prior.month
+    when 11; assert_equal Month.new(10).month, Month.prior.month
+    when 12; assert_equal Month.new(11).month, Month.prior.month
+    end
+  end
+  
+end

data/test/tc_Month_self.prior_month.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.prior_month.rb
+
+class TC_Month_self_prior_month < Minitest::Test
+  
+  def test_self_prior_month
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(today.year - 1, 12).month, Month.prior_month.month
+    when 2; assert_equal Month.new(1).month, Month.prior_month.month
+    when 3; assert_equal Month.new(2).month, Month.prior_month.month
+    when 4; assert_equal Month.new(3).month, Month.prior_month.month
+    when 5; assert_equal Month.new(4).month, Month.prior_month.month
+    when 6; assert_equal Month.new(5).month, Month.prior_month.month
+    when 7; assert_equal Month.new(6).month, Month.prior_month.month
+    when 8; assert_equal Month.new(7).month, Month.prior_month.month
+    when 9; assert_equal Month.new(8).month, Month.prior_month.month
+    when 10; assert_equal Month.new(9).month, Month.prior_month.month
+    when 11; assert_equal Month.new(10).month, Month.prior_month.month
+    when 12; assert_equal Month.new(11).month, Month.prior_month.month
+    end
+  end
+  
+end

data/test/tc_Month_self.start.rb

@@ -0,0 +1,21 @@
+# test/tc_Month_self.start.rb
+
+class TC_Month_self_start < Minitest::Test
+  
+  def test_self_start
+    assert_equal Date.new(2006, 1, 1), Month.start(2006, 1)
+    assert_equal Date.new(2006, 2, 1), Month.start(2006, 2)
+    assert_equal Date.new(2008, 2, 1), Month.start(2008, 2)
+    assert_equal Date.new(2006, 3, 1), Month.start(2006, 3)
+    assert_equal Date.new(2006, 4, 1), Month.start(2006, 4)
+    assert_equal Date.new(2006, 5, 1), Month.start(2006, 5)
+    assert_equal Date.new(2006, 6, 1), Month.start(2006, 6)
+    assert_equal Date.new(2006, 7, 1), Month.start(2006, 7)
+    assert_equal Date.new(2006, 8, 1), Month.start(2006, 8)
+    assert_equal Date.new(2006, 9, 1), Month.start(2006, 9)
+    assert_equal Date.new(2006, 10, 1), Month.start(2006, 10)
+    assert_equal Date.new(2006, 11, 1), Month.start(2006, 11)
+    assert_equal Date.new(2006, 12, 1), Month.start(2006, 12)
+  end
+  
+end

data/test/tc_Month_self.start_date.rb

@@ -0,0 +1,21 @@
+# test/tc_Month_self.start_date.rb
+
+class TC_Month_self_start_date < Minitest::Test
+  
+  def test_self_start_date
+    assert_equal Date.new(2006, 1, 1), Month.start_date(2006, 1)
+    assert_equal Date.new(2006, 2, 1), Month.start_date(2006, 2)
+    assert_equal Date.new(2008, 2, 1), Month.start_date(2008, 2)
+    assert_equal Date.new(2006, 3, 1), Month.start_date(2006, 3)
+    assert_equal Date.new(2006, 4, 1), Month.start_date(2006, 4)
+    assert_equal Date.new(2006, 5, 1), Month.start_date(2006, 5)
+    assert_equal Date.new(2006, 6, 1), Month.start_date(2006, 6)
+    assert_equal Date.new(2006, 7, 1), Month.start_date(2006, 7)
+    assert_equal Date.new(2006, 8, 1), Month.start_date(2006, 8)
+    assert_equal Date.new(2006, 9, 1), Month.start_date(2006, 9)
+    assert_equal Date.new(2006, 10, 1), Month.start_date(2006, 10)
+    assert_equal Date.new(2006, 11, 1), Month.start_date(2006, 11)
+    assert_equal Date.new(2006, 12, 1), Month.start_date(2006, 12)
+  end
+  
+end

data/test/tc_Month_self.start_of_month.rb

@@ -0,0 +1,21 @@
+# test/tc_Month_self.start_of_month.rb
+
+class TC_Month_self_start_of_month < Minitest::Test
+  
+  def test_self_start_of_month
+    assert_equal Date.new(2006, 1, 1), Month.start_of_month(2006, 1)
+    assert_equal Date.new(2006, 2, 1), Month.start_of_month(2006, 2)
+    assert_equal Date.new(2008, 2, 1), Month.start_of_month(2008, 2)
+    assert_equal Date.new(2006, 3, 1), Month.start_of_month(2006, 3)
+    assert_equal Date.new(2006, 4, 1), Month.start_of_month(2006, 4)
+    assert_equal Date.new(2006, 5, 1), Month.start_of_month(2006, 5)
+    assert_equal Date.new(2006, 6, 1), Month.start_of_month(2006, 6)
+    assert_equal Date.new(2006, 7, 1), Month.start_of_month(2006, 7)
+    assert_equal Date.new(2006, 8, 1), Month.start_of_month(2006, 8)
+    assert_equal Date.new(2006, 9, 1), Month.start_of_month(2006, 9)
+    assert_equal Date.new(2006, 10, 1), Month.start_of_month(2006, 10)
+    assert_equal Date.new(2006, 11, 1), Month.start_of_month(2006, 11)
+    assert_equal Date.new(2006, 12, 1), Month.start_of_month(2006, 12)
+  end
+  
+end

data/test/tc_Month_self.start_of_the_month.rb

@@ -0,0 +1,21 @@
+# test/tc_Month_self.start_of_the_month.rb
+
+class TC_Month_self_start_of_the_month < Minitest::Test
+  
+  def test_self_start_of_the_month
+    assert_equal Date.new(2006, 1, 1), Month.start_of_the_month(2006, 1)
+    assert_equal Date.new(2006, 2, 1), Month.start_of_the_month(2006, 2)
+    assert_equal Date.new(2008, 2, 1), Month.start_of_the_month(2008, 2)
+    assert_equal Date.new(2006, 3, 1), Month.start_of_the_month(2006, 3)
+    assert_equal Date.new(2006, 4, 1), Month.start_of_the_month(2006, 4)
+    assert_equal Date.new(2006, 5, 1), Month.start_of_the_month(2006, 5)
+    assert_equal Date.new(2006, 6, 1), Month.start_of_the_month(2006, 6)
+    assert_equal Date.new(2006, 7, 1), Month.start_of_the_month(2006, 7)
+    assert_equal Date.new(2006, 8, 1), Month.start_of_the_month(2006, 8)
+    assert_equal Date.new(2006, 9, 1), Month.start_of_the_month(2006, 9)
+    assert_equal Date.new(2006, 10, 1), Month.start_of_the_month(2006, 10)
+    assert_equal Date.new(2006, 11, 1), Month.start_of_the_month(2006, 11)
+    assert_equal Date.new(2006, 12, 1), Month.start_of_the_month(2006, 12)
+  end
+  
+end

data/test/tc_Month_self.succ.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.succ.rb
+
+class TC_Month_self_succ < Minitest::Test
+  
+  def test_self_succ
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(2).month, Month.succ.month
+    when 2; assert_equal Month.new(3).month, Month.succ.month
+    when 3; assert_equal Month.new(4).month, Month.succ.month
+    when 4; assert_equal Month.new(5).month, Month.succ.month
+    when 5; assert_equal Month.new(6).month, Month.succ.month
+    when 6; assert_equal Month.new(7).month, Month.succ.month
+    when 7; assert_equal Month.new(8).month, Month.succ.month
+    when 8; assert_equal Month.new(9).month, Month.succ.month
+    when 9; assert_equal Month.new(10).month, Month.succ.month
+    when 10; assert_equal Month.new(11).month, Month.succ.month
+    when 11; assert_equal Month.new(12).month, Month.succ.month
+    when 12; assert_equal Month.new(today.year + 1, 1).month, Month.succ.month
+    end
+  end
+  
+end

data/test/tc_Month_self.succ_month.rb

@@ -0,0 +1,23 @@
+# test/tc_Month_self.succ_month.rb
+
+class TC_Month_self_succ_month < Minitest::Test
+  
+  def test_self_succ_month
+    today = Date.today
+    case today.month
+    when 1; assert_equal Month.new(2).month, Month.succ_month.month
+    when 2; assert_equal Month.new(3).month, Month.succ_month.month
+    when 3; assert_equal Month.new(4).month, Month.succ_month.month
+    when 4; assert_equal Month.new(5).month, Month.succ_month.month
+    when 5; assert_equal Month.new(6).month, Month.succ_month.month
+    when 6; assert_equal Month.new(7).month, Month.succ_month.month
+    when 7; assert_equal Month.new(8).month, Month.succ_month.month
+    when 8; assert_equal Month.new(9).month, Month.succ_month.month
+    when 9; assert_equal Month.new(10).month, Month.succ_month.month
+    when 10; assert_equal Month.new(11).month, Month.succ_month.month
+    when 11; assert_equal Month.new(12).month, Month.succ_month.month
+    when 12; assert_equal Month.new(today.year + 1, 1).month, Month.succ_month.month
+    end
+  end
+  
+end