浏览代码

Add tests for the first_files profile merges

pull/1544/head
Fred Hebert 8 年前
父节点
当前提交
1783df5ad3
共有 1 个文件被更改,包括 23 次插入2 次删除
  1. +23
    -2
      test/rebar_profiles_SUITE.erl

+ 23
- 2
test/rebar_profiles_SUITE.erl 查看文件

@ -25,7 +25,8 @@
test_profile_erl_opts_order_2/1,
test_profile_erl_opts_order_3/1,
test_profile_erl_opts_order_4/1,
test_profile_erl_opts_order_5/1]).
test_profile_erl_opts_order_5/1,
first_files_exception/1]).
-include_lib("common_test/include/ct.hrl").
-include_lib("eunit/include/eunit.hrl").
@ -46,7 +47,8 @@ all() ->
test_profile_erl_opts_order_2,
test_profile_erl_opts_order_3,
test_profile_erl_opts_order_4,
test_profile_erl_opts_order_5].
test_profile_erl_opts_order_5,
first_files_exception].
init_per_suite(Config) ->
application:start(meck),
@ -468,6 +470,25 @@ test_profile_erl_opts_order_5(Config) ->
Opt = last_erl_opt(Opts, [warn_export_all, nowarn_export_all], undefined),
warn_export_all = Opt.
first_files_exception(_Config) ->
RebarConfig = [{erl_first_files, ["c","a","b"]},
{mib_first_files, ["c","a","b"]},
{other, ["c","a","b"]},
{profiles,
[{profile2, [{erl_first_files, ["a","e"]},
{mib_first_files, ["a","e"]},
{other, ["a","e"]}
]}]}],
State = rebar_state:new(RebarConfig),
State1 = rebar_state:apply_profiles(State, [profile2]),
%% Combine lists
?assertEqual(["a","b","c","e"], rebar_state:get(State1, other)),
%% there is no specific reason not to dedupe "a" here aside from "this is how it is"
?assertEqual(["c","a","b","a","e"], rebar_state:get(State1, erl_first_files)),
?assertEqual(["c","a","b","a","e"], rebar_state:get(State1, mib_first_files)),
ok.
get_compiled_profile_erl_opts(Profiles, Config) ->
AppDir = ?config(apps, Config),
PStrs = [atom_to_list(P) || P <- Profiles],

正在加载...
取消
保存