This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix occasional op/time.t failure
[perl5.git] / t / TEST
CommitLineData
8d063cd8
LW
1#!./perl
2
8d063cd8 3# This is written in a peculiar style, since we're trying to avoid
1de9afcd
RGS
4# most of the constructs we'll be testing for. (This comment is
5# probably obsolete on the avoidance side, though still currrent
6# on the peculiarity side.)
8d063cd8 7
a687059c
LW
8$| = 1;
9
80ed0dea
DM
10# for testing TEST only
11#BEGIN { require '../lib/strict.pm'; strict->import() };
12#BEGIN { require '../lib/warnings.pm'; warnings->import() };
13
60e23f2f
MS
14# Let tests know they're running in the perl core. Useful for modules
15# which live dual lives on CPAN.
16$ENV{PERL_CORE} = 1;
17
cc6ae9e5
CB
18# remove empty elements due to insertion of empty symbols via "''p1'" syntax
19@ARGV = grep($_,@ARGV) if $^O eq 'VMS';
551405c4 20our $show_elapsed_time = $ENV{HARNESS_TIMER} || 0;
cc6ae9e5 21
5d9a6404 22# Cheesy version of Getopt::Std. Maybe we should replace it with that.
80ed0dea
DM
23{
24 my @argv = ();
5d9a6404 25 foreach my $idx (0..$#ARGV) {
b326da91 26 push( @argv, $ARGV[$idx] ), next unless $ARGV[$idx] =~ /^-(\S+)$/;
80ed0dea
DM
27 $::core = 1 if $1 eq 'core';
28 $::verbose = 1 if $1 eq 'v';
29 $::torture = 1 if $1 eq 'torture';
30 $::with_utf8 = 1 if $1 eq 'utf8';
31 $::with_utf16 = 1 if $1 eq 'utf16';
80ed0dea 32 $::taintwarn = 1 if $1 eq 'taintwarn';
43651d81 33 $ENV{PERL_CORE_MINITEST} = 1 if $1 eq 'minitest';
485988ae 34 if ($1 =~ /^deparse(,.+)?$/) {
80ed0dea
DM
35 $::deparse = 1;
36 $::deparse_opts = $1;
485988ae 37 }
5d9a6404 38 }
80ed0dea 39 @ARGV = @argv;
8d063cd8
LW
40}
41
378cc40b
LW
42chdir 't' if -f 't/TEST';
43
3e6e8be7 44die "You need to run \"make test\" first to set things up.\n"
196918b0 45 unless -e 'perl' or -e 'perl.exe' or -e 'perl.pm';
4633a7c4 46
7a315204 47if ($ENV{PERL_3LOG}) { # Tru64 third(1) tool, see perlhack
09187cb1
JH
48 unless (-x 'perl.third') {
49 unless (-x '../perl.third') {
50 die "You need to run \"make perl.third first.\n";
51 }
52 else {
53 print "Symlinking ../perl.third as perl.third...\n";
54 die "Failed to symlink: $!\n"
55 unless symlink("../perl.third", "perl.third");
56 die "Symlinked but no executable perl.third: $!\n"
57 unless -x 'perl.third';
58 }
59 }
60}
61
3fb91a5e
GS
62# check leakage for embedders
63$ENV{PERL_DESTRUCT_LEVEL} = 2 unless exists $ENV{PERL_DESTRUCT_LEVEL};
64
4633a7c4 65$ENV{EMXSHELL} = 'sh'; # For OS/2
748a9306 66
24c841ba
MS
67# Roll your own File::Find!
68use TestInit;
69use File::Spec;
28ffa55a 70if ($show_elapsed_time) { require Time::HiRes }
24c841ba
MS
71my $curdir = File::Spec->curdir;
72my $updir = File::Spec->updir;
73
74sub _find_tests {
75 my($dir) = @_;
93e325a7 76 opendir DIR, $dir or die "Trouble opening $dir: $!";
a1886d87 77 foreach my $f (sort { $a cmp $b } readdir DIR) {
f458b6e8 78 next if $f eq $curdir or $f eq $updir or
0b834283 79 $f =~ /^(?:CVS|RCS|SCCS|\.svn)$/;
24c841ba 80
f458b6e8 81 my $fullpath = File::Spec->catfile($dir, $f);
24c841ba 82
f458b6e8
MS
83 _find_tests($fullpath) if -d $fullpath;
84 $fullpath = VMS::Filespec::unixify($fullpath) if $^O eq 'VMS';
85 push @ARGV, $fullpath if $f =~ /\.t$/;
24c841ba
MS
86 }
87}
88
cc6ae9e5
CB
89sub _quote_args {
90 my ($args) = @_;
91 my $argstring = '';
92
93 foreach (split(/\s+/,$args)) {
94 # In VMS protect with doublequotes because otherwise
95 # DCL will lowercase -- unless already doublequoted.
96 $_ = q(").$_.q(") if ($^O eq 'VMS') && !/^\"/ && length($_) > 0;
97 $argstring .= ' ' . $_;
98 }
99 return $argstring;
100}
101
6234cb77
NC
102sub _populate_hash {
103 return map {$_, 1} split /\s+/, $_[0];
104}
105
24c841ba 106unless (@ARGV) {
9f3d340b 107 foreach my $dir (qw(base comp cmd run io op uni)) {
f458b6e8 108 _find_tests($dir);
24c841ba 109 }
80ed0dea 110 _find_tests("lib") unless $::core;
6234cb77
NC
111 # Config.pm may be broken for make minitest. And this is only a refinement
112 # for skipping tests on non-default builds, so it is allowed to fail.
113 # What we want to to is make a list of extensions which we did not build.
114 my $configsh = File::Spec->catfile($updir, "config.sh");
115 my %skip;
116 if (-f $configsh) {
117 my (%extensions, %known_extensions);
118 open FH, $configsh or die "Can't open $configsh: $!";
119 while (<FH>) {
120 if (/^extensions=['"](.*)['"]$/) {
121 # Deliberate string interpolation to avoid triggering possible
122 # $1 resetting bugs.
123 %extensions = _populate_hash ("$1");
124 }
125 elsif (/^known_extensions=['"](.*)['"]$/) {
126 %known_extensions = _populate_hash ($1);
127 }
128 }
129 if (%extensions) {
130 if (%known_extensions) {
131 foreach (keys %known_extensions) {
132 $skip{$_}++ unless $extensions{$_};
133 }
134 } else {
135 warn "No known_extensions line found in $configsh";
136 }
137 } else {
138 warn "No extensions line found in $configsh";
139 }
140 }
cc6ae9e5 141 my $mani = File::Spec->catfile($updir, "MANIFEST");
7a315204 142 if (open(MANI, $mani)) {
00701878 143 my $ext_pat = $^O eq 'MSWin32' ? '(?:win32/)?ext' : 'ext';
f458b6e8 144 while (<MANI>) { # similar code in t/harness
00701878 145 if (m!^($ext_pat/(\S+)/+(?:[^/\s]+\.t|test\.pl)|lib/\S+?(?:\.t|test\.pl))\s!) {
80ed0dea
DM
146 my $t = $1;
147 my $extension = $2;
148 if (!$::core || $t =~ m!^lib/[a-z]!)
5a6e071d 149 {
6234cb77
NC
150 if (defined $extension) {
151 $extension =~ s!/t$!!;
152 # XXX Do I want to warn that I'm skipping these?
153 next if $skip{$extension};
154 }
80ed0dea 155 my $path = File::Spec->catfile($updir, $t);
73ddec28 156 push @ARGV, $path;
80ed0dea 157 $::path_to_name{$path} = $t;
5a6e071d 158 }
7a315204
JH
159 }
160 }
35d88760 161 close MANI;
7a315204 162 } else {
f458b6e8 163 warn "$0: cannot open $mani: $!\n";
7a315204 164 }
80ed0dea 165 unless ($::core) {
d44161bf 166 _find_tests('pod');
e018f8be 167 _find_tests('x2p');
80ed0dea 168 _find_tests('japh') if $::torture;
e018f8be 169 }
8d063cd8
LW
170}
171
80ed0dea 172if ($::deparse) {
f193aa2f
MS
173 _testprogs('deparse', '', @ARGV);
174}
80ed0dea 175elsif ($::with_utf16) {
1de9afcd
RGS
176 for my $e (0, 1) {
177 for my $b (0, 1) {
178 print STDERR "# ENDIAN $e BOM $b\n";
179 my @UARGV;
180 for my $a (@ARGV) {
181 my $u = $a . "." . ($e ? "l" : "b") . "e" . ($b ? "b" : "");
182 my $f = $e ? "v" : "n";
183 push @UARGV, $u;
184 unlink($u);
185 if (open(A, $a)) {
186 if (open(U, ">$u")) {
90f6ca78 187 print U pack("$f", 0xFEFF) if $b;
1de9afcd
RGS
188 while (<A>) {
189 print U pack("$f*", unpack("C*", $_));
190 }
80ed0dea 191 close(U);
1de9afcd 192 }
80ed0dea 193 close(A);
1de9afcd
RGS
194 }
195 }
196 _testprogs('perl', '', @UARGV);
197 unlink(@UARGV);
198 }
199 }
200}
f193aa2f 201else {
f193aa2f 202 _testprogs('perl', '', @ARGV);
485988ae 203}
6ee623d5 204
bb365837 205sub _testprogs {
80ed0dea 206 my ($type, $args, @tests) = @_;
6ee623d5 207
485988ae 208 print <<'EOT' if ($type eq 'deparse');
7a315204 209------------------------------------------------------------------------------
485988ae 210TESTING DEPARSER
7a315204 211------------------------------------------------------------------------------
485988ae
RH
212EOT
213
80ed0dea 214 $::bad_files = 0;
73ddec28 215
cc6ae9e5 216 foreach my $t (@tests) {
80ed0dea 217 unless (exists $::path_to_name{$t}) {
f458b6e8
MS
218 my $tname = File::Spec->catfile('t',$t);
219 $tname = VMS::Filespec::unixify($tname) if $^O eq 'VMS';
220 $::path_to_name{$t} = $tname;
cc6ae9e5 221 }
73ddec28 222 }
908801fe 223 my $maxlen = 0;
80ed0dea 224 foreach (@::path_to_name{@tests}) {
73ddec28
RB
225 s/\.\w+\z/./;
226 my $len = length ;
227 $maxlen = $len if $len > $maxlen;
088b5126 228 }
908801fe 229 # + 3 : we want three dots between the test name and the "ok"
80ed0dea 230 my $dotdotdot = $maxlen + 3 ;
7a834142 231 my $valgrind = 0;
da51b73c 232 my $valgrind_log = 'current.valgrind';
80ed0dea
DM
233 my $total_files = @tests;
234 my $good_files = 0;
235 my $tested_files = 0;
236 my $totmax = 0;
ade55ef4 237 my %failed_tests;
80ed0dea 238
551405c4 239 while (my $test = shift @tests) {
28ffa55a 240 my $test_start_time = $show_elapsed_time ? Time::HiRes::time() : 0;
bb365837 241
bb365837
GS
242 if ($test =~ /^$/) {
243 next;
6ee623d5 244 }
485988ae
RH
245 if ($type eq 'deparse') {
246 if ($test eq "comp/redef.t") {
247 # Redefinition happens at compile time
248 next;
249 }
7a834142 250 elsif ($test =~ m{lib/Switch/t/}) {
485988ae
RH
251 # B::Deparse doesn't support source filtering
252 next;
253 }
254 }
80ed0dea
DM
255 my $te = $::path_to_name{$test} . '.'
256 x ($dotdotdot - length($::path_to_name{$test}));
cc6ae9e5
CB
257
258 if ($^O ne 'VMS') { # defer printing on VMS due to piping bug
259 print $te;
260 $te = '';
261 }
bb365837 262
80ed0dea
DM
263 # XXX DAPM %OVER not defined anywhere
264 # $test = $OVER{$test} if exists $OVER{$test};
7a315204 265
551405c4 266 open(SCRIPT,"<",$test) or die "Can't run $test.\n";
f458b6e8
MS
267 $_ = <SCRIPT>;
268 close(SCRIPT) unless ($type eq 'deparse');
80ed0dea 269 if ($::with_utf16) {
90f6ca78
RGS
270 $_ =~ tr/\0//d;
271 }
80ed0dea 272 my $switch;
f458b6e8
MS
273 if (/#!.*\bperl.*\s-\w*([tT])/) {
274 $switch = qq{"-$1"};
275 }
276 else {
80ed0dea 277 if ($::taintwarn) {
b26492ee
RGS
278 # not all tests are expected to pass with this option
279 $switch = '"-t"';
280 }
281 else {
282 $switch = '';
283 }
f458b6e8 284 }
6ee623d5 285
485988ae
RH
286 my $file_opts = "";
287 if ($type eq 'deparse') {
288 # Look for #line directives which change the filename
289 while (<SCRIPT>) {
290 $file_opts .= ",-f$3$4"
291 if /^#\s*line\s+(\d+)\s+((\w+)|"([^"]+)")/;
292 }
293 close(SCRIPT);
294 }
7a315204 295
80ed0dea 296 my $utf8 = $::with_utf8 ? '-I../lib -Mutf8' : '';
4343e7c3 297 my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
485988ae 298 if ($type eq 'deparse') {
80ed0dea 299 my $deparse_cmd =
127212b2 300 "./perl $testswitch $switch -I../lib -MO=-qq,Deparse,-sv1.,".
80ed0dea 301 "-l$::deparse_opts$file_opts ".
7a315204
JH
302 "$test > $test.dp ".
303 "&& ./perl $testswitch $switch -I../lib $test.dp |";
80ed0dea
DM
304 open(RESULTS, $deparse_cmd)
305 or print "can't deparse '$deparse_cmd': $!.\n";
485988ae
RH
306 }
307 elsif ($type eq 'perl') {
a7da9a42 308 my $perl = $ENV{PERL} || './perl';
da51b73c 309 my $redir = $^O eq 'VMS' ? '2>&1' : '';
7a834142 310 if ($ENV{PERL_VALGRIND}) {
4f9287d3 311 my $valgrind = $ENV{VALGRIND} // 'valgrind';
3068023c
JC
312 my $vg_opts = $ENV{VG_OPTS}
313 // "--suppressions=perl.supp --leak-check=yes "
314 . "--leak-resolution=high --show-reachable=yes "
315 . "--num-callers=50";
316 $perl = "$valgrind --log-fd=3 $vg_opts $perl";
da51b73c 317 $redir = "3>$valgrind_log";
7a834142 318 }
80ed0dea
DM
319 my $run = "$perl" . _quote_args("$testswitch $switch $utf8")
320 . " $test $redir|";
be24517c 321 open(RESULTS,$run) or print "can't run '$run': $!.\n";
d638aca2 322 }
9c8d215a
NC
323 # Our environment may force us to use UTF-8, but we can't be sure that
324 # anything we're reading from will be generating (well formed) UTF-8
325 # This may not be the best way - possibly we should unset ${^OPEN} up
326 # top?
327 binmode RESULTS;
d638aca2 328
f458b6e8
MS
329 my $failure;
330 my $next = 0;
331 my $seen_leader = 0;
332 my $seen_ok = 0;
20f82676 333 my $trailing_leader = 0;
80ed0dea 334 my $max;
43fe0836 335 my %todo;
bb365837 336 while (<RESULTS>) {
cc6ae9e5 337 next if /^\s*$/; # skip blank lines
80ed0dea 338 if ($::verbose) {
bb365837
GS
339 print $_;
340 }
21c74f43 341 unless (/^\#/) {
20f82676
DM
342 if ($trailing_leader) {
343 # shouldn't be anything following a postfix 1..n
a5890677 344 $failure = 'FAILED--extra output after trailing 1..n';
20f82676
DM
345 last;
346 }
809908f7 347 if (/^1\.\.([0-9]+)( todo ([\d ]+))?/) {
20f82676 348 if ($seen_leader) {
a5890677 349 $failure = 'FAILED--seen duplicate leader';
20f82676
DM
350 last;
351 }
bb365837 352 $max = $1;
f458b6e8 353 %todo = map { $_ => 1 } split / /, $3 if $3;
bb365837 354 $totmax += $max;
80ed0dea 355 $tested_files++;
f458b6e8 356 if ($seen_ok) {
20f82676
DM
357 # 1..n appears at end of file
358 $trailing_leader = 1;
359 if ($next != $max) {
a5890677 360 $failure = "FAILED--expected $max tests, saw $next";
20f82676
DM
361 last;
362 }
363 }
364 else {
365 $next = 0;
366 }
f458b6e8 367 $seen_leader = 1;
bb365837
GS
368 }
369 else {
f458b6e8 370 if (/^(not )?ok(?: (\d+))?[^\#]*(\s*\#.*)?/) {
21c74f43
A
371 unless ($seen_leader) {
372 unless ($seen_ok) {
20f82676 373 $next = 0;
21c74f43 374 }
37ce32a7 375 }
21c74f43 376 $seen_ok = 1;
20f82676 377 $next++;
f458b6e8
MS
378 my($not, $num, $extra, $istodo) = ($1, $2, $3, 0);
379 $num = $next unless $num;
380
381 if ($num == $next) {
382
eac7c728
MB
383 # SKIP is essentially the same as TODO for t/TEST
384 # this still conforms to TAP:
385 # http://search.cpan.org/dist/Test-Harness/lib/Test/Harness/TAP.pod
386 $extra and $istodo = $extra =~ /#\s*(?:TODO|SKIP)\b/;
21c74f43
A
387 $istodo = 1 if $todo{$num};
388
389 if( $not && !$istodo ) {
20f82676 390 $failure = "FAILED at test $num";
21c74f43
A
391 last;
392 }
20f82676
DM
393 }
394 else {
f458b6e8 395 $failure ="FAILED--expected test $next, saw test $num";
20f82676 396 last;
37ce32a7 397 }
f458b6e8
MS
398 }
399 elsif (/^Bail out!\s*(.*)/i) { # magic words
400 die "FAILED--Further testing stopped" . ($1 ? ": $1\n" : ".\n");
bb365837
GS
401 }
402 else {
dbf51d07
YST
403 # module tests are allowed extra output,
404 # because Test::Harness allows it
405 next if $test =~ /^\W*(ext|lib)\b/;
a5890677 406 $failure = "FAILED--unexpected output at test $next";
20f82676 407 last;
bb365837 408 }
8d063cd8
LW
409 }
410 }
411 }
bb365837 412 close RESULTS;
20f82676
DM
413
414 if (not defined $failure) {
a5890677 415 $failure = 'FAILED--no leader found' unless $seen_leader;
20f82676
DM
416 }
417
7a834142 418 if ($ENV{PERL_VALGRIND}) {
da51b73c
MHM
419 my @valgrind;
420 if (-e $valgrind_log) {
421 if (open(V, $valgrind_log)) {
422 @valgrind = <V>;
423 close V;
424 } else {
425 warn "$0: Failed to open '$valgrind_log': $!\n";
426 }
427 }
3068023c
JC
428 if ($ENV{VG_OPTS} =~ /cachegrind/) {
429 if (rename $valgrind_log, "$test.valgrind") {
430 $valgrind++;
431 } else {
432 warn "$0: Failed to create '$test.valgrind': $!\n";
433 }
434 }
435 elsif (@valgrind) {
d44161bf
MHM
436 my $leaks = 0;
437 my $errors = 0;
7a834142
JH
438 for my $i (0..$#valgrind) {
439 local $_ = $valgrind[$i];
d44161bf
MHM
440 if (/^==\d+== ERROR SUMMARY: (\d+) errors? /) {
441 $errors += $1; # there may be multiple error summaries
442 } elsif (/^==\d+== LEAK SUMMARY:/) {
443 for my $off (1 .. 4) {
444 if ($valgrind[$i+$off] =~
445 /(?:lost|reachable):\s+\d+ bytes in (\d+) blocks/) {
446 $leaks += $1;
447 }
448 }
7a834142
JH
449 }
450 }
d44161bf 451 if ($errors or $leaks) {
da51b73c 452 if (rename $valgrind_log, "$test.valgrind") {
d44161bf
MHM
453 $valgrind++;
454 } else {
455 warn "$0: Failed to create '$test.valgrind': $!\n";
7a834142
JH
456 }
457 }
458 } else {
459 warn "No valgrind output?\n";
460 }
da51b73c
MHM
461 if (-e $valgrind_log) {
462 unlink $valgrind_log
463 or warn "$0: Failed to unlink '$valgrind_log': $!\n";
464 }
7a834142 465 }
485988ae
RH
466 if ($type eq 'deparse') {
467 unlink "./$test.dp";
468 }
211f317f
JH
469 if ($ENV{PERL_3LOG}) {
470 my $tpp = $test;
3716a21d 471 $tpp =~ s:^\.\./::;
9c54ecba 472 $tpp =~ s:/:_:g;
3716a21d
JH
473 $tpp =~ s:\.t$:.3log:;
474 rename("perl.3log", $tpp) ||
475 die "rename: perl3.log to $tpp: $!\n";
211f317f 476 }
20f82676 477 if (not defined $failure and $next != $max) {
a5890677 478 $failure="FAILED--expected $max tests, saw $next";
20f82676
DM
479 }
480
481 if (defined $failure) {
482 print "${te}$failure\n";
483 $::bad_files++;
ade55ef4
AL
484 if ($test =~ /^base/) {
485 die "Failed a basic test ($test) -- cannot continue.\n";
20f82676 486 }
ade55ef4 487 ++$failed_tests{$test};
20f82676
DM
488 }
489 else {
bb365837 490 if ($max) {
551405c4
AL
491 my $elapsed;
492 if ( $show_elapsed_time ) {
493 $elapsed = sprintf( " %8.0f ms", (Time::HiRes::time() - $test_start_time) * 1000 );
494 }
495 else {
496 $elapsed = "";
497 }
498 print "${te}ok$elapsed\n";
80ed0dea 499 $good_files++;
bb365837
GS
500 }
501 else {
cc6ae9e5 502 print "${te}skipping test on this platform\n";
80ed0dea 503 $tested_files -= 1;
bb365837 504 }
bcce72a7 505 }
551405c4 506 } # while tests
8d063cd8 507
80ed0dea 508 if ($::bad_files == 0) {
20f82676 509 if ($good_files) {
bb365837
GS
510 print "All tests successful.\n";
511 # XXX add mention of 'perlbug -ok' ?
512 }
513 else {
514 die "FAILED--no tests were run for some reason.\n";
515 }
8d063cd8 516 }
bb365837 517 else {
80ed0dea 518 my $pct = $tested_files ? sprintf("%.2f", ($tested_files - $::bad_files) / $tested_files * 100) : "0.00";
ade55ef4
AL
519 my $s = $::bad_files == 1 ? "" : "s";
520 warn "Failed $::bad_files test$s out of $tested_files, $pct% okay.\n";
521 for my $test ( sort keys %failed_tests ) {
522 print "\t$test\n";
bb365837 523 }
4e4732c1 524 warn <<'SHRDLU_1';
f7d228c6
JH
525### Since not all tests were successful, you may want to run some of
526### them individually and examine any diagnostic messages they produce.
527### See the INSTALL document's section on "make test".
4e4732c1 528SHRDLU_1
80ed0dea 529 warn <<'SHRDLU_2' if $good_files / $total_files > 0.8;
f7d228c6
JH
530### You have a good chance to get more information by running
531### ./perl harness
532### in the 't' directory since most (>=80%) of the tests succeeded.
4e4732c1 533SHRDLU_2
f458b6e8 534 if (eval {require Config; import Config; 1}) {
80ed0dea 535 if ($::Config{usedl} && (my $p = $::Config{ldlibpthname})) {
4e4732c1 536 warn <<SHRDLU_3;
f7d228c6
JH
537### You may have to set your dynamic library search path,
538### $p, to point to the build directory:
4e4732c1 539SHRDLU_3
f458b6e8 540 if (exists $ENV{$p} && $ENV{$p} ne '') {
4e4732c1 541 warn <<SHRDLU_4a;
f7d228c6
JH
542### setenv $p `pwd`:\$$p; cd t; ./perl harness
543### $p=`pwd`:\$$p; export $p; cd t; ./perl harness
544### export $p=`pwd`:\$$p; cd t; ./perl harness
4e4732c1 545SHRDLU_4a
f458b6e8 546 } else {
4e4732c1 547 warn <<SHRDLU_4b;
f7d228c6
JH
548### setenv $p `pwd`; cd t; ./perl harness
549### $p=`pwd`; export $p; cd t; ./perl harness
550### export $p=`pwd`; cd t; ./perl harness
4e4732c1 551SHRDLU_4b
f458b6e8 552 }
4e4732c1 553 warn <<SHRDLU_5;
f7d228c6
JH
554### for csh-style shells, like tcsh; or for traditional/modern
555### Bourne-style shells, like bash, ksh, and zsh, respectively.
4e4732c1 556SHRDLU_5
f458b6e8 557 }
afd33fa9 558 }
bb365837 559 }
80ed0dea 560 my ($user,$sys,$cuser,$csys) = times;
f47304e9 561 print sprintf("u=%.2f s=%.2f cu=%.2f cs=%.2f scripts=%d tests=%d\n",
80ed0dea 562 $user,$sys,$cuser,$csys,$tested_files,$totmax);
7a834142
JH
563 if ($ENV{PERL_VALGRIND}) {
564 my $s = $valgrind == 1 ? '' : 's';
565 print "$valgrind valgrind report$s created.\n", ;
566 }
6ee623d5 567}
80ed0dea 568exit ($::bad_files != 0);
ade55ef4
AL
569
570# ex: set ts=8 sts=4 sw=4 noet: