anchor.diff:          {'DOWN', Ref, process, Pid, Rep} -> Rep
       end.
   
  -report_mfa(Time, Mod) ->
  -    Tps = round((?N*1000000)/Time),
  +report_mfa(Iter, Time, Mod) ->
  +    Tps = round((Iter*1000000)/Time),
       ct_event:notify(#event{name = benchmark_data,
                              data = [{suite, "stdlib_" ++ atom_to_list(Mod)},
                                      {value, Tps}]}),
  
positive.code:     random_byte_list(?SIZE).
  
  test(Mod, Fun, Args) ->
      F = fun() -> loop(?N, Mod, Fun, Args) end,
      {Time, ok} = timer:tc(fun() -> lspawn(F) end),
      report_mfa(Time, Mod).
  
  loop(0, _M, _F, _A) -> garbage_collect(), ok;
  loop(N, M, F, A) ->
  
negative.code: 
  match_single_pattern_no_match(_Config) ->
      Binary = binary:copy(<<"ugbcfuysabfuqyfikgfsdalpaskfhgjsdgfjwsalp">>, 1000000),
      comment(test(100, binary, match, [Binary, <<"o">>])).
  
  matches_single_pattern_no_match(_Config) ->
      Binary = binary:copy(<<"ugbcfuysabfuqyfikgfsdalpaskfhgjsdgfjwsalp">>, 1000000),
      comment(test(100, binary, matches, [Binary, <<"o">>])).
  
  matches_single_pattern_eventual_match(_Config) ->
      Binary = binary:copy(<<"ugbcfuysabfuqyfikgfsdalpaskfhgjsdgfjwsal\n">>, 1000000),
      comment(test(100, binary, matches, [Binary, <<"\n">>])).
  
  matches_single_pattern_frequent_match(_Config) ->
      Binary = binary:copy(<<"abc\n">>, 1000000),
      comment(test(100, binary, matches, [Binary, <<"abc">>])).
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  