forks/ezic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lots of gutting. purposes, input, and output were unclear in many places. still broken.

Browse Source
This commit is contained in:
aj
2010-11-08 01:29:15 -08:00
parent 9ad8f3c826
commit d00937c3e9
13 changed files with 828 additions and 552 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
test/ezic_parse_tests.erl Normal file
View File

@@ -0,0 +1,76 @@
-module(ezic_parse_tests).
-include("include/ezic.hrl").
-include_lib("eunit/include/eunit.hrl").
year_test_() ->
[
?_assertEqual(minimum, ezic_parse:year("minimum"))
, ?_assertEqual(maximum, ezic_parse:year("maximum"))
, ?_assertEqual(only, ezic_parse:year("only"))
, ?_assertEqual(1978, ezic_parse:year("1978"))
, ?_assertError(badarg, ezic_parse:year("asdf"))
].
time_test_() ->
[
?_assertEqual(#tztime{time={0,0,0}}, ezic_parse:time("-"))
, ?_assertEqual(#tztime{time={2,0,0}}, ezic_parse:time("2:00"))
, ?_assertEqual(#tztime{time={15,0,0}}, ezic_parse:time("15:00"))
, ?_assertEqual(#tztime{time={1,28,14}}, ezic_parse:time("1:28:14"))
, ?_assertEqual(#tztime{time={1,28,14}, flag=w}, ezic_parse:time("1:28:14w"))
, ?_assertEqual(#tztime{time={1,28,14}, flag=s}, ezic_parse:time("1:28:14s"))
, ?_assertEqual(#tztime{time={1,28,14}, flag=u}, ezic_parse:time("1:28:14u"))
, ?_assertEqual(#tztime{time={1,28,14}, flag=u}, ezic_parse:time("1:28:14g"))
, ?_assertEqual(#tztime{time={1,28,14}, flag=u}, ezic_parse:time("1:28:14z"))
, ?_assertError(badtime, ezic_parse:time("1:28:14wtf?"))
, ?_assertError(badtime, ezic_parse:time("1:28:14:00"))
].
time_val_test_() ->
[
?_assertEqual({0,0,0}, ezic_parse:time_val("-"))
, ?_assertEqual({2,0,0}, ezic_parse:time_val("2:00"))
, ?_assertEqual({15,0,0}, ezic_parse:time_val("15:00"))
, ?_assertEqual({1,28,14}, ezic_parse:time_val("1:28:14"))
, ?_assertEqual({1,28,14}, ezic_parse:time_val("1:28:14w"))
, ?_assertEqual({1,28,14}, ezic_parse:time_val("1:28:14s"))
, ?_assertEqual({1,28,14}, ezic_parse:time_val("1:28:14u"))
, ?_assertEqual({1,28,14}, ezic_parse:time_val("1:28:14g"))
, ?_assertEqual({1,28,14}, ezic_parse:time_val("1:28:14z"))
, ?_assertError(badtime, ezic_parse:time_val("1:28:14wtf?"))
, ?_assertError(badtime, ezic_parse:time_val("1:28:14:00"))
].
day_pattern_test_() ->
[
?_assertEqual(5, ezic_parse:day_pattern("5"))
, ?_assertEqual({last, "Sun"}, ezic_parse:day_pattern("lastSun"))
, ?_assertEqual({last, "Mon"}, ezic_parse:day_pattern("lastMon"))
, ?_assertError(badday, ezic_parse:day_pattern("lastFoo"))
, ?_assertEqual(#tzon{day="Sun", filter={geq, 8}}, ezic_parse:day_pattern("Sun>=8"))
, ?_assertEqual(#tzon{day="Sun", filter={leq, 25}}, ezic_parse:day_pattern("Sun<=25"))
, ?_assertError(badday, ezic_parse:day_pattern("Foo<=25"))
].
tz_abbr_test_() ->
[
?_assertEqual("POS", ezic_parse:tz_abbr("POS"))
, ?_assertEqual("P~sS", ezic_parse:tz_abbr("P%sS"))
, ?_assertEqual("PS~s", ezic_parse:tz_abbr("PS%s"))
].