separated out rule and date logic. WIP: flattening the data, absolute from fuzzy dates, comparing dates

2010-11-03 23:33:06 -07:00
parent 188f31d543
commit e9d247784e
13 changed files with 401 additions and 61 deletions
--- a/test/ezic_date_tests.erl
+++ b/test/ezic_date_tests.erl
@@ -0,0 +1,35 @@
+-module(ezic_date_tests).
+-include("include/ezic.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+prevnext_day_test_() ->
+    [
+     ?_assertEqual({2010,11,3}, ezic_date:previous_day("Wed", {2010, 11, 5}))
+     , ?_assertEqual({2010,11,10}, ezic_date:next_day("Wed", {2010, 11, 5}))
+
+     , ?_assertEqual({2010,11,5}, ezic_date:previous_day("Fri", {2010, 11, 5}))
+     , ?_assertEqual({2010,11,5}, ezic_date:next_day("Fri", {2010, 11, 5}))
+
+     , ?_assertEqual({2010,11,5}, ezic_date:previous_day("Fri", {2010, 11, 10}))
+     , ?_assertEqual({2010,11,12}, ezic_date:next_day("Fri", {2010, 11, 10}))
+
+     , ?_assertError(no_previous_day, ezic_date:previous_day("Wed", {2010, 11, 2}))
+     , ?_assertError(no_next_day, ezic_date:next_day("Wed", {2010, 11, 25}))
+    ].
+
+firstlast_day_of_test_() ->
+    [
+     ?_assertEqual({2010,11,24}, ezic_date:last_day_of("Wed", 2010, 11))
+     , ?_assertEqual({2010,11,30}, ezic_date:last_day_of("Tue", 2010, 11))
+
+     , ?_assertEqual({2010,11,14}, ezic_date:first_day_limited("Sun", {geq, 8}, 2010, 11))
+     , ?_assertEqual({2010,11,21}, ezic_date:first_day_limited("Sun", {leq, 25}, 2010, 11))
+    ].
+
+
+compare_datetimes_test_() ->
+    [
+     ?_assertEqual(false, ezic_date:compare_datetimes(
+		       {{1997,3,lastSun},{tztime,{1,0,0},u}}
+		       , {1997,1,1} ))
+    ].
--- a/test/ezic_record_tests.erl
+++ b/test/ezic_record_tests.erl
@@ -0,0 +1,90 @@
+-module(ezic_record_tests).
+-include("include/ezic.hrl").
+-include_lib("eunit/include/eunit.hrl").
+
+
+parse_fromto_test_() ->
+    [
+     ?_assertEqual(minimum, ezic_record:parse_from("minimum"))
+     , ?_assertEqual(minimum, ezic_record:parse_to("minimum"))
+
+     , ?_assertEqual(maximum, ezic_record:parse_from("maximum"))
+     , ?_assertEqual(maximum, ezic_record:parse_to("maximum"))
+
+     , ?_assertError(badarg, ezic_record:parse_from("only"))
+     , ?_assertEqual(only, ezic_record:parse_to("only"))
+
+     , ?_assertEqual(1978, ezic_record:parse_from("1978"))
+     , ?_assertEqual(1978, ezic_record:parse_to("1978"))
+
+     , ?_assertError(badarg, ezic_record:parse_from("asdf"))
+     , ?_assertError(badarg, ezic_record:parse_to("asdf"))
+    ].
+
+
+parse_time_test_() ->
+    [
+     ?_assertEqual(#tztime{time={0,0,0}}, ezic_record:parse_time("-"))
+     , ?_assertEqual(#tztime{time={2,0,0}}, ezic_record:parse_time("2:00"))
+     , ?_assertEqual(#tztime{time={15,0,0}}, ezic_record:parse_time("15:00"))
+     , ?_assertEqual(#tztime{time={1,28,14}}, ezic_record:parse_time("1:28:14"))
+     , ?_assertEqual(#tztime{time={1,28,14}, flag=u}, ezic_record:parse_time("1:28:14u"))
+     , ?_assertEqual(#tztime{time={1,28,14}, flag=w}, ezic_record:parse_time("1:28:14w"))
+     , ?_assertEqual(#tztime{time={1,28,14}, flag=s}, ezic_record:parse_time("1:28:14s"))
+
+     , ?_assertError(badtime, ezic_record:parse_time("1:28:14wtf?"))
+     , ?_assertError(badtime, ezic_record:parse_time("1:28:14:00"))
+    ].
+
+
+parse_at_test_() ->
+    [
+     ?_assertEqual(#tztime{time={0,0,0}}, ezic_record:parse_at("-"))
+     , ?_assertEqual(#tztime{time={2,0,0}}, ezic_record:parse_at("2:00"))
+     , ?_assertEqual(#tztime{time={15,0,0}}, ezic_record:parse_at("15:00"))
+     , ?_assertEqual(#tztime{time={1,28,14}}, ezic_record:parse_at("1:28:14"))
+     , ?_assertEqual(#tztime{time={1,28,14}, flag=u}, ezic_record:parse_at("1:28:14u"))
+     , ?_assertEqual(#tztime{time={1,28,14}, flag=w}, ezic_record:parse_at("1:28:14w"))
+     , ?_assertEqual(#tztime{time={1,28,14}, flag=s}, ezic_record:parse_at("1:28:14s"))
+     , ?_assertError(badtime, ezic_record:parse_at("1:28:14wtf?"))
+    ].
+
+
+parse_save_test_() ->
+    [
+     ?_assertEqual(#tztime{time={0,0,0}}, ezic_record:parse_save("-"))
+     , ?_assertEqual(#tztime{time={2,0,0}}, ezic_record:parse_save("2:00"))
+     , ?_assertEqual(#tztime{time={15,0,0}}, ezic_record:parse_save("15:00"))
+     , ?_assertEqual(#tztime{time={1,28,14}}, ezic_record:parse_save("1:28:14"))
+     , ?_assertError(badsave, ezic_record:parse_save("1:28:14u"))
+     , ?_assertError(badsave, ezic_record:parse_save("1:28:14w"))
+     , ?_assertError(badsave, ezic_record:parse_save("1:28:14s"))
+     , ?_assertError(badsave, ezic_record:parse_save("1:28:14wtf?"))
+    ].
+
+
+
+
+
+parse_on_test_() ->
+    [
+     ?_assertEqual(5, ezic_record:parse_on("5"))
+
+     , ?_assertEqual({last, "Sun"}, ezic_record:parse_on("lastSun"))
+     , ?_assertEqual({last, "Mon"}, ezic_record:parse_on("lastMon"))
+     , ?_assertError(badday, ezic_record:parse_on("lastFoo"))
+
+     , ?_assertEqual(#tzon{day="Sun", filter={geq, 8}}, ezic_record:parse_on("Sun>=8"))
+     , ?_assertEqual(#tzon{day="Sun", filter={leq, 25}}, ezic_record:parse_on("Sun<=25"))
+     , ?_assertError(badday, ezic_record:parse_on("Foo<=25"))
+    ].
+
+
+convert_format_test_() ->
+    [
+     ?_assertEqual("POS", ezic_record:convert_format("POS"))
+     , ?_assertEqual("P~sS", ezic_record:convert_format("P%sS"))
+    ].
+
+
+
--- a/test/test.erl
+++ b/test/test.erl
@@ -0,0 +1,7 @@
+-module(test).
+-export([all/0]).
+-include_lib("eunit/include/eunit.hrl").
+
+all() ->
+    eunit:test(ezic_record),
+    eunit:test(ezic_date).