diff options
| author | Prymmer/Kahn <pvhp@best.com> | 2001-08-01 02:24:23 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-01 16:05:56 +0000 |
| commit | 122a03757d5ebab50b5173ec762435d9b729179f (patch) | |
| tree | aa84799a46d0c613ab51797121046cc8c170af0e /t/harness | |
| parent | 016645fd335aeabf074865b298a577cb85fe6c4c (diff) | |
| download | perl-122a03757d5ebab50b5173ec762435d9b729179f.tar.gz | |
fixups for t/harness
Message-ID: <Pine.BSF.4.21.0108010910310.17655-100000@shell8.ba.best.com>
p4raw-id: //depot/perl@11535
Diffstat (limited to 't/harness')
| -rw-r--r-- | t/harness | 17 |
1 files changed, 12 insertions, 5 deletions
@@ -5,10 +5,9 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; # pick up only this build's lib $ENV{PERL5LIB} = '../lib'; # so children will see it too } -use lib '../lib'; use Test::Harness; @@ -35,18 +34,26 @@ foreach (keys %datahandle) { unlink "$_.t"; } +my @tests = (); + if (@ARGV) { @tests = @ARGV; } else { unless (@tests) { - @tests = <base/*.t comp/*.t cmd/*.t run/*.t io/*.t op/*.t lib/*.t>; + push @tests, <base/*.t>; + push @tests, <comp/*.t>; + push @tests, <cmd/*.t>; + push @tests, <run/*.t>; + push @tests, <io/*.t>; + push @tests, <op/*.t>; + push @tests, <lib/*.t>; use File::Spec; my $updir = File::Spec->updir; - my $mani = File::Spec->catdir(File::Spec->updir, "MANIFEST"); + my $mani = File::Spec->catfile(File::Spec->updir, "MANIFEST"); if (open(MANI, $mani)) { while (<MANI>) { # similar code in t/TEST if (m!^(ext/\S+/([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) { - push @tests, File::Spec->catdir($updir, $1); + push @tests, File::Spec->catfile($updir, $1); } } } else { |