anchor.diff:       {mixed, [], [
           m_flat1, m_flat2, m_circular1, m_circular2,
           m_pick_source1, m_pick_source2, m_pick_source3,
  -        m_source_to_pkg,
  +        m_pick_source4, m_pick_source5, m_source_to_pkg,
           m_pkg_level1, m_pkg_level2, m_pkg_level3, m_pkg_level3_alpha_order
        ]}
       ].
  
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: m_pick_source1(Config) -> run(Config).
  m_pick_source2(Config) -> run(Config).
  m_pick_source3(Config) -> run(Config).
  m_pick_source4(Config) -> run(Config).
  m_pick_source5(Config) -> run(Config).
  m_source_to_pkg(Config) -> run(Config).
  m_pkg_level1(Config) -> run(Config).
  m_pkg_level2(Config) -> run(Config).
  