runtests(@tests);
``ok N'' for each single
test, where N is an increasing sequence of integers. The first line
output by a standard test scxript is ``1..M'' with M being the
number of tests that should be run within the test
script. Test::Harness::runscripts(@tests) runs all the testscripts
named as arguments and checks standard output for the expected
``ok N'' strings.
After all tests have been performed, runscripts() prints some performance statistics that are computed by the Benchmark module.
/^\s*\#/) are
discarded. Lines containing /^(not\s+)?ok\b/ are interpreted as
feedback for runtests().
It is tolerated if the test numbers after ok are omitted. In this
case Test::Harness maintains temporarily its own counter until the
script supplies test numbers again. So the following test script
print <<END;
1..6
not ok
ok
not ok
ok
ok
END
will generate
The global variable $Test::Harness::verbose is exportable and can be used to let runscripts() display the standard output of the script without altering the behavior otherwise.
&runscripts is exported by Test::Harness per default.
#!) line may not be
portable because
$^
X is not consistent for shebang scripts across
platforms. This is no problem when Test::Harness is run with an
absolute path to the perl binary or when
$^
X can be found in the path.