89 lines
3 KiB
Erlang
89 lines
3 KiB
Erlang
%% -------------------------------------------------------------------
|
|
%%
|
|
%% Copyright (c) 2007-2015 Basho Technologies, Inc. All Rights Reserved.
|
|
%%
|
|
%% This file is provided to you under the Apache License,
|
|
%% Version 2.0 (the "License"); you may not use this file
|
|
%% except in compliance with the License. You may obtain
|
|
%% a copy of the License at
|
|
%%
|
|
%% http://www.apache.org/licenses/LICENSE-2.0
|
|
%%
|
|
%% Unless required by applicable law or agreed to in writing,
|
|
%% software distributed under the License is distributed on an
|
|
%% "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
|
|
%% KIND, either express or implied. See the License for the
|
|
%% specific language governing permissions and limitations
|
|
%% under the License.
|
|
%%
|
|
%% -------------------------------------------------------------------
|
|
|
|
-module(machi_projection_test).
|
|
|
|
-ifdef(TEST).
|
|
-ifndef(PULSE).
|
|
|
|
-compile(export_all).
|
|
|
|
-include("machi_projection.hrl").
|
|
|
|
new_fake(Name) ->
|
|
#p_srvr{name=Name}.
|
|
|
|
%% Bleh, hey QuickCheck ... except that any model probably equals
|
|
%% code under test, bleh.
|
|
|
|
new_test() ->
|
|
All0 = [new_fake(X) || X <- [a,b,c]],
|
|
All_binA = [new_fake(<<"a">>)] ++ [new_fake(X) || X <- [b,c]],
|
|
|
|
true = try_it(a, All0, [a,b], [], [c], []),
|
|
true = try_it(<<"a">>, All_binA, [<<"a">>,b], [], [c], []),
|
|
Servers = All0,
|
|
Servers_bad1 = [new_fake(X) || X <- [<<"a">>,b,c]],
|
|
Servers_bad2 = [new_fake(X) || X <- [z,b,c]],
|
|
true = try_it(a, Servers, [a,b], [], [c], []),
|
|
|
|
false = try_it(a, not_list, [a,b], [], [c], []),
|
|
false = try_it(a, All0, not_list, [], [c], []),
|
|
false = try_it(a, All0, [a,b], not_list, [c], []),
|
|
false = try_it(a, All0, [a,b], [], not_list, []),
|
|
false = try_it(a, All0, [a,b], [], [c], not_list),
|
|
|
|
false = try_it(<<"x">>, All0, [a,b], [], [c], []),
|
|
false = try_it(a, All0, [a,b,c], [], [c], []),
|
|
false = try_it(a, All0, [a,b], [c], [c], []),
|
|
false = try_it(a, All0, [a,b], [], [c,c], []),
|
|
false = try_it(a, Servers_bad1, [a,b], [], [c], []),
|
|
false = try_it(a, Servers_bad2, [a,b], [], [c], []),
|
|
|
|
ok.
|
|
|
|
compare_test() ->
|
|
All0 = [new_fake(X) || X <- [a,b,c]],
|
|
|
|
P0 = machi_projection:new(0, a, All0, [a,b], [], [c], []),
|
|
P1a = machi_projection:new(1, a, All0, [a,b], [], [c], []),
|
|
P1b = machi_projection:new(1, b, All0, [a,b], [], [c], []),
|
|
P2 = machi_projection:new(2, a, All0, [a,b], [], [c], []),
|
|
|
|
0 = machi_projection:compare(P0, P0),
|
|
-1 = machi_projection:compare(P0, P1a),
|
|
-1 = machi_projection:compare(P1a, P1b),
|
|
-1 = machi_projection:compare(P1b, P1a),
|
|
1 = machi_projection:compare(P2, P1a),
|
|
1 = machi_projection:compare(P2, P1b),
|
|
1 = machi_projection:compare(P2, P0),
|
|
ok.
|
|
|
|
try_it(MyName, All_list, UPI_list, Down_list, Repairing_list, Ps) ->
|
|
try
|
|
P = machi_projection:new(MyName, All_list, UPI_list, Down_list,
|
|
Repairing_list, Ps),
|
|
is_record(P, projection_v1)
|
|
catch _:_ ->
|
|
false
|
|
end.
|
|
|
|
-endif. % !PULSE
|
|
-endif. % TEST
|