This repository was archived by the owner on Dec 15, 2023. It is now read-only.
Repository navigation
Expand file tree
/
Copy pathezic_parse_tests.erl
More file actions
76 lines (55 loc) · 2.7 KB
/
Copy pathezic_parse_tests.erl
File metadata and controls
76 lines (55 loc) · 2.7 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<
81D3
div data-line-number="53" class="react-line-number react-code-text" style="padding-right:16px">5354
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
-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"))
].