anchor.diff:        },
   
         {"parse_packet content length mismatch",
  +       generator,
          fun() ->
                  BadLength = [{<<"1|11\na_label:1|m">>,
                                {11, <<"a_label:1|m">>}},
  
positive.code:     Actual = size(Rest) + 1, % to account for the consumed \n
      case Length =:= Actual of
          true ->
              {Length, Rest};
          false ->
              {bad_length, {Length, Rest}}
      end;
  
negative.code:                             {<<"1|11\na_label:1|m">>,
                              {11, <<"a_label:1|m">>}}
                             ],
                 [ ?_assertEqual({bad_length, {L, R}}, parse_packet(P))
                   || {P, {L, R}} <- BadLength ]
         end
        },
  
        {"parse_packet invalid content length",
         generator,
         fun() ->
                 Packets = [{<<"1|1.0\nlabel:1|m">>,
                             {"1.0", <<"label:1|m">>}},
  