texp 0.0.3

data/test/texp/hash_test.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'date'
+require 'texp'
+
+######################################################################
+# TODO: This test is incomplete.
+#
+class ToHashTest < Test::Unit::TestCase
+  def test_to_hash
+    assert_hash '2008-02-14,2i', 'type' => 'i', 'i1' => '2008-02-14', 'i2' => '2'
+    assert_hash '[0,2]w', 'type' => 'w', 'w1' => ['0', '2']
+    assert_hash '[1,15]d', 'type' => 'd', 'd1' => ['1', '15']
+    assert_hash '[1,2,-1]k', 'type' => 'k', 'k1' => ['1', '2', '-1']
+    assert_hash '[1,3]m', 'type' => 'm', 'm1' => ['1', '3']
+    assert_hash '[2008,2010]y', 'type' => 'y', 'y1' => ['2008', '2010']
+    assert_hash 'e', 'type' => 'e'
+  end
+
+  def assert_hash(texp, hash)
+    assert_equal hash, TExp.parse(texp).to_hash, "should match for '#{texp}'"
+#    assert_equal texp, TExp.from_params('1' => hash).to_s
+  end
+end
+

data/test/texp/inspect_test.rb

@@ -0,0 +1,65 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'date'
+require 'texp'
+require 'flexmock/test_unit'
+
+######################################################################
+class InspectTest < Test::Unit::TestCase
+  def test_inspect
+    assert_inspect "e", "every day"
+
+    assert_inspect "0w", "the day of the week is Sunday"
+    assert_inspect "[0,1]w", "the day of the week is Sunday or Monday"
+    assert_inspect "[0,1,4,2,3,6,5]w",
+      "the day of the week is Sunday, Monday, Tuesday, Wednesday, Thursday, Friday or Saturday"
+
+    assert_inspect "1d", "the day of the month is the 1st"
+    assert_inspect "2d", "the day of the month is the 2nd"
+    assert_inspect "3d", "the day of the month is the 3rd"
+    assert_inspect "4d", "the day of the month is the 4th"
+    assert_inspect "5d", "the day of the month is the 5th"
+    assert_inspect "10d", "the day of the month is the 10th"
+    assert_inspect "11d", "the day of the month is the 11th"
+    assert_inspect "12d", "the day of the month is the 12th"
+    assert_inspect "13d", "the day of the month is the 13th"
+    assert_inspect "14d", "the day of the month is the 14th"
+    assert_inspect "15d", "the day of the month is the 15th"
+    assert_inspect "16d", "the day of the month is the 16th"
+    assert_inspect "17d", "the day of the month is the 17th"
+    assert_inspect "18d", "the day of the month is the 18th"
+    assert_inspect "19d", "the day of the month is the 19th"
+    assert_inspect "20d", "the day of the month is the 20th"
+    assert_inspect "[1,10,15]d", "the day of the month is the 1st, 10th or 15th"
+
+    assert_inspect "2008-02-15,3i", "every 3rd day starting on February 15, 2008"
+    assert_inspect "2008-02-15,1i", "every day starting on February 15, 2008"
+
+    assert_inspect "1k", "it is the 1st week of the month"
+    assert_inspect "[1,3]k", "it is the 1st or 3rd week of the month"
+    assert_inspect "[1,2,-1]k", "it is the 1st, 2nd or last week of the month"
+    assert_inspect "[-5,-4,-3,-2,-1]k",
+      "it is the 5th from the last, 4th from the last, 3rd from the last, next to the last or last week of the month"
+
+    assert_inspect "2008y", "the year is 2008"
+
+    assert_inspect "1m", "the month is January"
+    assert_inspect "[1,2,4]m", "the month is January, February or April"
+
+    assert_inspect "[1d1m]a",
+      "the day of the month is the 1st and the month is January"
+    assert_inspect "[1d1m]o",
+      "the day of the month is the 1st or the month is January"
+
+    assert_inspect "[1d1m]on",
+      "it is not the case that the day of the month is the 1st or the month is January"
+
+    assert_inspect "3w2,1s",
+      "the day of the week is Wednesday, or up to 2 days prior, or up to 1 day after"
+  end
+
+  def assert_inspect(texp, string)
+    assert_equal string, TExp.parse(texp).inspect
+  end
+end

data/test/texp/logic_test.rb

@@ -0,0 +1,51 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'date'
+require 'texp'
+
+class LogicTest < Test::Unit::TestCase
+
+  DATE = Date.parse("Feb 14, 2008")
+  LEFT = TExp::DayInterval.new(DATE, 2)
+  RIGHT = TExp::DayInterval.new(DATE, 3)
+  TT = DATE
+  TF = DATE+2
+  FT = DATE+3
+  FF = DATE+1
+
+  def test_constants
+    assert LEFT.include?(TT)
+    assert LEFT.include?(TF)
+    assert ! LEFT.include?(FT)
+    assert ! LEFT.include?(FF)
+    assert RIGHT.include?(TT)
+    assert RIGHT.include?(FT)
+    assert ! RIGHT.include?(TF)
+    assert ! RIGHT.include?(FF)
+  end
+
+  def test_and
+    te = TExp::And.new(LEFT, RIGHT, LEFT, RIGHT)
+    assert te.include?(TT)
+    assert ! te.include?(FT)
+    assert ! te.include?(TF)
+    assert ! te.include?(FF)
+  end
+
+  def test_or
+    te = TExp::Or.new(LEFT, RIGHT, LEFT, RIGHT)
+    assert te.include?(TT)
+    assert te.include?(FT)
+    assert te.include?(TF)
+    assert ! te.include?(FF)
+  end
+
+  def test_not
+    te = TExp::Not.new(LEFT)
+    assert ! te.include?(TT)
+    assert te.include?(FF)
+  end
+
+end
+

data/test/texp/month_test.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'date'
+require 'texp'
+
+class MonthTest < Test::Unit::TestCase
+
+  def setup
+    @date = Date.parse("Feb 14, 2008")
+  end
+
+  def test_initial_conditions
+    te = TExp::Month.new(2)
+    assert te.include?(@date)
+    assert te.include?(@date + 1)
+    assert ! te.include?(@date + 30)
+  end
+end
+

data/test/texp/parse_test.rb

@@ -0,0 +1,233 @@
+#!/usr/bin/env ruby
+
+require 'test/unit'
+require 'date'
+require 'texp'
+require 'flexmock/test_unit'
+
+######################################################################
+class TExpParseLexicalTest < Test::Unit::TestCase
+  def setup
+    @tokens = []
+    flexmock(TExp).should_receive(:compile).with(any).
+      and_return { |tok| @tokens << tok }
+  end
+
+  def test_letters
+    assert_lex "abc", 'a', 'b', 'c'
+  end
+
+  def test_numbers
+    assert_lex "1,23,4", '1', '23', '4'
+  end
+
+  def test_positive_numbers
+    assert_lex "+1,23,+4", '+1', '23', '+4'
+  end
+
+  def test_negative_numbers
+    assert_lex "-1,23,-4", '-1', '23', '-4'
+  end
+
+  def test_punctuation
+    assert_lex "[@]()|&", '[', '@', ']', '(', ')', '|', '&'
+  end
+
+  def test_dates
+    assert_lex "2008-02-14", "2008-02-14"
+  end
+
+  def test_bad_dates
+    assert_lex "2008-2-14", "2008", "-2", "-14"
+  end
+
+  def test_extension_tokens
+    assert_lex "<hi>", "<hi>"
+  end
+
+  EXPECTED = [
+    '[', '[', '2008', 'y', '2', 'm', '14', 'd', ']', 'a', '12', 'm',
+    '[', '1', '15', ']', 'd', '2008-02-14', '3', 'i', ']', 'o'
+  ]
+  
+  def test_mixed
+    assert_lex "[[2008y2m14d]a12m[1,15]d2008-02-14,3i]o", *EXPECTED
+  end
+
+  def test_mixed_with_spaces
+    assert_lex "[[2008y 2m 14d]a 12m [1,15]d 2008-02-14,3i ]o", *EXPECTED
+  end
+
+  private
+
+  def assert_lex(string, *tokens)
+    TExp.parse(string)
+    assert_equal tokens, @tokens
+  end
+end
+
+
+######################################################################
+class ParseTest < Test::Unit::TestCase
+  def setup
+    @date = Date.parse("Feb 14, 2008")
+  end
+
+  def test_bad_parse_string
+    assert_raise TExp::ParseError do
+      TExp.parse("(1,2)d")
+    end
+  end
+
+  def test_unbalanced_list
+    assert_raise TExp::ParseError do
+      TExp.parse("[1")
+    end
+  end
+
+  def test_unbalanced_list2
+    assert_raise TExp::ParseError do
+      TExp.parse("1]")
+    end
+  end
+
+  def test_parse_date
+    assert_equal Date.parse("Feb 14, 2008"), TExp.parse("2008-02-14")
+  end
+
+  def test_parse_interval
+    te = TExp.parse("2008-02-14,2i")
+    assert te.include?(@date)
+    assert ! te.include?(@date+1)
+    assert te.include?(@date+2)
+  end
+
+  def test_parse_day_of_month
+    te = TExp.parse("14d")
+    te.include?(@date)
+  end
+
+  def test_parse_list
+    te = TExp.parse("[1,2,3]")
+    assert_equal [1,2,3], te
+  end
+
+  def test_parse_day_of_month_with_multiple_args
+    te = TExp.parse("[13,14]d")
+    assert te.include?(@date)
+    assert te.include?(@date-1)
+    assert ! te.include?(@date+2)
+  end
+
+  def test_parse_day_of_week_with_single_arg
+    te = TExp.parse("4w")
+    assert te.include?(@date)
+    assert ! te.include?(@date+2)
+  end
+
+  def test_parse_day_of_week_with_multiple_args
+    te = TExp.parse("[3,4]w")
+    assert te.include?(@date)
+    assert te.include?(@date-1)
+    assert ! te.include?(@date+2)
+  end
+
+  def test_parse_month_with_single_arg
+    te = TExp.parse("2m")
+    assert te.include?(@date)
+    assert ! te.include?(@date + 30)
+  end
+
+  def test_parse_month_with_multiple_args
+    te = TExp.parse("[2,3]m")
+    assert te.include?(@date)
+    assert te.include?(@date + 30)
+    assert ! te.include?(@date + 60)
+  end
+
+  def test_parse_year_with_single_arg
+    te = TExp.parse("2008y")
+    assert te.include?(@date)
+    assert ! te.include?(@date + 365)
+  end
+
+  def test_parse_year_with_multiple_args
+    te = TExp.parse("[2007,2008]y")
+    assert te.include?(@date)
+    assert te.include?(@date - 365)
+    assert ! te.include?(@date + 365)
+  end
+
+  def test_parse_window
+    te = TExp.parse("3w2,1s")
+    assert ! te.include?(Date.parse("Mar 2, 2008"))
+    assert   te.include?(Date.parse("Mar 3, 2008"))
+    assert   te.include?(Date.parse("Mar 4, 2008"))
+    assert   te.include?(Date.parse("Mar 5, 2008"))
+    assert   te.include?(Date.parse("Mar 6, 2008"))
+    assert ! te.include?(Date.parse("Mar 7, 2008"))
+  end
+
+  def test_parse_not
+    te = TExp.parse("14dn")
+    assert ! te.include?(@date)
+    assert te.include?(@date + 1)
+  end
+
+  def test_parse_and
+    TExp.parse("14d").include?(@date)
+    TExp.parse("2m").include?(@date)
+    te = TExp.parse("[14d 2m] a")
+    assert te.include?(@date)
+    assert ! te.include?(@date + 1)
+    assert ! te.include?(@date + 365)
+  end
+
+  def test_parse_or
+    te = TExp.parse("[14d 15d] o")
+    assert te.include?(@date)
+    assert te.include?(@date + 1)
+    assert ! te.include?(@date + 2)
+  end
+
+  def test_parse_every_day
+    te = TExp.parse('e')
+    assert te.include?(Date.today)
+  end
+end
+
+######################################################################
+class ParseReverseTest < Test::Unit::TestCase
+  def setup
+    @date = Date.parse("Feb 14, 2008")
+  end
+
+  def test_round_trip
+    assert_round_trip("2008-02-14,2i")
+    assert_round_trip("14d")
+    assert_round_trip("[13,14]d")
+    assert_round_trip("[3,4]w")
+    assert_round_trip("2m")
+    assert_round_trip("[2,3]m")
+    assert_round_trip("2008y")
+    assert_round_trip("[2007,2008]y")
+    assert_round_trip("14dn")
+    assert_round_trip("[14d2m]a")
+    assert_round_trip("[14d15d]o")
+    assert_round_trip("14do")
+    assert_round_trip("[]o")
+    assert_round_trip("e")
+    assert_round_trip("1k")
+    assert_round_trip("[1,2]k")
+    assert_round_trip("[1,2,-1]k")
+    assert_round_trip("3w2,1s")
+  end
+
+  private
+
+  def assert_round_trip(string)
+    te = TExp.parse(string)
+    assert_equal string, te.to_s
+  end
+end
+

data/test/texp/week_test.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+
+require 'date'
+require 'test/unit'
+require 'texp'
+
+class WeekTest < Test::Unit::TestCase
+
+  def test_week_include_with_one_week
+    te = TExp::Week.new([1])
+    assert te.include?(Date.parse("Feb 1, 2008"))
+    assert te.include?(Date.parse("Feb 2, 2008"))
+    assert te.include?(Date.parse("Feb 3, 2008"))
+    assert te.include?(Date.parse("Feb 5, 2008"))
+    assert te.include?(Date.parse("Feb 6, 2008"))
+    assert te.include?(Date.parse("Feb 7, 2008"))
+    assert ! te.include?(Date.parse("Feb 8, 2008"))
+  end
+
+  def test_week_include_with_several_weeks
+    te = TExp::Week.new([2,4])
+    assert ! te.include?(Date.parse("Feb 1, 2008"))
+    assert ! te.include?(Date.parse("Feb 7, 2008"))
+    assert   te.include?(Date.parse("Feb 8, 2008"))
+    assert   te.include?(Date.parse("Feb 14, 2008"))
+    assert ! te.include?(Date.parse("Feb 15, 2008"))
+    assert ! te.include?(Date.parse("Feb 21, 2008"))
+    assert   te.include?(Date.parse("Feb 22, 2008"))
+    assert   te.include?(Date.parse("Feb 28, 2008"))
+  end
+
+  def test_week_with_last_week_of_month
+    te = TExp::Week.new([-1])
+    assert !  te.include?(Date.parse("Feb 1, 2008"))
+    assert !  te.include?(Date.parse("Feb 22, 2008"))
+    assert   te.include?(Date.parse("Feb 23, 2008"))
+    assert   te.include?(Date.parse("Feb 29, 2008"))
+  end
+
+  # Test some private methods
+
+  def test_week_from_back
+    te = TExp::Week.new([1])
+    assert_equal -1, te.send(:week_from_back, Date.parse("Mar 31, 2008"))
+    assert_equal -1, te.send(:week_from_back, Date.parse("Mar 25, 2008"))
+    assert_equal -2, te.send(:week_from_back, Date.parse("Mar 24, 2008"))
+  end
+
+  def test_last_day_of_month
+    te = TExp::Week.new([1])
+    assert_equal 31, te.send(:last_day_of_month, Date.parse("Jan 21, 2008"))
+    assert_equal 29, te.send(:last_day_of_month, Date.parse("Feb 21, 2008"))
+    assert_equal 28, te.send(:last_day_of_month, Date.parse("Feb 21, 2007"))
+    assert_equal 30, te.send(:last_day_of_month, Date.parse("Nov 1, 2007"))
+    assert_equal 31, te.send(:last_day_of_month, Date.parse("Dec 1, 2007"))
+  end
+end
+