El siguiente programa muestra un guión sencillo que permite ejecutar las pruebas en un conjunto de máquinas remotas con las que se ha establecido un sistema de autentificación automática. Al ejecutar el programa se transfiere la distribución, se desempaqueta y se pasan las pruebas sobre cada máquina:
lhp@nereida:~/Lperl/src/perl_testing_adn_examples/chapter_03/Algorithm-Knap01DP-0.25$ make remotetest remotetest.pl Algorithm-Knap01DP-0.25.tar.gz orion beowulf ************orion************ Checking if your kit is complete... Looks good Writing Makefile for Algorithm::Knap01DP cp lib/Algorithm/Knap01DP.pm blib/lib/Algorithm/Knap01DP.pm Manifying blib/man3/Algorithm::Knap01DP.3pm PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" \ "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/01alltests....ok t/02bench.......ok 1/2 skipped: Algorithm::Knapsack not installed All tests successful, 1 subtest skipped. Files=2, Tests=16, 0 wallclock secs ( 0.10 cusr + 0.01 csys = 0.11 CPU) ************beowulf************ Checking if your kit is complete... Looks good Writing Makefile for Algorithm::Knap01DP cp lib/Algorithm/Knap01DP.pm blib/lib/Algorithm/Knap01DP.pm Manifying blib/man3/Algorithm::Knap01DP.3pm PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" \ "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t t/01alltests....ok t/02bench.......ok 1/2 skipped: various reasons All tests successful, 1 subtest skipped. Files=2, Tests=16, 0 wallclock secs ( 0.11 cusr + 0.01 csys = 0.12 CPU) lhp@nereida:~/Lperl/src/perl_testing_adn_examples/chapter_03/Algorithm-Knap01DP-0.25$
Casiano Rodríguez León