use strict;
use warnings;
-use Config qw/%Config/;
-
use Test::More;
my $dbg;
XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
";
if ($@) {
+ my $err = $@;
$dbg = 0;
+ chomp $err;
+ diag "XS test code not available ($err)";
} else {
my $ret = eval "Test::Valgrind::DEBUGGING()";
$dbg = $@ ? 0 : $ret;
}
}
- if ($desc =~ /still\s+reachable/) {
+ if ($desc =~ /definitely\s+lost/) {
$passed = $a >= 9900 && $a < 10100;
if ($dbg) {
ok($passed, $desc);
require XSLoader;
XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
";
- if ($@) {
- diag $@;
- plan skip_all => "XS test code not available";
- } else {
+ unless ($@) {
Test::Valgrind::leak();
}
}