X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F30-bad.t;h=11705875bad2913a456bb924506f6d2357a660a0;hb=af894e2502bb03d24c5179d85e7f6705e2fcd9df;hp=0ac01296e5d79285d479b170640ccffb3b1cd825;hpb=6168b77543644fe6ac8279401e4ac36ee578233d;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/t/30-bad.t b/t/30-bad.t
index 0ac0129..1170587 100644
--- a/t/30-bad.t
+++ b/t/30-bad.t
@@ -3,8 +3,6 @@
 use strict;
 use warnings;
 
-use Config qw/%Config/;
-
 use Test::More;
 
 my $dbg;
@@ -19,13 +17,16 @@ sub tester {
    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);
@@ -54,10 +55,7 @@ if ($@) {
   require XSLoader;
   XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
  ";
- if ($@) {
-  diag $@;
-  plan skip_all => "XS test code not available";
- } else {
+ unless ($@) {
   Test::Valgrind::leak();
  }
 }