remove some unused constants

diff --git a/t/eta-linear.t b/t/eta-linear.t
index 25081eea82b878f5baa68a16b44573a01535e167..02189d55882ff1c13bcf1c1dcd79ca7e12f263b7 100644 (file)
--- 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 9b6857676c7ce0d7bad7ab1093361d60675a3f6f..f5ac387dbe56f07bd2923e34f5e3ed45d121b816 100644 (file)
--- 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 6d812497c2443e8e3134ec13939a29687bce28a4..1e6540f1634be5f5a3acc8c976074e0dff9f5a34 100644 (file)
--- 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 a34917dab3125e79447c4b53ce656f6ba0814510..f0b4fb1f0e114bbb500ca7a8d7063bd559ca15b2 100644 (file)
--- 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 35634958e29ae2b149c0d606bbd5c7c353ee9829..38868db29b522aee31b02da2d61cdd4639b32423 100644 (file)
--- 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 c851278074a9b940dde5e9abe04c5fd542f7915c..6f8f67ce8bea2703b9c4630725a59c8129262ee2 100644 (file)
--- 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 83015fdeb472b33ea81d2250957c15815fddbf68..a95d93da8d0856bb78bda2f8e914a162ee90c534 100644 (file)
--- 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 737f5088b77120ad33cb565c6c6d4f9b2c391e68..e857a59514bfd9091bc6680dac46c898f6f4ff1f 100644 (file)
--- 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,