anchor.diff:                              {<<"1|11\na_label:1|m">>,
                               {11, <<"a_label:1|m">>}}
                              ],
  -               [ ?assertEqual({bad_length, {L, R}}, parse_packet(P))
  +               [ ?_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">>}},
  
positive.code:                           
                           ],
  
                 [ ?assertEqual({bad_length, {L, R}}, parse_packet(P))
                   || {P, {L, R}} <- Packets ]
         end
        }
       ]}.
  
negative.code:              cleanup
       end,
       [
        {"parse_packet valid packet",
         fun() ->
                 Packet = <<"1|12\na_label:1|m">>,
                 ?assertEqual([#shp_metric{key = <<"a_label">>,
                                         value = 1,
                                         type = m,
                                          sample_rate = undefined}],
                              parse_packet(Packet))
         end
        },
  
  