view release on metacpan or  search on metacpan

t/Event-Lib-UDPPump.t  view on Meta::CPAN

  my $handle;
  my $SVcount = Devel::Leak::NoteSV($handle);
  foreach (1..1000) {
    syswrite($testsock, '1', 1);
    event_one_loop(1);
  }
  my $leaked = Devel::Leak::NoteSV($handle) - $SVcount;
  
  # I'm comparing for < 5 because I've seen issues where this varies by
  # a few one way or another with different versions of perl.  However,
  # we ran 1000 iterations, it should be much more than 5 if there is a
  # real leak in the XS.
  ok($leaked < 5, "No leaks");
#  print "leaked: $leaked\n";
}