You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
171 lines
5.7 KiB
171 lines
5.7 KiB
%%% This suite can't run tests for built-in templates because
|
|
%%% they require being escriptize and we currently don't support
|
|
%%% this in here!
|
|
-module(rebar_new_SUITE).
|
|
-compile(export_all).
|
|
-include_lib("common_test/include/ct.hrl").
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
all() -> [app_git_user, app_hg_user, app_with_fallbacks,
|
|
app_with_flags1, app_with_flags2, plugin_tpl].
|
|
|
|
|
|
init_per_testcase(plugin_tpl, Config) ->
|
|
application:load(rebar),
|
|
DataDir = ?config(data_dir, Config),
|
|
PrivDir = ?config(priv_dir, Config),
|
|
Name = rebar_test_utils:create_random_name("plugin_tpl"),
|
|
AppsDir = filename:join([PrivDir, rebar_test_utils:create_random_name(Name)]),
|
|
ec_file:copy(filename:join([DataDir, "plugin_tpl"]), AppsDir, [recursive]),
|
|
Verbosity = rebar3:log_level(),
|
|
rebar_log:init(command_line, Verbosity),
|
|
GlobalDir = filename:join([DataDir, "cache"]),
|
|
State = rebar_state:new([{base_dir, filename:join([AppsDir, "_build"])}
|
|
,{global_rebar_dir, GlobalDir}
|
|
,{root_dir, AppsDir}]),
|
|
mock_home_dir(DataDir),
|
|
mock_empty_escript_templates(),
|
|
[{apps, AppsDir}, {state, State}, {name, Name} | Config];
|
|
init_per_testcase(Case, Config0) ->
|
|
Config = rebar_test_utils:init_rebar_state(Config0),
|
|
Name = rebar_test_utils:create_random_name(atom_to_list(Case)),
|
|
Data = ?config(data_dir, Config),
|
|
mock_home_dir(Data),
|
|
mock_empty_escript_templates(),
|
|
[{name, Name} | Config].
|
|
|
|
end_per_testcase(_, Config) ->
|
|
meck:unload(),
|
|
Config.
|
|
|
|
mock_home_dir(Path) ->
|
|
meck:new(rebar_dir, [passthrough]),
|
|
meck:expect(rebar_dir, template_dir, fun(_) -> Path end).
|
|
|
|
mock_empty_escript_templates() ->
|
|
%% Can't find escript templates unless we run
|
|
%% from the escript, which obviously crashes these here tests.
|
|
meck:new(rebar_utils, [passthrough]),
|
|
meck:expect(rebar_utils, escript_foldl, fun(_,_,_) -> {ok, []} end).
|
|
|
|
app_git_user(Config) ->
|
|
meck:expect(rebar_utils, sh, fun("git config --global user.name", _) -> {ok, "gitname"};
|
|
("git config --global user.email", _) -> {ok, "git@email.com"}
|
|
end),
|
|
|
|
Name = ?config(name, Config),
|
|
rebar_test_utils:run_and_check(
|
|
Config, [],
|
|
["new", "test_app", Name, "author_name=some_name"],
|
|
{ok, []}
|
|
),
|
|
validate_files(
|
|
Config, Name,
|
|
[{"LICENSE", ["some_name", "git@email.com"]},
|
|
{"README.md", [Name]},
|
|
{".gitignore", []},
|
|
{"rebar.config", []},
|
|
{filename:join(["src", Name++".app.src"]), [Name]},
|
|
{filename:join(["src", Name++"_sup.erl"]), [Name]},
|
|
{filename:join(["src", Name++"_app.erl"]), [Name]}
|
|
]).
|
|
|
|
app_with_fallbacks(Config) ->
|
|
meck:expect(rebar_utils, sh, fun(_, _) -> {error, fallback} end),
|
|
|
|
Name = ?config(name, Config),
|
|
rebar_test_utils:run_and_check(
|
|
Config, [],
|
|
["new", "test_app", Name],
|
|
{ok, []}
|
|
),
|
|
validate_files(
|
|
Config, Name,
|
|
[{"LICENSE", ["Anonymous", "anonymous@example.org"]},
|
|
{"README.md", [Name]},
|
|
{".gitignore", []},
|
|
{"rebar.config", []},
|
|
{filename:join(["src", Name++".app.src"]), [Name]},
|
|
{filename:join(["src", Name++"_sup.erl"]), [Name]},
|
|
{filename:join(["src", Name++"_app.erl"]), [Name]}
|
|
]).
|
|
|
|
app_hg_user(Config) ->
|
|
meck:expect(rebar_utils, sh, fun("hg showconfig ui.username", _) -> {ok, "hgname <hg@email.com>"};
|
|
(_, _) -> {error, fallback}
|
|
end),
|
|
|
|
Name = ?config(name, Config),
|
|
rebar_test_utils:run_and_check(
|
|
Config, [],
|
|
["new", "test_app", Name],
|
|
{ok, []}
|
|
),
|
|
validate_files(
|
|
Config, Name,
|
|
[{"LICENSE", ["hgname", "hg@email.com"]},
|
|
{"README.md", [Name]},
|
|
{".gitignore", []},
|
|
{"rebar.config", []},
|
|
{filename:join(["src", Name++".app.src"]), [Name]},
|
|
{filename:join(["src", Name++"_sup.erl"]), [Name]},
|
|
{filename:join(["src", Name++"_app.erl"]), [Name]}
|
|
]).
|
|
|
|
app_with_flags1(Config) ->
|
|
Name = ?config(name, Config),
|
|
rebar_test_utils:run_and_check(
|
|
Config, [],
|
|
["new", "test_app", "-f", Name],
|
|
{ok, []}
|
|
),
|
|
validate_files(
|
|
Config, Name,
|
|
[{"LICENSE", []},
|
|
{"README.md", []},
|
|
{".gitignore", []},
|
|
{"rebar.config", []},
|
|
{filename:join(["src", Name++".app.src"]), [Name]},
|
|
{filename:join(["src", Name++"_sup.erl"]), [Name]},
|
|
{filename:join(["src", Name++"_app.erl"]), [Name]}
|
|
]).
|
|
|
|
app_with_flags2(Config) ->
|
|
Name = ?config(name, Config),
|
|
rebar_test_utils:run_and_check(
|
|
Config, [],
|
|
["new", "-f", "test_app", Name],
|
|
{ok, []}
|
|
),
|
|
validate_files(
|
|
Config, Name,
|
|
[{"LICENSE", []},
|
|
{"README.md", []},
|
|
{".gitignore", []},
|
|
{"rebar.config", []},
|
|
{filename:join(["src", Name++".app.src"]), [Name]},
|
|
{filename:join(["src", Name++"_sup.erl"]), [Name]},
|
|
{filename:join(["src", Name++"_app.erl"]), [Name]}
|
|
]).
|
|
|
|
plugin_tpl(Config) ->
|
|
Name = ?config(name, Config),
|
|
rebar_test_utils:run_and_check(
|
|
Config, [],
|
|
["new", "-f", "tpl", Name],
|
|
{ok, []}
|
|
),
|
|
Result = filename:join(["src", Name++".erl"]), % In CWD
|
|
{ok, Bin} = file:read_file(Result),
|
|
{match, _} = re:run(Bin, Name, [multiline,global]).
|
|
|
|
validate_files(_Config, Name, Checks) ->
|
|
[begin
|
|
Path = filename:join([Name, File]),
|
|
ct:pal("validating ~s for content", [Path]),
|
|
{ok, Bin} = file:read_file(Path),
|
|
[{match, _} = re:run(Bin, Pattern, [multiline,global])
|
|
|| Pattern <- Patterns]
|
|
end || {File, Patterns} <- Checks],
|
|
ok.
|
|
|