From: Gabor Szabo <gabor@szabgab.com>
Date: Tue, 29 Nov 2011 13:49:01 +0000 (+0200)
Subject: remove some unused constants
X-Git-Url: https://git.donarmstrong.com/?p=term-progressbar.git;a=commitdiff_plain;h=d199cca195c28dcac9fd01da5f1a668ed920c642

remove some unused constants
---

diff --git a/t/eta-linear.t b/t/eta-linear.t
index 25081ee..02189d5 100644
--- a/t/eta-linear.t
+++ b/t/eta-linear.t
@@ -13,7 +13,7 @@ use FindBin       qw( $Bin );
 use Test          qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
+use test qw( 
              evcheck restore_output save_output );
 
 BEGIN {
diff --git a/t/name.t b/t/name.t
index 9b68576..f5ac387 100644
--- a/t/name.t
+++ b/t/name.t
@@ -13,7 +13,7 @@ use FindBin       qw( $Bin );
 use Test          qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
+use test qw( 
              evcheck restore_output save_output );
 
 use constant MESSAGE1 => 'The Gospel of St. Jude';
diff --git a/t/test.pm b/t/test.pm
index 6d81249..1e6540f 100644
--- a/t/test.pm
+++ b/t/test.pm
@@ -13,8 +13,7 @@ test - tools for helping in test suites (not including running externalprograms)
 
   BEGIN { unshift @INC, $Bin };
 
-  use test                  qw( DATA_DIR
-                                evcheck runcheck );
+  use test                  qw(   evcheck runcheck );
 
   BEGIN {
     plan tests  => 3,
@@ -87,16 +86,8 @@ The following symbols are exported upon request:
 
 =over 4
 
-=item BIN_DIR
-
-=item DATA_DIR
-
-=item REF_DIR
-
 =item LIB_DIR
 
-=item PERL
-
 =item check_req
 
 =item compare
@@ -121,7 +112,7 @@ The following symbols are exported upon request:
 
 =cut
 
-@EXPORT_OK = qw( BIN_DIR DATA_DIR REF_DIR LIB_DIR PERL
+@EXPORT_OK = qw( LIB_DIR
                  check_req compare evcheck find_exec only_files read_file
                  save_output restore_output tempdir tmpnam );
 
@@ -178,9 +169,6 @@ sub min {
 # PACKAGE CONSTANTS
 # -------------------------------------
 
-use constant BIN_DIR  => catdir $Bin, updir, 'bin';
-use constant DATA_DIR => catdir $Bin, updir, 'data';
-use constant REF_DIR  => catdir $Bin, updir, 'testref';
 use constant LIB_DIR  => catdir $Bin, updir, 'lib';
 
 use constant BUILD_SCRIPT_DIR => => catdir $Bin, updir, qw( blib script );
@@ -196,10 +184,6 @@ sub find_exec {
   return;
 }
 
-use constant PERL     => (basename($^X) eq $^X ? 
-                          find_exec($^X)       :
-                          rel2abs($^X));
-
 # -------------------------------------
 # PACKAGE ACTIONS
 # -------------------------------------
diff --git a/t/v1-message.t b/t/v1-message.t
index a34917d..f0b4fb1 100644
--- a/t/v1-message.t
+++ b/t/v1-message.t
@@ -13,8 +13,7 @@ use FindBin      qw( $Bin );
 use Test         qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
-             evcheck restore_output save_output );
+use test qw( evcheck restore_output save_output );
 
 use constant MESSAGE1 => 'Walking on the Milky Way';
 
diff --git a/t/v2-message.t b/t/v2-message.t
index 3563495..38868db 100644
--- a/t/v2-message.t
+++ b/t/v2-message.t
@@ -13,8 +13,7 @@ use FindBin 1.42 qw( $Bin );
 use Test 1.122 qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
-             evcheck restore_output save_output );
+use test qw( evcheck restore_output save_output );
 
 use constant MESSAGE1 => 'Walking on the Milky Way';
 
diff --git a/t/v2-mobile.t b/t/v2-mobile.t
index c851278..6f8f67c 100644
--- a/t/v2-mobile.t
+++ b/t/v2-mobile.t
@@ -13,8 +13,7 @@ use FindBin      qw( $Bin );
 use Test         qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
-             evcheck restore_output save_output );
+use test qw( evcheck restore_output save_output );
 
 BEGIN {
   # 1 for compilation test,
diff --git a/t/v2-simple.t b/t/v2-simple.t
index 83015fd..a95d93d 100644
--- a/t/v2-simple.t
+++ b/t/v2-simple.t
@@ -13,8 +13,7 @@ use FindBin      qw( $Bin );
 use Test         qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
-             evcheck restore_output save_output );
+use test qw( evcheck restore_output save_output );
 
 BEGIN {
   # 1 for compilation test,
diff --git a/t/zero.t b/t/zero.t
index 737f508..e857a59 100644
--- a/t/zero.t
+++ b/t/zero.t
@@ -13,8 +13,7 @@ use FindBin      qw( $Bin );
 use Test         qw( ok plan );
 
 use lib $Bin;
-use test qw( DATA_DIR
-             evcheck restore_output save_output );
+use test qw( evcheck restore_output save_output );
 
 BEGIN {
   # 1 for compilation test,