La Subrutina test_harness

El módulo ExtUtils::Command::MM de la distribución ExtUtils::MakeMaker proporciona la función test_harness la cual tiene dos argumentos:

test_harness($verbose, @test_libs)

Lo que hace es ejecutar todas las pruebas usando un módulo denominado Test::Harness . Si verbose se pone a 1 se obtiene información mas completa:

:~/Lperl/src/threads/knapsack/Algorithm-Knap01DP$ PERL_DL_NONLAZY=1 /usr/bin/perl \
    "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib/lib', 'blib/arch')" t/*.t
t/01MartelloAndTothBook....1..11
ok 1 - use Algorithm::Knap01DP qw/Knap01DP ReadKnap/;;
ok 2 - ReadKnap knap21.dat
ok 3 - Knap01DP knap21.dat
ok 4 - ReadKnap knap22.dat
ok 5 - Knap01DP knap22.dat
ok 6 - ReadKnap knap23.dat
ok 7 - Knap01DP knap23.dat
ok 8 - ReadKnap knap25.dat
ok 9 - Knap01DP knap25.dat
ok 10
not ok 11 - Algorithm::Knap01DP->can('GenKnap') # TODO Randomly generated problem

#     Failed (TODO) test (t/01MartelloAndTothBook.t at line 44)
#     Algorithm::Knap01DP->can('GenKnap') failed
ok
All tests successful.
Files=1, Tests=11,  0 wallclock secs ( 0.08 cusr +  0.02 csys =  0.10 CPU)