view release on metacpan or  search on metacpan

t/60leaks.t  view on Meta::CPAN

#!/usr/local/bin/perl
#
#   $Id: 60leaks.t,v 1.1.1.1 1999/07/13 08:14:45 joe Exp $
#
#   This is a skeleton test. For writing new tests, take this file
#   and modify/extend it.
#

my $COUNT_CONNECT = 4000;   # Number of connect/disconnect iterations
my $COUNT_PREPARE = 10000;  # Number of prepare/execute/finish iterations


my $haveStorable;

eval { require Proc::ProcessTable; };
if ($@  ||  !$ENV{SLOW_TESTS}) {
    print "1..0\n";
    exit 0;
}
eval { require Storable };