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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
-module(rebar_utils_SUITE).
-export([all/0,
groups/0,
init_per_group/2,
end_per_group/2,
empty_arglist/1,
single_task/1,
single_task_with_immediate_comma/1,
single_task_with_trailing_comma/1,
multiple_task/1,
multiple_task_no_spaces/1,
multiple_task_with_immediate_comma/1,
multiple_task_with_trailing_comma/1,
task_with_arg/1,
task_with_arg_with_immediate_comma/1,
task_with_arg_with_trailing_comma/1,
task_with_multiple_args/1,
task_with_flag/1,
task_with_flag_with_immediate_comma/1,
task_with_flag_with_trailing_comma/1,
task_with_flag_with_commas/1,
task_with_multiple_flags/1,
special_task_do/1,
trivial_umerge/1,
three_tuple_umerge/1]).
-include_lib("common_test/include/ct.hrl").
-include_lib("eunit/include/eunit.hrl").
-include_lib("kernel/include/file.hrl").
all() ->
[{group, args_to_tasks},
trivial_umerge,
three_tuple_umerge
].
groups() ->
[{args_to_tasks, [], [empty_arglist,
single_task,
single_task_with_immediate_comma,
single_task_with_trailing_comma,
multiple_task,
multiple_task_no_spaces,
multiple_task_with_immediate_comma,
multiple_task_with_trailing_comma,
task_with_arg,
task_with_arg_with_immediate_comma,
task_with_arg_with_trailing_comma,
task_with_multiple_args,
task_with_flag,
task_with_flag_with_immediate_comma,
task_with_flag_with_trailing_comma,
task_with_flag_with_commas,
task_with_multiple_flags,
special_task_do]}].
init_per_group(_, Config) -> Config.
end_per_group(_, Config) -> Config.
empty_arglist(_Config) ->
[] = rebar_utils:args_to_tasks([]).
single_task(_Config) ->
[{"foo", []}] = rebar_utils:args_to_tasks(["foo"]).
single_task_with_immediate_comma(_Config) ->
[{"foo", []}] = rebar_utils:args_to_tasks(["foo,"]).
single_task_with_trailing_comma(_Config) ->
[{"foo", []}] = rebar_utils:args_to_tasks(["foo", ","]).
multiple_task(_Config) ->
[{"foo", []}, {"bar", []}, {"baz", []}] = rebar_utils:args_to_tasks(["foo,",
"bar,",
"baz"]).
multiple_task_no_spaces(_Config) ->
[{"foo", []}, {"bar", []}, {"baz", []}] = rebar_utils:args_to_tasks(["foo,bar,baz"]).
multiple_task_with_immediate_comma(_Config) ->
[{"foo", []}, {"bar", []}, {"baz", []}] = rebar_utils:args_to_tasks(["foo,",
"bar,",
"baz,"]).
multiple_task_with_trailing_comma(_Config) ->
[{"foo", []}, {"bar", []}, {"baz", []}] = rebar_utils:args_to_tasks(["foo",
",",
"bar",
",",
"baz",
","]).
task_with_arg(_Config) ->
[{"foo", ["bar"]}] = rebar_utils:args_to_tasks(["foo", "bar"]).
task_with_arg_with_immediate_comma(_Config) ->
[{"foo", ["bar"]}, {"baz", []}] = rebar_utils:args_to_tasks(["foo", "bar,", "baz"]).
task_with_arg_with_trailing_comma(_Config) ->
[{"foo", ["bar"]}, {"baz", []}] = rebar_utils:args_to_tasks(["foo", "bar", ",", "baz"]).
task_with_multiple_args(_Config) ->
[{"foo", ["bar", "baz"]}] = rebar_utils:args_to_tasks(["foo", "bar", "baz"]).
task_with_flag(_Config) ->
[{"foo", ["--bar"]}] = rebar_utils:args_to_tasks(["foo", "--bar"]).
task_with_flag_with_immediate_comma(_Config) ->
[{"foo", ["--bar"]}, {"baz", []}] = rebar_utils:args_to_tasks(["foo", "--bar,", "baz"]).
task_with_flag_with_trailing_comma(_Config) ->
[{"foo", ["--bar"]}, {"baz", []}] = rebar_utils:args_to_tasks(["foo", "--bar", ",", "baz"]).
task_with_flag_with_commas(_Config) ->
[{"foo", ["--bar=baz,qux"]}] = rebar_utils:args_to_tasks(["foo", "--bar=baz,qux"]).
task_with_multiple_flags(_Config) ->
[{"foo", ["--bar", "--baz"]}] = rebar_utils:args_to_tasks(["foo", "--bar", "--baz"]).
special_task_do(_Config) ->
[{"foo", []}, {"do", ["bar,", "baz"]}] = rebar_utils:args_to_tasks(["foo,",
"do",
"bar,",
"baz"]).
trivial_umerge(_Config) ->
New = [{key, foo}],
Old = [{key, bar}],
Result = rebar_utils:tup_umerge(New, Old),
?assertEqual([{key, foo}], Result).
three_tuple_umerge(_Config) ->
New = rebar_utils:tup_sort([{d, foo, true}, {d, bar, true}]),
Old = rebar_utils:tup_sort([{d, foo, false}, {d, bar, true}]),
Result = rebar_utils:tup_umerge(New, Old),
?assertEqual(
rebar_utils:tup_sort([{do, foo, true}, {d, bar, true}]),
Result
).
|
