7 use lib "$FindBin::Bin/../live/lib";
10 use Catalyst::Test 'TestApp';
13 plan skip_all => 'set TEST_MEMLEAK to enable this test'
14 unless $ENV{TEST_MEMLEAK};
15 plan skip_all => 'GTop required for this test' if $@;
20 # make a request to set initial memory size
21 request('http://localhost');
24 my $initial = $gtop->proc_mem($$)->size;
25 print "Initial Size: $initial\n";
28 request('http://localhost');
31 my $final = $gtop->proc_mem($$)->size;
32 print "Final Size: $final\n";
34 if ( $final > $initial ) {
35 print "Leaked Bytes: " . ( $final - $initial ) . "\n";
38 is( $final, $initial, 'memory is not leaking' );