[perl5.git] / t / TEST

#!./perl

# This is written in a peculiar style, since we're trying to avoid
# most of the constructs we'll be testing for.

$| = 1;

# Let tests know they're running in the perl core.  Useful for modules
# which live dual lives on CPAN.
$ENV{PERL_CORE} = 1;

# Cheesy version of Getopt::Std.  Maybe we should replace it with that.
if ($#ARGV >= 0) {
    foreach my $idx (0..$#ARGV) {
	next unless $ARGV[$idx] =~ /^-(\S+)$/;
	$core    = 1 if $1 eq 'core';
	$verbose = 1 if $1 eq 'v';
	$with_utf= 1 if $1 eq 'utf8';
	if ($1 =~ /^deparse(,.+)?$/) {
	    $deparse = 1;
	    $deparse_opts = $1;
	}
	splice(@ARGV, $idx, 1);
    }
}

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}) { # Tru64 third(1) tool, see perlhack
    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';
	}
    }
}

# check leakage for embedders
$ENV{PERL_DESTRUCT_LEVEL} = 2 unless exists $ENV{PERL_DESTRUCT_LEVEL};

$ENV{EMXSHELL} = 'sh';        # For OS/2

# Roll your own File::Find!
use TestInit;
use File::Spec;
my $curdir = File::Spec->curdir;
my $updir  = File::Spec->updir;

sub _find_tests {
    my($dir) = @_;
    opendir DIR, $dir || die "Trouble opening $dir: $!";
    foreach my $f (sort { $a cmp $b } readdir DIR) {
        next if $f eq $curdir or $f eq $updir;

        my $fullpath = File::Spec->catdir($dir, $f);

        _find_tests($fullpath) if -d $fullpath;
        push @ARGV, $fullpath if $f =~ /\.t$/;
    }
}

unless (@ARGV) {
    foreach my $dir (qw(base comp cmd run io op)) {
        _find_tests($dir);
    }
    _find_tests("lib") unless $core;
    my $mani = File::Spec->catdir($updir, "MANIFEST");
    if (open(MANI, $mani)) {
        while (<MANI>) { # similar code in t/harness
	    if (m!^(ext/\S+/([^/]+\.t|test\.pl)|lib/\S+?(\.t|test\.pl))\s!) {
		$t = $1;
		if (!$core || $t =~ m!^lib/[a-z]!)
		{
		    $path = File::Spec->catdir($updir, $t);
		    push @ARGV, $path;
		    $name{$path} = $t;
		}
	    }
	}
    } else {
        warn "$0: cannot open $mani: $!\n";
    }
    _find_tests('pod');
}

# Tests known to cause infinite loops for the perlcc tests.
# %infinite = ( 'comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 );
%infinite = ();

if ($deparse) {
    _testprogs('deparse', @ARGV);
} else {
    _testprogs('perl', @ARGV);
    _testprogs('compile', @ARGV) if (-e "../testcompile");
}

sub _testprogs {
    $type = shift @_;
    @tests = @_;

    print <<'EOT' if ($type eq 'compile');
------------------------------------------------------------------------------
TESTING COMPILER
------------------------------------------------------------------------------
EOT

    print <<'EOT' if ($type eq 'deparse');
------------------------------------------------------------------------------
TESTING DEPARSER
------------------------------------------------------------------------------
EOT

    $ENV{PERLCC_TIMEOUT} = 120
          if ($type eq 'compile' && !$ENV{PERLCC_TIMEOUT});

    $bad = 0;
    $good = 0;
    $total = @tests;
    $files  = 0;
    $totmax = 0;

    foreach (@tests) {
        $name{$_} = File::Spec->catdir('t',$_) unless exists $name{$_};
    }
    my $maxlen = 0;
    foreach (@name{@tests}) {
	s/\.\w+\z/./;
	my $len = length ;
	$maxlen = $len if $len > $maxlen;
    }
    # + 3 : we want three dots between the test name and the "ok"
    $dotdotdot = $maxlen + 3 ;
    while ($test = shift @tests) {

	if ( $infinite{$test} && $type eq 'compile' ) {
	    print STDERR "$test creates infinite loop! Skipping.\n";
            next;
	}
	if ($test =~ /^$/) {
	    next;
	}
	if ($type eq 'deparse') {
	    if ($test eq "comp/redef.t") {
		# Redefinition happens at compile time
		next;
	    }
	    elsif ($test eq "lib/switch.t") {
		# B::Deparse doesn't support source filtering
		next;
	    }
	}
	$te = $name{$test};
	print "$te" . '.' x ($dotdotdot - length($te));

	$test = $OVER{$test} if exists $OVER{$test};

	open(SCRIPT,"<$test") or die "Can't run $test.\n";
	$_ = <SCRIPT>;
	close(SCRIPT) unless ($type eq 'deparse');
	if (/#!.*perl(.*)$/) {
	    $switch = $1;
	    if ($^O eq 'VMS') {
		# Must protect uppercase switches with "" on command line
		$switch =~ s/-([A-Z]\S*)/"-$1"/g;
	    }
	}
	else {
	    $switch = '';
	}

	my $file_opts = "";
	if ($type eq 'deparse') {
	    # Look for #line directives which change the filename
	    while (<SCRIPT>) {
		$file_opts .= ",-f$3$4"
			if /^#\s*line\s+(\d+)\s+((\w+)|"([^"]+)")/;
	    }
	    close(SCRIPT);
	}

	my $utf = $with_utf ? '-I../lib -Mutf8' : '';
	my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
	if ($type eq 'deparse') {
	    my $deparse =
		"./perl $testswitch $switch -I../lib -MO=-qq,Deparse,".
		"-l$deparse_opts$file_opts ".
		"$test > $test.dp ".
		"&& ./perl $testswitch $switch -I../lib $test.dp |";
	    open(RESULTS, $deparse)
		or print "can't deparse '$deparse': $!.\n";
	}
	elsif ($type eq 'perl') {
	    my $perl = $ENV{PERL} || './perl';
	    my $run = "$perl $testswitch $switch $utf $test |";
	    open(RESULTS,$run) or print "can't run '$run': $!.\n";
	}
	else {
	    my $compile =
		"./perl $testswitch -I../lib ../utils/perlcc -o ".
                "$test.plc $utf $test ".
		" && $test.plc |";
	    open(RESULTS, $compile)
		or print "can't compile '$compile': $!.\n";
	    unlink "$test.plc";
	}

	$ok = 0;
	$next = 0;
	while (<RESULTS>) {
	    if ($verbose) {
		print $_;
	    }
	    unless (/^#/) {
		if (/^1\.\.([0-9]+)( todo ([\d ]+))?/) {
		    $max = $1;
                    %todo = map { $_ => 1 } split / /, $3 if $3;
		    $totmax += $max;
		    $files += 1;
		    $next = 1;
		    $ok = 1;
		}
		else {
		    if (/^(not )?ok (\d+)[^#]*(\s*#.*)?/ &&
			$2 == $next)
		    {
			my($not, $num, $extra) = ($1, $2, $3);
			my($istodo) = $extra =~ /^\s*#\s*TODO/ if $extra;
                        $istodo = 1 if $todo{$num};

			if( $not && !$istodo ) {
			    $ok = 0;
			    $next = $num;
			    last;
			}
			else {
			    $next = $next + 1;
			}
                    }
                    elsif (/^Bail out!\s*(.*)/i) { # magic words
                        die "FAILED--Further testing stopped" . ($1 ? ": $1\n" : ".\n");
		    }
		    else {
			$ok = 0;
		    }
		}
	    }
	}
	close RESULTS;
	if ($type eq 'deparse') {
	    unlink "./$test.dp";
	}
	if ($ENV{PERL_3LOG}) {
	    my $tpp = $test;
	    $tpp =~ s:^../::;
	    $tpp =~ s:/:_:g;
	    $tpp =~ s:\.t$::;
	    rename("perl.3log", "perl.3log.$tpp") ||
		die "rename: perl3.log to perl.3log.$tpp: $!\n";
	}
	$next = $next - 1;
	if ($ok && $next == $max) {
	    if ($max) {
		print "ok\n";
		$good = $good + 1;
	    }
	    else {
		print "skipping test on this platform\n";
		$files -= 1;
	    }
	}
	else {
	    $next += 1;
	    print "FAILED at test $next\n";
	    $bad = $bad + 1;
	    $_ = $test;
	    if (/^base/) {
		die "Failed a basic test--cannot continue.\n";
	    }
	}
    }

    if ($bad == 0) {
	if ($ok) {
	    print "All tests successful.\n";
	    # XXX add mention of 'perlbug -ok' ?
	}
	else {
	    die "FAILED--no tests were run for some reason.\n";
	}
    }
    else {
	$pct = $files ? sprintf("%.2f", ($files - $bad) / $files * 100) : "0.00";
	if ($bad == 1) {
	    warn "Failed 1 test script out of $files, $pct% okay.\n";
	}
	else {
	    warn "Failed $bad test scripts out of $files, $pct% okay.\n";
	}
	warn <<'SHRDLU';
   ### Since not all tests were successful, you may want to run some of
   ### them individually and examine any diagnostic messages they produce.
   ### See the INSTALL document's section on "make test".
SHRDLU
	warn <<'SHRDLU' if $good / $total > 0.8;
   ### You have a good chance to get more information by running
   ###     ./perl harness
   ### in the 't' directory since most (>=80%) of the tests succeeded.
SHRDLU
	use Config;
	if (my $p = $Config{ldlibpthname}) {
	    warn <<SHRDLU;
   ### You may have to set your dynamic library search path,
   ### $p, to point to the build directory:
SHRDLU
           if (exists $ENV{$p} && $ENV{$p} ne '') {
	       warn <<SHRDLU;
   ###     setenv $p `pwd`:\$$p; cd t; ./perl harness
   ###     $p=`pwd`:\$$p; export $p; cd t; ./perl harness
   ###     export $p=`pwd`:\$$p; cd t; ./perl harness
SHRDLU
            } else {
		warn <<SHRDLU;
   ###     setenv $p `pwd`; cd t; ./perl harness
   ###     $p=`pwd`; export $p; cd t; ./perl harness
   ###     export $p=`pwd`; cd t; ./perl harness
SHRDLU
            }    
	    warn <<SHRDLU;
   ### for csh-style shells, like tcsh; or for traditional/modern
   ### Bourne-style shells, like bash, ksh, and zsh, respectively.
SHRDLU
	}
    }
    ($user,$sys,$cuser,$csys) = times;
    print sprintf("u=%g  s=%g  cu=%g  cs=%g  scripts=%d  tests=%d\n",
	$user,$sys,$cuser,$csys,$files,$totmax);
}
exit ($bad != 0);
Commit	Line	Data
8d063cd8 LW	1	#!./perl
8d063cd8 LW	2
8d063cd8 LW	3	# This is written in a peculiar style, since we're trying to avoid
	4	# most of the constructs we'll be testing for.
	5
a687059c LW	6	$\| = 1;
a687059c LW	7
60e23f2f MS	8	# Let tests know they're running in the perl core. Useful for modules
	9	# which live dual lives on CPAN.
	10	$ENV{PERL_CORE} = 1;
	11
5d9a6404 MS	12	# Cheesy version of Getopt::Std. Maybe we should replace it with that.
	13	if ($#ARGV >= 0) {
	14	foreach my $idx (0..$#ARGV) {
485988ae	15	next unless $ARGV[$idx] =~ /^-(\S+)$/;
5a6e071d	16	$core = 1 if $1 eq 'core';
5d9a6404 MS	17	$verbose = 1 if $1 eq 'v';
5d9a6404 MS	18	$with_utf= 1 if $1 eq 'utf8';
485988ae RH	19	if ($1 =~ /^deparse(,.+)?$/) {
	20	$deparse = 1;
	21	$deparse_opts = $1;
	22	}
5d9a6404 MS	23	splice(@ARGV, $idx, 1);
5d9a6404 MS	24	}
8d063cd8 LW	25	}
8d063cd8 LW	26
378cc40b LW	27	chdir 't' if -f 't/TEST';
378cc40b LW	28
3e6e8be7	29	die "You need to run \"make test\" first to set things up.\n"
4633a7c4 LW	30	unless -e 'perl' or -e 'perl.exe';
4633a7c4 LW	31
7a315204	32	if ($ENV{PERL_3LOG}) { # Tru64 third(1) tool, see perlhack
09187cb1 JH	33	unless (-x 'perl.third') {
	34	unless (-x '../perl.third') {
	35	die "You need to run \"make perl.third first.\n";
	36	}
	37	else {
	38	print "Symlinking ../perl.third as perl.third...\n";
	39	die "Failed to symlink: $!\n"
	40	unless symlink("../perl.third", "perl.third");
	41	die "Symlinked but no executable perl.third: $!\n"
	42	unless -x 'perl.third';
	43	}
	44	}
	45	}
	46
3fb91a5e GS	47	# check leakage for embedders
	48	$ENV{PERL_DESTRUCT_LEVEL} = 2 unless exists $ENV{PERL_DESTRUCT_LEVEL};
	49
4633a7c4	50	$ENV{EMXSHELL} = 'sh'; # For OS/2
748a9306	51
24c841ba MS	52	# Roll your own File::Find!
	53	use TestInit;
	54	use File::Spec;
	55	my $curdir = File::Spec->curdir;
	56	my $updir = File::Spec->updir;
	57
	58	sub _find_tests {
	59	my($dir) = @_;
	60	opendir DIR, $dir \|\| die "Trouble opening $dir: $!";
a1886d87	61	foreach my $f (sort { $a cmp $b } readdir DIR) {
24c841ba MS	62	next if $f eq $curdir or $f eq $updir;
	63
	64	my $fullpath = File::Spec->catdir($dir, $f);
	65
	66	_find_tests($fullpath) if -d $fullpath;
	67	push @ARGV, $fullpath if $f =~ /\.t$/;
	68	}
	69	}
	70
	71	unless (@ARGV) {
5a6e071d	72	foreach my $dir (qw(base comp cmd run io op)) {
24c841ba MS	73	_find_tests($dir);
24c841ba MS	74	}
5a6e071d	75	_find_tests("lib") unless $core;
7a315204 JH	76	my $mani = File::Spec->catdir($updir, "MANIFEST");
7a315204 JH	77	if (open(MANI, $mani)) {
80ffb5f9	78	while (<MANI>) { # similar code in t/harness
b695f709	79	if (m!^(ext/\S+/([^/]+\.t\|test\.pl)\|lib/\S+?(\.t\|test\.pl))\s!) {
5a6e071d PJ	80	$t = $1;
	81	if (!$core \|\| $t =~ m!^lib/[a-z]!)
	82	{
73ddec28 RB	83	$path = File::Spec->catdir($updir, $t);
	84	push @ARGV, $path;
	85	$name{$path} = $t;
5a6e071d	86	}
7a315204 JH	87	}
	88	}
	89	} else {
	90	warn "$0: cannot open $mani: $!\n";
	91	}
b695f709	92	_find_tests('pod');
8d063cd8 LW	93	}
8d063cd8 LW	94
7a315204	95	# Tests known to cause infinite loops for the perlcc tests.
595ae481	96	# %infinite = ( 'comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 );
24c841ba	97	%infinite = ();
6ee623d5	98
485988ae RH	99	if ($deparse) {
	100	_testprogs('deparse', @ARGV);
	101	} else {
	102	_testprogs('perl', @ARGV);
	103	_testprogs('compile', @ARGV) if (-e "../testcompile");
	104	}
6ee623d5	105
bb365837 GS	106	sub _testprogs {
	107	$type = shift @_;
	108	@tests = @_;
6ee623d5	109
bb365837	110	print <<'EOT' if ($type eq 'compile');
7a315204	111	------------------------------------------------------------------------------
6ee623d5	112	TESTING COMPILER
7a315204	113	------------------------------------------------------------------------------
bb365837 GS	114	EOT
bb365837 GS	115
485988ae	116	print <<'EOT' if ($type eq 'deparse');
7a315204	117	------------------------------------------------------------------------------
485988ae	118	TESTING DEPARSER
7a315204	119	------------------------------------------------------------------------------
485988ae RH	120	EOT
485988ae RH	121
595ae481	122	$ENV{PERLCC_TIMEOUT} = 120
9636a016	123	if ($type eq 'compile' && !$ENV{PERLCC_TIMEOUT});
ef712cf7	124
bb365837 GS	125	$bad = 0;
	126	$good = 0;
	127	$total = @tests;
	128	$files = 0;
	129	$totmax = 0;
73ddec28 RB	130
	131	foreach (@tests) {
	132	$name{$_} = File::Spec->catdir('t',$_) unless exists $name{$_};
	133	}
908801fe	134	my $maxlen = 0;
73ddec28 RB	135	foreach (@name{@tests}) {
	136	s/\.\w+\z/./;
	137	my $len = length ;
	138	$maxlen = $len if $len > $maxlen;
088b5126	139	}
908801fe	140	# + 3 : we want three dots between the test name and the "ok"
73ddec28	141	$dotdotdot = $maxlen + 3 ;
bb365837 GS	142	while ($test = shift @tests) {
	143
	144	if ( $infinite{$test} && $type eq 'compile' ) {
595ae481	145	print STDERR "$test creates infinite loop! Skipping.\n";
bb365837	146	next;
6ee623d5	147	}
bb365837 GS	148	if ($test =~ /^$/) {
bb365837 GS	149	next;
6ee623d5	150	}
485988ae RH	151	if ($type eq 'deparse') {
	152	if ($test eq "comp/redef.t") {
	153	# Redefinition happens at compile time
	154	next;
	155	}
	156	elsif ($test eq "lib/switch.t") {
	157	# B::Deparse doesn't support source filtering
	158	next;
	159	}
	160	}
73ddec28	161	$te = $name{$test};
088b5126	162	print "$te" . '.' x ($dotdotdot - length($te));
bb365837	163
7a315204 JH	164	$test = $OVER{$test} if exists $OVER{$test};
7a315204 JH	165
d638aca2 GS	166	open(SCRIPT,"<$test") or die "Can't run $test.\n";
d638aca2 GS	167	$_ = <SCRIPT>;
485988ae	168	close(SCRIPT) unless ($type eq 'deparse');
d638aca2 GS	169	if (/#!.perl(.)$/) {
	170	$switch = $1;
	171	if ($^O eq 'VMS') {
	172	# Must protect uppercase switches with "" on command line
	173	$switch =~ s/-([A-Z]\S*)/"-$1"/g;
55497cff	174	}
135863df	175	}
bb365837	176	else {
d638aca2 GS	177	$switch = '';
d638aca2 GS	178	}
6ee623d5	179
485988ae RH	180	my $file_opts = "";
	181	if ($type eq 'deparse') {
	182	# Look for #line directives which change the filename
	183	while (<SCRIPT>) {
	184	$file_opts .= ",-f$3$4"
	185	if /^#\s*line\s+(\d+)\s+((\w+)\|"([^"]+)")/;
	186	}
	187	close(SCRIPT);
	188	}
7a315204	189
7a315204	190	my $utf = $with_utf ? '-I../lib -Mutf8' : '';
4343e7c3	191	my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
485988ae RH	192	if ($type eq 'deparse') {
	193	my $deparse =
	194	"./perl $testswitch $switch -I../lib -MO=-qq,Deparse,".
	195	"-l$deparse_opts$file_opts ".
7a315204 JH	196	"$test > $test.dp ".
7a315204 JH	197	"&& ./perl $testswitch $switch -I../lib $test.dp \|";
485988ae RH	198	open(RESULTS, $deparse)
	199	or print "can't deparse '$deparse': $!.\n";
	200	}
	201	elsif ($type eq 'perl') {
a7da9a42 JH	202	my $perl = $ENV{PERL} \|\| './perl';
a7da9a42 JH	203	my $run = "$perl $testswitch $switch $utf $test \|";
be24517c	204	open(RESULTS,$run) or print "can't run '$run': $!.\n";
d638aca2 GS	205	}
d638aca2 GS	206	else {
be24517c	207	my $compile =
4343e7c3	208	"./perl $testswitch -I../lib ../utils/perlcc -o ".
7a315204 JH	209	"$test.plc $utf $test ".
7a315204 JH	210	" && $test.plc \|";
be24517c JH	211	open(RESULTS, $compile)
be24517c JH	212	or print "can't compile '$compile': $!.\n";
7a315204	213	unlink "$test.plc";
6ee623d5	214	}
d638aca2	215
bb365837 GS	216	$ok = 0;
	217	$next = 0;
	218	while (<RESULTS>) {
	219	if ($verbose) {
	220	print $_;
	221	}
	222	unless (/^#/) {
809908f7	223	if (/^1\.\.([0-9]+)( todo ([\d ]+))?/) {
bb365837	224	$max = $1;
809908f7	225	%todo = map { $_ => 1 } split / /, $3 if $3;
bb365837 GS	226	$totmax += $max;
	227	$files += 1;
	228	$next = 1;
	229	$ok = 1;
	230	}
	231	else {
2fe373ce	232	if (/^(not )?ok (\d+)[^#](\s#.*)?/ &&
595ae481	233	$2 == $next)
37ce32a7 MS	234	{
	235	my($not, $num, $extra) = ($1, $2, $3);
	236	my($istodo) = $extra =~ /^\s#\sTODO/ if $extra;
809908f7	237	$istodo = 1 if $todo{$num};
37ce32a7 MS	238
	239	if( $not && !$istodo ) {
	240	$ok = 0;
	241	$next = $num;
	242	last;
	243	}
	244	else {
	245	$next = $next + 1;
	246	}
d667a7e6 A	247	}
	248	elsif (/^Bail out!\s(.)/i) { # magic words
	249	die "FAILED--Further testing stopped" . ($1 ? ": $1\n" : ".\n");
bb365837 GS	250	}
	251	else {
	252	$ok = 0;
	253	}
8d063cd8 LW	254	}
	255	}
	256	}
bb365837	257	close RESULTS;
485988ae RH	258	if ($type eq 'deparse') {
	259	unlink "./$test.dp";
	260	}
211f317f JH	261	if ($ENV{PERL_3LOG}) {
211f317f JH	262	my $tpp = $test;
a7da9a42	263	$tpp =~ s:^../::;
211f317f JH	264	$tpp =~ s:/:_:g;
211f317f JH	265	$tpp =~ s:\.t$::;
a7da9a42 JH	266	rename("perl.3log", "perl.3log.$tpp") \|\|
a7da9a42 JH	267	die "rename: perl3.log to perl.3log.$tpp: $!\n";
211f317f	268	}
bb365837 GS	269	$next = $next - 1;
	270	if ($ok && $next == $max) {
	271	if ($max) {
	272	print "ok\n";
	273	$good = $good + 1;
	274	}
	275	else {
	276	print "skipping test on this platform\n";
	277	$files -= 1;
	278	}
bcce72a7	279	}
bb365837 GS	280	else {
	281	$next += 1;
	282	print "FAILED at test $next\n";
	283	$bad = $bad + 1;
	284	$_ = $test;
	285	if (/^base/) {
	286	die "Failed a basic test--cannot continue.\n";
	287	}
8d063cd8 LW	288	}
8d063cd8 LW	289	}
8d063cd8	290
bb365837 GS	291	if ($bad == 0) {
	292	if ($ok) {
	293	print "All tests successful.\n";
	294	# XXX add mention of 'perlbug -ok' ?
	295	}
	296	else {
	297	die "FAILED--no tests were run for some reason.\n";
	298	}
8d063cd8	299	}
bb365837	300	else {
ba1398cf	301	$pct = $files ? sprintf("%.2f", ($files - $bad) / $files * 100) : "0.00";
bb365837	302	if ($bad == 1) {
e824fb2c	303	warn "Failed 1 test script out of $files, $pct% okay.\n";
bb365837 GS	304	}
bb365837 GS	305	else {
e824fb2c	306	warn "Failed $bad test scripts out of $files, $pct% okay.\n";
bb365837 GS	307	}
bb365837 GS	308	warn <<'SHRDLU';
e089c33f JH	309	### Since not all tests were successful, you may want to run some of
	310	### them individually and examine any diagnostic messages they produce.
	311	### See the INSTALL document's section on "make test".
f46c10df	312	SHRDLU
bb365837	313	warn <<'SHRDLU' if $good / $total > 0.8;
e089c33f	314	### You have a good chance to get more information by running
595ae481	315	### ./perl harness
e089c33f	316	### in the 't' directory since most (>=80%) of the tests succeeded.
3e6e8be7	317	SHRDLU
afd33fa9	318	use Config;
b3ec3848	319	if (my $p = $Config{ldlibpthname}) {
afd33fa9	320	warn <<SHRDLU;
e089c33f	321	### You may have to set your dynamic library search path,
b3ec3848 JH	322	### $p, to point to the build directory:
b3ec3848 JH	323	SHRDLU
0794a926	324	if (exists $ENV{$p} && $ENV{$p} ne '') {
b3ec3848 JH	325	warn <<SHRDLU;
	326	### setenv $p `pwd`:\$$p; cd t; ./perl harness
	327	### $p=`pwd`:\$$p; export $p; cd t; ./perl harness
	328	### export $p=`pwd`:\$$p; cd t; ./perl harness
	329	SHRDLU
	330	} else {
	331	warn <<SHRDLU;
	332	### setenv $p `pwd`; cd t; ./perl harness
	333	### $p=`pwd`; export $p; cd t; ./perl harness
	334	### export $p=`pwd`; cd t; ./perl harness
	335	SHRDLU
	336	}
	337	warn <<SHRDLU;
61d44243 JH	338	### for csh-style shells, like tcsh; or for traditional/modern
61d44243 JH	339	### Bourne-style shells, like bash, ksh, and zsh, respectively.
afd33fa9 JH	340	SHRDLU
afd33fa9 JH	341	}
bb365837 GS	342	}
	343	($user,$sys,$cuser,$csys) = times;
	344	print sprintf("u=%g s=%g cu=%g cs=%g scripts=%d tests=%d\n",
	345	$user,$sys,$cuser,$csys,$files,$totmax);
6ee623d5	346	}
3e6e8be7	347	exit ($bad != 0);