anchor.diff:        {"b", []}],
        [],
        {ok, ["B"]}};
  +mdeps(m_pick_source4) ->
  +    {[{"b", [{"d", "1", []}]},
  +      {"C", [{"D", "1", []}]}],
  +     [{"D", "1"}],
  +     {ok, ["b", "C", {"d", "1"}]}};
  +mdeps(m_pick_source5) ->
  +    {[{"B", [{"d", "1", []}]},
  +      {"C", [{"D", "1", []}]}],
  +     [{"D", "1"}],
  +     {ok, ["B", "C", {"d", "1"}]}};
   mdeps(m_source_to_pkg) ->
       {[{"B", [{"c",[{"d", []}]}]}],
        [],
  
positive.code: format_expected_mixed_warnings(Warnings) ->
      [case W of
          {N, Vsn} when hd(N) >= $a, hd(N) =< $z -> {pkg, string:to_upper(N), Vsn};
          {N, Vsn} when hd(N) >= $A, hd(N) =< $Z -> {src, N, Vsn};
          N when hd(N) >= $a, hd(N) =< $z -> {pkg, string:to_upper(N), "0.0.0"};
          N when hd(N) >= $A, hd(N) =< $Z -> {src, N, "0.0.0"}
       end || W <- Warnings].
  
  %% format:
  
negative.code:      {mixed, [], [
          m_flat1, m_flat2, m_circular1, m_circular2,
          m_pick_source1, m_pick_source2, m_pick_source3,
          m_pick_source4, m_pick_source5, m_source_to_pkg,
          m_pkg_level1, m_pkg_level2, m_pkg_level3, m_pkg_level3_alpha_order
       ]}
      ].
  