diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/rebar_release_SUITE.erl | 52 | ||||
| -rw-r--r-- | test/rebar_test_utils.erl | 24 |
2 files changed, 76 insertions, 0 deletions
diff --git a/test/rebar_release_SUITE.erl b/test/rebar_release_SUITE.erl new file mode 100644 index 0000000..92219a5 --- /dev/null +++ b/test/rebar_release_SUITE.erl @@ -0,0 +1,52 @@ +-module(rebar_release_SUITE). +-compile(export_all). +-include_lib("common_test/include/ct.hrl"). +-include_lib("eunit/include/eunit.hrl"). + +all() -> [release, tar]. + +init_per_testcase(Case, Config0) -> + Config = rebar_test_utils:init_rebar_state(Config0), + Name = rebar_test_utils:create_random_name(atom_to_list(Case)), + AppDir = ?config(apps, Config), + application:load(rebar), + + ok = ec_file:mkdir_p(AppDir), + State = rebar_state:new([{base_dir, filename:join([AppDir, "_build"])}]), + + rebar_test_utils:create_app(AppDir, Name, "1.0.0", [kernel, stdlib]), + [{name, Name}, {apps, AppDir}, {state, State} | Config]. + +end_per_testcase(_, Config) -> + meck:unload(), + Config. + +release(Config) -> + AppDir = ?config(apps, Config), + Name = ?config(name, Config), + Vsn = "1.0.0", + {ok, RebarConfig} = + file:consult(rebar_test_utils:create_config(AppDir, + [{relx, [{release, {list_to_atom(Name), Vsn}, + [list_to_atom(Name)]}, + {lib_dirs, [AppDir]}]}])), + rebar_test_utils:run_and_check( + Config, RebarConfig, + ["release"], + {ok, [{release, list_to_atom(Name), Vsn}]} + ). + +tar(Config) -> + AppDir = ?config(apps, Config), + Name = ?config(name, Config), + Vsn = "1.0.0", + {ok, RebarConfig} = + file:consult(rebar_test_utils:create_config(AppDir, + [{relx, [{release, {list_to_atom(Name), Vsn}, + [list_to_atom(Name)]}, + {lib_dirs, [AppDir]}]}])), + rebar_test_utils:run_and_check( + Config, RebarConfig, + ["tar"], + {ok, [{release, list_to_atom(Name), Vsn}, {tar, Name, Vsn}]} + ). diff --git a/test/rebar_test_utils.erl b/test/rebar_test_utils.erl index 96200a6..2198384 100644 --- a/test/rebar_test_utils.erl +++ b/test/rebar_test_utils.erl @@ -115,6 +115,7 @@ check_results(AppDir, Expected) -> DepsNames = [{ec_cnv:to_list(rebar_app_info:name(App)), App} || App <- Deps], Checkouts = rebar_app_discover:find_apps([CheckoutsDir], all), CheckoutsNames = [{ec_cnv:to_list(rebar_app_info:name(App)), App} || App <- Checkouts], + lists:foreach( fun({app, Name}) -> ct:pal("Name: ~p", [Name]), @@ -167,6 +168,29 @@ check_results(AppDir, Expected) -> ?assertEqual(iolist_to_binary(Vsn), iolist_to_binary(LockVsn)) end + ; ({release, Name, Vsn}) -> + ct:pal("Release: ~p-~s", [Name, Vsn]), + {ok, Cwd} = file:get_cwd(), + try + file:set_cwd(AppDir), + ReleaseDir = filename:join([AppDir, "_build", "rel"]), + RelxState = rlx_state:new("", [], []), + RelxState1 = rlx_state:base_output_dir(RelxState, ReleaseDir), + {ok, RelxState2} = rlx_prv_app_discover:do(RelxState1), + {ok, RelxState3} = rlx_prv_rel_discover:do(RelxState2), + + %% throws not_found if it doesn't exist + rlx_state:get_realized_release(RelxState3, Name, Vsn) + catch + _ -> + ct:fail(release_not_found) + after + file:set_cwd(Cwd) + end + ; ({tar, Name, Vsn}) -> + ct:pal("Tarball: ~s-~s", [Name, Vsn]), + TarballWildcard = filename:join([AppDir, "**", Name++"-"++Vsn++".tar.gz"]), + ?assertNotEqual([], filelib:wildcard(TarballWildcard)) end, Expected). write_src_file(Dir, Name) -> |