[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;

# 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]!)
		{
		    push @ARGV, $t;
		    $OVER{$t} = File::Spec->catdir($updir, $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;
    my $maxlen = 0;
    my $maxsuflen = 0;
    foreach (@tests) { # The same code in lib/Test/Harness.pm:_run_all_tests
	my $suf    = /\.(\w+)$/ ? $1 : '';
	my $len    = length;
	my $suflen = length $suf;
	$maxlen    = $len    if $len    > $maxlen;
	$maxsuflen = $suflen if $suflen > $maxsuflen;
    }
    # + 3 : we want three dots between the test name and the "ok"
    $dotdotdot = $maxlen + 3 - $maxsuflen;
    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 = $test;
	$te =~ s/\.\w+$/./;
	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);
	}

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

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