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
|
-module(couch_flags_config_tests).
-include_lib("eunit/include/eunit.hrl").
%% value copied from couch_flags_config
-define(MAX_FLAG_NAME_LENGTH, 256).
setup() ->
meck:new(couch_log),
meck:expect(couch_log, error, ['_', '_'], meck:val(ok)),
ok.
teardown(_) ->
meck:unload().
couch_flags_config_test_() ->
{
"test couch_flags_config",
{
setup,
fun setup/0,
fun teardown/1,
[fun all_combinations_return_same_result/0]
++ latest_overide_wins()
++ [
{"rules_are_sorted", fun rules_are_sorted/0}
]
}
}.
all_combinations_return_same_result() ->
Config = [
{"foo, bar||*", "true"},
{"baz, qux||*", "false"},
{"baz||shards/test*", "true"},
{"baz||shards/blacklist*", "false"},
{"bar||shards/test*", "false"},
{"bar||shards/test/blacklist*", "true"}
],
Expected = [
{{<<"shards/test/blacklist*">>},{<<"shards/test/blacklist*">>,22,[bar, baz, foo]}},
{{<<"shards/test*">>},{<<"shards/test*">>, 12, [baz, foo]}},
{{<<"shards/blacklist*">>},{<<"shards/blacklist*">>, 17, [bar, foo]}},
{{<<"*">>},{<<"*">>, 1, [bar, foo]}}
],
Combinations = couch_tests_combinatorics:permutations(Config),
lists:foreach(fun(Items) ->
?assertEqual(Expected, couch_flags_config:data(Items))
end, Combinations).
rules_are_sorted() ->
Expected = [
{{<<"shards/test/exact">>},{<<"shards/test/exact">>, 17, [baz,flag_bar,flag_foo]}},
{{<<"shards/test/blacklist*">>},{<<"shards/test/blacklist*">>,22,[flag_foo]}},
{{<<"shards/test*">>},{<<"shards/test*">>, 12, [baz,flag_bar,flag_foo]}},
{{<<"shards/exact">>},{<<"shards/exact">>, 12, [flag_bar,flag_foo]}},
{{<<"shards/blacklist*">>},{<<"shards/blacklist*">>, 17, []}},
{{<<"*">>},{<<"*">>, 1, [flag_foo]}}
],
?assertEqual(Expected, couch_flags_config:data(test_config())).
latest_overide_wins() ->
Cases = [
{[
{"flag||*", "false"}, {"flag||a*", "true"},
{"flag||ab*", "true"}, {"flag||abc*", "true"}
], true},
{[
{"flag||*", "true"}, {"flag||a*", "false"},
{"flag||ab*", "true"}, {"flag||abc*", "false"}
], false}
],
[{test_id(Rules, Expected),
?_assertEqual(Expected, lists:member(flag,
flags(hd(couch_flags_config:data(Rules)))))}
|| {Rules, Expected} <- Cases].
flags({{_Pattern}, {_Pattern, _Size, Flags}}) ->
Flags.
test_id(Items, ExpectedResult) ->
lists:flatten(io_lib:format("~p -> ~p", [[P || {P, _} <- Items], ExpectedResult])).
test_config() ->
[
{"flag_foo||*", "true"},
{"flag_bar||*", "false"},
{"flag_bar||shards/test*", "true"},
{"flag_foo||shards/blacklist*", "false"},
{"baz||shards/test*", "true"},
{"baz||shards/test/blacklist*", "false"},
{"flag_bar||shards/exact", "true"},
{"flag_bar||shards/test/exact", "true"}
].
parse_flags_term_test_() ->
LongBinary = binary:copy(<<"a">>, ?MAX_FLAG_NAME_LENGTH + 1),
ExpectedError = {error, {"Cannot parse list of tags: ~n~p",
[{too_long, LongBinary}]}},
ExpectedUnknownError = {error,{"Cannot parse list of tags: ~n~p",
[{invalid_flag,<<"dddddddd">>}]}},
[
{"empty binary", ?_assertEqual(
[], couch_flags_config:parse_flags_term(<<>>))},
{"single flag", ?_assertEqual(
[fff], couch_flags_config:parse_flags_term(<<"fff">>))},
{"sorted", ?_assertEqual(
[aaa,bbb,fff], couch_flags_config:parse_flags_term(<<"fff,aaa,bbb">>))},
{"whitespace", ?_assertEqual(
[aaa,bbb,fff], couch_flags_config:parse_flags_term(<<"fff , aaa, bbb ">>))},
{"error", ?_assertEqual(
ExpectedError, couch_flags_config:parse_flags_term(LongBinary))},
{"unknown_flag", ?_assertEqual(
ExpectedUnknownError, couch_flags_config:parse_flags_term(<<"dddddddd">>))}
].
|
