anchor.diff:        {"parse_packet content length mismatch",
          generator,
          fun() ->
  -               BadLength = [{<<"1|11\na_label:1|m">>,
  -                             {11, <<"a_label:1|m">>}},
  -                             
  -                            {<<"1|12\nx:1|m">>,
  -                             {12, <<"x:1|m">>}},
  -                            
  -                            {<<"1|11\na_label:1|m">>,
  -                            {11, <<"a_label:1|m">>}}
  +               BadLength = [{<<"1|11\na_label:1|m\n">>,
  +                             {11, <<"a_label:1|m\n">>}},
  +
  +                            {<<"1|12\nx:1|m\n">>,
  +                             {12, <<"x:1|m\n">>}}
                              ],
                  [ ?_assertEqual({bad_length, {L, R}}, parse_packet(P))
                    || {P, {L, R}} <- BadLength ]
  
positive.code:             error_logger:error_report({bad_metric,
                                         {Body, Why, erlang:get_stacktrace()}}),
              throw({bad_metric_body, Body})
      
      end.
  
  -spec parse_metric(binary()) -> #shp_metric{}.
  
negative.code:                    {Line, Expect} <- Tests ]
         end
        }
  
       ]}.
  