Automatic Testing with Perl
Prev	Chapter 5. Basic Testing Framework in Perl	Next

5.14. Harness

This is a module that can analyse the ok / not ok printouts with the numbers. In particular it can analyse the output of Test::Simple, Test::More and all the Test::Builder based modules.

Example 5-22. examples/harness.pl

#!/usr/bin/perl
use strict;
use warnings;

use Test::Harness qw(runtests);

runtests @ARGV;

Run the previous test file using Test::Harness

$ perl ../harness.pl t13_calc.t

Example 5-23. examples/intro/t13_calc.harness.out

t13_calc....
#   Failed test '2 + 2 + 2'
#   in t13_calc.t at line 16.
# Looks like you failed 1 test of 7.
dubious
	Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 3
	Failed 1/7 tests, 85.71% okay
Failed Test Stat Wstat Total Fail  List of Failed
-------------------------------------------------------------------------------
t13_calc.t     1   256     7    1  3
Failed 1/1 test scripts. 1/7 subtests failed.
Files=1, Tests=7,  1 wallclock secs ( 0.12 cusr +  0.05 csys =  0.17 CPU)
Failed 1/1 test programs. 1/7 subtests failed.

Prev	Home (Copyright Gabor Szabo)	Next
Put the test cases in an external file	Up	Move external call into function

If you are interested in on-site trainings by the author, please contact me directly.