anchor.diff:  -define(Fpr_Test_NumTests, 30).
   
   all() -> [
  -		  tester_add,
  -		  tester_add_list,
  +          tester_add,
  +          tester_add_list,
             tester_join,
             tester_equals,
             tester_fpr,
             %fprof,
             time_measurement
  -		 ].
  +         ].
   
   suite() ->
       [
  
positive.code: 
  for_to_ex(I, N, Fun, AccuFun, Accu) ->
      NewAccu = AccuFun(Fun(I), Accu),
      if 
          I < N ->
              for_to_ex(I + 1, N, Fun, AccuFun, NewAccu);
          I =:= N ->
              NewAccu;
          I > N ->
              failed
      end.
negative.code:     DestFpr = randoms:rand_uniform(1, 500) / 1000,
      %DestFpr = 0.01,
      FalsePositives = util:p_repeatAndAccumulate(
                         fun measure_fp/2,
                         [DestFpr, ElementCount],
                         ?Fpr_Test_NumTests,
                         fun(X, Y) -> X + Y end,
                         0),
      AvgFpr = FalsePositives / ?Fpr_Test_NumTests,
      ct:pal("FalsePositives=~p - NumberOfTests=~p - Elements=~p~n"
             "DestFpr: ~f~nMeasured Fpr: ~f~n
              BloomFilter=~p~n",
             [FalsePositives, ?Fpr_Test_NumTests, ElementCount, DestFpr, AvgFpr,
              ?BLOOM:print(?BLOOM:new(ElementCount, DestFpr))]),
      %?assert(DestFpr >= AvgFpr orelse DestFpr * 1.3 >= AvgFpr),
      true.
  
  tester_fpr(_) ->
  