77 lines
2.7 KiB
Erlang
77 lines
2.7 KiB
Erlang
-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"))
|
|
].
|
|
|
|
|
|
|