switch from Test to Test::More

[term-progressbar.git] / t / test.pm

diff --git a/t/test.pm b/t/test.pm
index c10aa57dff118abb548fec603c304c81d4e920d9..f72ae085821bc3aec006892ee6c97bd40737d4dc 100644 (file)
--- a/t/test.pm
+++ b/t/test.pm
@@ -8,19 +8,6 @@ test - tools for helping in test suites (not including running externalprograms)
 
 =head1 SYNOPSIS
 
-  use FindBin               1.42 qw( $Bin );
-  use Test                  1.13 qw( ok plan );
-
-  BEGIN { unshift @INC, $Bin };
-
-  use test                  qw(   evcheck runcheck );
-
-  BEGIN {
-    plan tests  => 3,
-         todo   => [],
-         ;
-  }
-
   ok evcheck(sub {
                open my $fh, '>', 'foo';
                print $fh "$_\n"
@@ -88,32 +75,8 @@ The following symbols are exported upon request:
 
 # Utility -----------------------------
 
-use Carp                          qw( carp croak );
-use Cwd                      2.01 qw( cwd );
-use Env                           qw( PATH );
-use Fatal                    1.02 qw( close open seek sysopen unlink );
-use Fcntl                    1.03 qw( :DEFAULT );
-use File::Basename                qw( basename );
-use File::Path             1.0401 qw( mkpath rmtree );
-use File::Spec                0.6 qw( );
-use File::Temp                    qw( tempdir );
-use FindBin                  1.42 qw( $Bin );
-#use POSIX                    1.02 qw( );
-use Test                    1.122 qw( ok skip );
-
-# ----------------------------------------------------------------------------
-
-# -------------------------------------
-# PACKAGE CONSTANTS
-# -------------------------------------
-
-use constant BUILD_SCRIPT_DIR => => File::Spec->catdir( $Bin, File::Spec->updir, qw( blib script ) );
-
-# -------------------------------------
-# PACKAGE ACTIONS
-# -------------------------------------
+use Carp                          qw( carp );
 
-$PATH = join ':', BUILD_SCRIPT_DIR, split /:/, $PATH;
 
 $| = 1;