diff options
| author | Fred Hebert <mononcqc@ferd.ca> | 2014-12-29 02:57:42 +0000 |
|---|---|---|
| committer | Fred Hebert <mononcqc@ferd.ca> | 2014-12-29 02:57:42 +0000 |
| commit | a945143bb4200f78a94c6f7a492e5fad72dce4a6 (patch) | |
| tree | 2c9fb408db1209c81f776b1d36e2df5923a23a13 | |
| parent | a678b1e658330253ceac51c12a8cd7e2684ddf87 (diff) | |
MORE TESTS
| -rw-r--r-- | test/rebar_compile_SUITE.erl | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/test/rebar_compile_SUITE.erl b/test/rebar_compile_SUITE.erl index 32abd44..627e834 100644 --- a/test/rebar_compile_SUITE.erl +++ b/test/rebar_compile_SUITE.erl @@ -7,7 +7,8 @@ all/0, build_basic_app/1, build_release_apps/1, - build_checkout_apps/1]). + build_checkout_apps/1, + build_checkout_deps/1]). -include_lib("common_test/include/ct.hrl"). -include_lib("eunit/include/eunit.hrl"). @@ -26,7 +27,8 @@ init_per_testcase(_, Config) -> rebar_test_utils:init_rebar_state(Config). all() -> - [build_basic_app, build_release_apps, build_checkout_apps]. + [build_basic_app, build_release_apps, + build_checkout_apps, build_checkout_deps]. build_basic_app(Config) -> AppDir = ?config(apps, Config), @@ -67,3 +69,22 @@ build_checkout_apps(Config) -> {ok, [{app, Name1}, {checkout, Name2}]} ). +build_checkout_deps(Config) -> + AppDir = ?config(apps, Config), + CheckoutsDir = ?config(checkouts, Config), + DepsDir = filename:join([AppDir, "_build", "lib"]), + Name1 = rebar_test_utils:create_random_name("checkapp1_"), + Vsn1 = rebar_test_utils:create_random_vsn(), + rebar_test_utils:create_app(filename:join([AppDir,Name1]), Name1, Vsn1, [kernel, stdlib]), + Name2 = rebar_test_utils:create_random_name("checkapp2_"), + Vsn2 = rebar_test_utils:create_random_vsn(), + rebar_test_utils:create_app(filename:join([CheckoutsDir,Name2]), Name2, Vsn2, [kernel, stdlib]), + rebar_test_utils:create_app(filename:join([DepsDir,Name2]), Name2, Vsn1, [kernel, stdlib]), + + rebar_test_utils:run_and_check( + Config, [], ["compile"], + {ok, [{app, Name1}, {checkout, Name2}]} + ), + ok = application:load(list_to_atom(Name2)), + Loaded = application:loaded_applications(), + {_, _, Vsn2} = lists:keyfind(list_to_atom(Name2), 1, Loaded). |