您最多选择25个主题
主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
231 行
10 KiB
231 行
10 KiB
-module(rebar_pkg_alias_SUITE).
|
|
-compile(export_all).
|
|
-include_lib("common_test/include/ct.hrl").
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include_lib("kernel/include/file.hrl").
|
|
|
|
all() -> [same_alias, diff_alias, diff_alias_vsn, transitive_alias,
|
|
transitive_hash_mismatch].
|
|
|
|
%% {uuid, {pkg, uuid}} = uuid
|
|
%% {uuid, {pkg, alias}} = uuid on disk
|
|
%% another run should yield the same lock file without error
|
|
init_per_suite(Config) ->
|
|
mock_config(?MODULE, Config).
|
|
|
|
end_per_suite(Config) ->
|
|
unmock_config(Config).
|
|
|
|
init_per_testcase(same_alias, Config0) ->
|
|
Config = rebar_test_utils:init_rebar_state(Config0,"same_alias_"),
|
|
AppDir = ?config(apps, Config),
|
|
rebar_test_utils:create_app(AppDir, "A", "0.0.0", [kernel, stdlib]),
|
|
RebarConf = rebar_test_utils:create_config(AppDir, [{deps, [{fakelib, {pkg, fakelib}}]}]),
|
|
[{rebarconfig, RebarConf} | Config];
|
|
init_per_testcase(diff_alias, Config0) ->
|
|
Config = rebar_test_utils:init_rebar_state(Config0,"diff_alias_"),
|
|
AppDir = ?config(apps, Config),
|
|
rebar_test_utils:create_app(AppDir, "A", "0.0.0", [kernel, stdlib]),
|
|
RebarConf = rebar_test_utils:create_config(AppDir, [{deps, [{fakelib, {pkg, goodpkg}}]}]),
|
|
[{rebarconfig, RebarConf} | Config];
|
|
init_per_testcase(diff_alias_vsn, Config0) ->
|
|
Config = rebar_test_utils:init_rebar_state(Config0,"diff_alias_vsn_"),
|
|
AppDir = ?config(apps, Config),
|
|
rebar_test_utils:create_app(AppDir, "A", "0.0.0", [kernel, stdlib]),
|
|
RebarConf = rebar_test_utils:create_config(AppDir, [{deps, [{fakelib, "1.0.0", {pkg, goodpkg}}]}]),
|
|
[{rebarconfig, RebarConf} | Config];
|
|
init_per_testcase(transitive_alias, Config0) ->
|
|
Config = rebar_test_utils:init_rebar_state(Config0,"transitive_alias_vsn_"),
|
|
AppDir = ?config(apps, Config),
|
|
rebar_test_utils:create_app(AppDir, "A", "0.0.0", [kernel, stdlib]),
|
|
RebarConf = rebar_test_utils:create_config(AppDir, [{deps, [{topdep, "1.0.0", {pkg, topdep}}]}]),
|
|
[{rebarconfig, RebarConf} | Config];
|
|
init_per_testcase(transitive_hash_mismatch, Config0) ->
|
|
Config = rebar_test_utils:init_rebar_state(Config0,"transitive_alias_vsn_"),
|
|
AppDir = ?config(apps, Config),
|
|
rebar_test_utils:create_app(AppDir, "A", "0.0.0", [kernel, stdlib]),
|
|
RebarConf = rebar_test_utils:create_config(AppDir, [{deps, [{topdep, "1.0.0", {pkg, topdep}}]}]),
|
|
[{rebarconfig, RebarConf} | Config].
|
|
|
|
end_per_testcase(_, Config) ->
|
|
Config.
|
|
|
|
same_alias(Config) ->
|
|
{ok, RebarConfig} = file:consult(?config(rebarconfig, Config)),
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["lock"],
|
|
{ok, [{lock, "fakelib"}, {dep, "fakelib"}]}
|
|
).
|
|
|
|
diff_alias(Config) ->
|
|
%% even though the dep is 'fakelib' aliased as 'goodpkg' all
|
|
%% internal records use 'fakelib' as a value. Just make sure
|
|
%% the lock actually maintains the proper source as 'goodpkg'
|
|
AppDir = ?config(apps, Config),
|
|
Lockfile = filename:join([AppDir, "rebar.lock"]),
|
|
{ok, RebarConfig} = file:consult(?config(rebarconfig, Config)),
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["lock"],
|
|
{ok, [{lock, "fakelib"},{dep, "fakelib"}]}
|
|
),
|
|
{ok, [{_Vsn, LockData}|_]} = file:consult(Lockfile),
|
|
?assert(lists:any(fun({<<"fakelib">>,{pkg,<<"goodpkg">>,_},_}) -> true
|
|
; (_) -> false end, LockData)),
|
|
%% An second run yields the same
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["lock"],
|
|
{ok, [{lock, "fakelib"},{dep, "fakelib"}]}
|
|
),
|
|
{ok, [{_Vsn, LockData}|_]} = file:consult(Lockfile),
|
|
%% So does an upgrade
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["upgrade"],
|
|
{ok, [{lock, "fakelib"},{dep, "fakelib"}]}
|
|
),
|
|
{ok, [{_Vsn, LockData}|_]} = file:consult(Lockfile).
|
|
|
|
diff_alias_vsn(Config) -> diff_alias(Config).
|
|
|
|
transitive_alias(Config) ->
|
|
%% ensure that the apps fetched under transitive aliases are
|
|
%% locked properly, but also that they are stored in the right
|
|
%% directory in the build dir to avoid breaking includes and
|
|
%% static analysis tools that rely on the location to work
|
|
AppDir = ?config(apps, Config),
|
|
Lockfile = filename:join([AppDir, "rebar.lock"]),
|
|
{ok, RebarConfig} = file:consult(?config(rebarconfig, Config)),
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["lock"],
|
|
{ok, [{lock, "topdep"},{dep, "topdep"},
|
|
{lock,"transitive_app"},{dep,"transitive_app"}]}
|
|
),
|
|
{ok, [{_Vsn, LockData}|_]} = file:consult(Lockfile),
|
|
?assert(lists:any(fun({<<"transitive_app">>,{pkg,<<"transitive">>,_},_}) -> true
|
|
; (_) -> false end, LockData)),
|
|
AppDir = ?config(apps, Config),
|
|
AliasedName = filename:join([AppDir, "_build", "default", "lib", "transitive_app"]),
|
|
PkgName = filename:join([AppDir, "_build", "default", "lib", "transitive"]),
|
|
?assert(filelib:is_dir(AliasedName)),
|
|
?assertNot(filelib:is_dir(PkgName)),
|
|
%% An second run yields the same
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["lock"],
|
|
{ok, [{lock, "topdep"},{dep, "topdep"},
|
|
{lock,"transitive_app"},{dep,"transitive_app"}]}
|
|
),
|
|
{ok, [{_Vsn, LockData}|_]} = file:consult(Lockfile),
|
|
?assert(filelib:is_dir(AliasedName)),
|
|
?assertNot(filelib:is_dir(PkgName)),
|
|
%% So does an upgrade
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["upgrade"],
|
|
{ok, [{lock, "topdep"},{dep, "topdep"},
|
|
{lock,"transitive_app"},{dep,"transitive_app"}]}
|
|
),
|
|
{ok, [{_Vsn, LockData}|_]} = file:consult(Lockfile),
|
|
?assert(filelib:is_dir(AliasedName)),
|
|
?assertNot(filelib:is_dir(PkgName)),
|
|
ok.
|
|
|
|
transitive_hash_mismatch(Config) ->
|
|
%% ensure that the apps fetched under transitive aliases are
|
|
%% locked properly, but also that they are stored in the right
|
|
%% directory in the build dir to avoid breaking includes and
|
|
%% static analysis tools that rely on the location to work
|
|
AppDir = ?config(apps, Config),
|
|
Lockfile = filename:join([AppDir, "rebar.lock"]),
|
|
{ok, RebarConfig} = file:consult(?config(rebarconfig, Config)),
|
|
rebar_test_utils:run_and_check(
|
|
Config, RebarConfig, ["lock"],
|
|
{ok, [{lock, "topdep"},{dep, "topdep"},
|
|
{lock,"transitive_app"},{dep,"transitive_app"}]}
|
|
),
|
|
{ok, [LockData|Attrs]} = file:consult(Lockfile),
|
|
%% Change Lock hash data to cause a failure next time, but on transitive
|
|
%% deps only
|
|
NewLock = [LockData|lists:map(
|
|
fun([{pkg_hash, Hashes}|Rest]) ->
|
|
[{pkg_hash, [{<<"transitive_app">>, <<"fakehash">>}
|
|
| lists:keydelete(<<"transitive_app">>, 1, Hashes)]}
|
|
| Rest]
|
|
; (Attr) ->
|
|
Attr
|
|
end, Attrs)],
|
|
{ok, Io} = file:open(Lockfile, [write]),
|
|
[io:format(Io, "~p.~n", [Attr]) || Attr <- NewLock],
|
|
file:close(Io),
|
|
ct:pal("lock: ~p", [file:consult(Lockfile)]),
|
|
ec_file:remove(filename:join([AppDir, "_build"]), [recursive]),
|
|
?assertMatch(
|
|
{error, {rebar_fetch, {unexpected_hash, _, _, _}}},
|
|
rebar_test_utils:run_and_check(Config, RebarConfig, ["lock"], return)
|
|
),
|
|
ok.
|
|
|
|
mock_config(Name, Config) ->
|
|
{ChkFake, Etag} = create_lib(Name, Config, "fakelib"),
|
|
{ChkTop, _} = create_lib(Name, Config, "topdep"),
|
|
{ChkTrans, _} = create_lib(Name, Config, "transitive_app", "transitive"),
|
|
Priv = ?config(priv_dir, Config),
|
|
TmpDir = filename:join([Priv, "tmp", atom_to_list(Name)]),
|
|
%% Add an alias for goodpkg -> fakelib by hand
|
|
AppDir = filename:join([Priv, "fakelib"]),
|
|
CacheRoot = filename:join([Priv, "cache", atom_to_list(Name)]),
|
|
CacheDir = filename:join([CacheRoot, "hex", "com", "test", "packages"]),
|
|
rebar_test_utils:create_app(AppDir, "fakelib", "1.0.0", [kernel, stdlib]),
|
|
{ChkFake, Etag} = rebar_test_utils:package_app(AppDir, CacheDir, "goodpkg-1.0.0"),
|
|
|
|
Tid = ets:new(registry_table, [public]),
|
|
ets:insert_new(Tid, [
|
|
{<<"fakelib">>,[[<<"1.0.0">>]]},
|
|
{<<"goodpkg">>,[[<<"1.0.0">>]]},
|
|
{<<"topdep">>,[[<<"1.0.0">>]]},
|
|
{<<"transitive">>, [[<<"1.0.0">>]]},
|
|
{{<<"fakelib">>,<<"1.0.0">>}, [[], ChkFake, [<<"rebar3">>]]},
|
|
{{<<"goodpkg">>,<<"1.0.0">>}, [[], ChkFake, [<<"rebar3">>]]},
|
|
{{<<"topdep">>,<<"1.0.0">>},
|
|
[[
|
|
[<<"transitive">>, <<"1.0.0">>, false, <<"transitive_app">>]
|
|
], ChkTop, [<<"rebar3">>]]},
|
|
{{<<"transitive">>,<<"1.0.0">>}, [[], ChkTrans, [<<"rebar3">>]]}
|
|
]),
|
|
ok = ets:tab2file(Tid, filename:join([CacheDir, "registry"])),
|
|
ets:delete(Tid),
|
|
%% The state returns us a fake registry
|
|
meck:new(rebar_dir, [passthrough, no_link]),
|
|
meck:expect(rebar_dir, global_cache_dir, fun(_) -> CacheRoot end),
|
|
|
|
meck:new(rebar_packages, [passthrough, no_link]),
|
|
meck:expect(rebar_packages, registry_dir, fun(_) -> {ok, CacheDir} end),
|
|
meck:expect(rebar_packages, package_dir, fun(_) -> {ok, CacheDir} end),
|
|
rebar_prv_update:hex_to_index(rebar_state:new()),
|
|
|
|
%% Cache fetches are mocked -- we assume the server and clients are
|
|
%% correctly used.
|
|
meck:new(httpc, [passthrough, unsticky, no_link]),
|
|
meck:expect(httpc, request,
|
|
fun(get, {_Url, _Opts}, _, _, _) ->
|
|
{ok, {{<<"1.0.0">>, 304, <<"Not Modified">>}, [{"etag", Etag}], <<>>}}
|
|
end),
|
|
%% Move all packages to cache
|
|
NewConf = [{cache_root, CacheRoot},
|
|
{cache_dir, CacheDir},
|
|
{tmp_dir, TmpDir},
|
|
{mock_table, Tid} | Config],
|
|
NewConf.
|
|
|
|
unmock_config(Config) ->
|
|
meck:unload(),
|
|
Config.
|
|
|
|
create_lib(Name, Config, PkgName) ->
|
|
create_lib(Name, Config, PkgName, PkgName).
|
|
|
|
create_lib(Name, Config, AppName, PkgName) ->
|
|
Priv = ?config(priv_dir, Config),
|
|
AppDir = filename:join([Priv, PkgName]),
|
|
CacheRoot = filename:join([Priv, "cache", atom_to_list(Name)]),
|
|
CacheDir = filename:join([CacheRoot, "hex", "com", "test", "packages"]),
|
|
filelib:ensure_dir(filename:join([CacheDir, "registry"])),
|
|
rebar_test_utils:create_app(AppDir, AppName, "1.0.0", [kernel, stdlib]),
|
|
rebar_test_utils:package_app(AppDir, CacheDir, PkgName++"-1.0.0").
|