This is 1.00

[perl/modules/Test-Valgrind.git] / t / 30-bad.t

diff --git a/t/30-bad.t b/t/30-bad.t
deleted file mode 100644 (file)
index ac5c9be..0000000
--- a/t/30-bad.t
+++ /dev/null
@@ -1,62 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-my $dbg;
-
-sub tester {
- my ($num, $desc) = @_;
- my $passed;
- if (!defined $dbg) {
-  eval "
-   use lib qw{blib/arch};
-   require XSLoader;
-   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 =~ /definitely\s+lost/) {
-  $passed = $num >= 9900 && $num < 10100;
-  if ($dbg) {
-   ok($passed, $desc);
-   diag "    Got $num instead of 0." unless $passed;
-  } else {
-   TODO: {
-    local $TODO = "Leak count may be off on non-debugging perls";
-    ok($passed, $desc);
-   }
-   $passed = 1;
-  }
- } else {
-  $passed = defined $num && $num == 0;
-  is($num, 0, $desc);
- }
- return $passed;
-}
-
-use lib qw{blib/archpub};
-eval 'use Test::Valgrind cb => \&tester';
-if ($@) {
- diag $@;
- plan skip_all => 'Test::Valgrind is required to run test your distribution with valgrind';
-} else {
- eval "
-  use lib qw{blib/arch};
-  require XSLoader;
-  XSLoader::load('Test::Valgrind', \$Test::Valgrind::VERSION);
- ";
- unless ($@) {
-  Test::Valgrind::leak();
- }
-}