[p5sagit/p5-mst-13.2.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';
        $byte_compile = 1 if $1 eq 'bytecompile';
        $compile = 1 if $1 eq 'compile';
	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);
}
elsif( $compile || $byte_compile ) { 
    _testprogs('compile', '',   @ARGV) if $compile;
    _testprogs('compile', '-B', @ARGV) if $byte_compile;
}
else {
    _testprogs('compile', '',   @ARGV) if -e "../testcompile";
    _testprogs('perl',    '',   @ARGV);
}

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