X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2FTEST;h=122bd96a864700722b4045cefb4ccd2089f7a563;hb=8ff950ac4dd6a40327ca0d02f43bd42adf4f89ec;hp=451bbe6be66d86be3ceb2eef69abfaeb63e0acdb;hpb=135863df38bea8d721a115b5d13e08b816104784;p=p5sagit%2Fp5-mst-13.2.git diff --git a/t/TEST b/t/TEST old mode 100644 new mode 100755 index 451bbe6..122bd96 --- a/t/TEST +++ b/t/TEST @@ -1,87 +1,230 @@ #!./perl -# $Header: TEST,v 1.0.1.1 88/01/24 03:55:39 root Exp $ - # This is written in a peculiar style, since we're trying to avoid # most of the constructs we'll be testing for. -if ($ARGV[0] eq '-v') { - $verbose = 1; - shift; -} +$| = 1; -if ($ARGV[0] eq '') { - @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.*`); +# Cheesy version of Getopt::Std. Maybe we should replace it with that. +if ($#ARGV >= 0) { + foreach my $idx (0..$#ARGV) { + next unless $ARGV[$idx] =~ /^-(\w+)$/; + $verbose = 1 if $1 eq 'v'; + $with_utf= 1 if $1 eq 'utf8'; + splice(@ARGV, $idx, 1); + } } -open(config,"../config.sh"); -while () { - if (/sharpbang='(.*)'/) { - $sharpbang = ($1 eq '#!'); - last; +chdir 't' if -f 't/TEST'; + +die "You need to run \"make test\" first to set things up.\n" + unless -e 'perl' or -e 'perl.exe'; + +if ($ENV{PERL_3LOG}) { + unless (-x 'perl.third') { + unless (-x '../perl.third') { + die "You need to run \"make perl.third first.\n"; + } + else { + print "Symlinking ../perl.third as perl.third...\n"; + die "Failed to symlink: $!\n" + unless symlink("../perl.third", "perl.third"); + die "Symlinked but no executable perl.third: $!\n" + unless -x 'perl.third'; + } } } -$bad = 0; -while ($test = shift) { - print "$test..."; - if ($sharpbang) { - open(results,"$test|") || (print "can't run.\n"); - } else { - open(script,"$test") || die "Can't run $test"; - $_ =