AI-DecisionTree
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
Instance/t/02-leaktest.t view on Meta::CPAN
#!/usr/bin/perl
use Test;
BEGIN { plan tests => 4 }
use AI::DecisionTree::Instance;
ok(1);
my $x = 0;
{
local *{"AI::DecisionTree::Instance::DESTROY"} = sub { $x = 1 };
{
my $i = new AI::DecisionTree::Instance([3,4], 4, "foo");
ok $x, 0;
}
ok $x, 1;
}
ok $x, 1;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.460 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )