Просмотр исходного кода

add test to not upgrade unrelated transitive dep during upgrade

pull/840/head
Tristan Sloughter 9 лет назад
Родитель
Сommit
90a06efa4f
2 измененных файлов: 22 добавлений и 2 удалений
  1. +1
    -1
      src/rebar_prv_upgrade.erl
  2. +21
    -1
      test/rebar_upgrade_SUITE.erl

+ 1
- 1
src/rebar_prv_upgrade.erl Просмотреть файл

@ -163,7 +163,7 @@ all_children(Name, Dict) ->
all_children_(Name, Dict) ->
case dict:find(ec_cnv:to_binary(Name), Dict) of
{ok, Children} ->
Children ++ [all_children_(Child, Dict) || Child <- Children];
[Children | [all_children_(Child, Dict) || Child <- Children]];
error ->
[]
end.

+ 21
- 1
test/rebar_upgrade_SUITE.erl Просмотреть файл

@ -9,7 +9,7 @@ groups() ->
[{all, [], [top_a, top_b, top_c, top_d1, top_d2, top_e,
pair_a, pair_b, pair_ab, pair_c, pair_all,
triplet_a, triplet_b, triplet_c,
tree_a, tree_b, tree_c, tree_c2, tree_ac, tree_all,
tree_a, tree_b, tree_c, tree_c2, tree_cj, tree_ac, tree_all,
delete_d, promote, stable_lock, fwd_lock,
compile_upgrade_parity]},
{git, [], [{group, all}]},
@ -327,6 +327,25 @@ upgrades(tree_c2) ->
{"C", [{"A","1"}, "D", "J", "E",
{"B","1"}, "F", "G",
{"C","1"}, "H", {"I", "2"}, "K"]}};
upgrades(tree_cj) ->
{[{"A", "1", [{"D",[{"J", "1",[]}]},
{"E",[{"I","1",[]}]}]},
{"B", "1", [{"F",[]},
{"G",[]}]},
{"C", "1", [{"H",[]},
{"I","1",[]}]}
],
[{"A", "1", [{"D",[{"J", "2", []}]},
{"E",[{"I","1",[]}]}]},
{"B", "1", [{"F",[]},
{"G",[]}]},
{"C", "1", [{"H",[]},
{"I","1",[]}]}
],
["C","J"],
{"C", [{"A","1"}, "D", {"J", "1"}, "E", {"I","1"},
{"B","1"}, "F", "G",
{"C","1"}, "H"]}};
upgrades(tree_ac) ->
{[{"A", "1", [{"D",[{"J",[]}]},
{"E",[{"I","1",[]}]}]},
@ -481,6 +500,7 @@ tree_a(Config) -> run(Config).
tree_b(Config) -> run(Config).
tree_c(Config) -> run(Config).
tree_c2(Config) -> run(Config).
tree_cj(Config) -> run(Config).
tree_ac(Config) -> run(Config).
tree_all(Config) -> run(Config).
promote(Config) -> run(Config).

Загрузка…
Отмена
Сохранить