view release on metacpan or  search on metacpan

t/zzmem_plojb1.t  view on Meta::CPAN

#!/usr/bin/perl

use utf8;
use strict;
use warnings;

use Test::More;
plan skip_all => 'apparent memory-leak, fixes welcome';

use FindBin;
my $context = require "$FindBin::Bin/mem.pl";
plan skip_all => "no ps" unless check_ps();

package Test;

sub new {
    my ($class, $val) = @_;
    bless { val => $val }, $class
}

package main;

t/zzmem_plojb2.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More;

if ($^V lt v5.10) {
    plan skip_all => 'perl >= v5.10 needed';
}

use FindBin;
my $context = require "$FindBin::Bin/mem.pl";
plan skip_all => "no ps" unless check_ps();

package Test;

sub new {
    my ($class, $val) = @_;
    bless { val => $val }, $class
}

package main;

t/zzmem_sub.t  view on Meta::CPAN

#!/usr/bin/perl

use utf8;
use strict;
use warnings;

use Test::More;

use FindBin;
my $context = require "$FindBin::Bin/mem.pl";
plan skip_all => "no ps" unless check_ps();

for (1..200000) {
    $context->eval('(function(data) { var x = data; })')->(sub { 1 });
}

1 while !$context->idle_notification;

cmp_ok get_rss(), '<', 50_000, 'functions are released';