1 files changed, 0 insertions, 80 deletions
diff --git a/dist/Devel-PPPort/t/format.t b/dist/Devel-PPPort/t/format.t
deleted file mode 100644
index 8767611a36..0000000000
--- a/dist/Devel-PPPort/t/format.t
+++ /dev/null
@@ -1,80 +0,0 @@
-################################################################################
-#
-#            !!!!!   Do NOT edit this file directly!   !!!!!
-#
-#            Edit mktests.PL and/or parts/inc/format instead.
-#
-#  This file was automatically generated from the definition files in the
-#  parts/inc/ subdirectory by mktests.PL. To learn more about how all this
-#  works, please read the F<HACKERS> file that came with this distribution.
-#
-################################################################################
-
-use FindBin ();
-
-BEGIN {
-  if ($ENV{'PERL_CORE'}) {
-    chdir 't' if -d 't';
-    unshift @INC, '../lib' if -d '../lib' && -d '../ext';
-    require Config; Config->import;
-    use vars '%Config';
-    if (" $Config{'extensions'} " !~ m[ Devel/PPPort ]) {
-      print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
-      exit 0;
-    }
-  }
-
-  use lib "$FindBin::Bin";
-  use lib "$FindBin::Bin/../parts/inc";
-
-  die qq[Cannot find "$FindBin::Bin/../parts/inc"] unless -d "$FindBin::Bin/../parts/inc";
-
-  sub load {
-    require 'testutil.pl';
-    require 'inctools';
-  }
-
-  if (5) {
-    load();
-    plan(tests => 5);
-  }
-}
-
-use Devel::PPPort;
-use strict;
-BEGIN { $^W = 1; }
-
-package Devel::PPPort;
-use vars '@ISA';
-require DynaLoader;
-@ISA = qw(DynaLoader);
-Devel::PPPort->bootstrap;
-
-package main;
-
-use Config;
-
-if ("$]" < '5.004') {
-    skip 'skip: No newSVpvf support', 5;
-    exit;
-}
-
-my $num = 1.12345678901234567890;
-
-eval { Devel::PPPort::croak_NVgf($num) };
-ok($@ =~ /^1.1234567890/);
-
-is(Devel::PPPort::sprintf_iv(-8), 'XX_-8_XX');
-is(Devel::PPPort::sprintf_uv(15), 'XX_15_XX');
-
-my $ivsize = $Config::Config{ivsize};
-if ($ivsize && ($ivsize == 4 || $ivsize == 8)) {
-    my $ivmax = ($ivsize == 4) ? '2147483647' : '9223372036854775807';
-    my $uvmax = ($ivsize == 4) ? '4294967295' : '18446744073709551615';
-    is(Devel::PPPort::sprintf_ivmax(), $ivmax);
-    is(Devel::PPPort::sprintf_uvmax(), $uvmax);
-}
-else {
-    skip 'skip: unknown ivsize', 2;
-}
-