Sigue un ejemplo de ejecución. consideremos el fichero de entrada:
lhp@nereida:~/Lperl/src$ cat -n example1.input 1 Esta linea no se imprime 2 Esta linea si se imprime LHP 3 Esta no 4 Esta LHP si 5 __END__ 6 y se acabo LHP 7 esta linea tampoco sale 8al ejecutar el programa obtenemos:
lhp@nereida:~/Lperl/src$ cat example1.input | example1.pl Esta linea si se imprime LHP Esta LHP si
Es importante automatizar la prueba y guardarla junto con
la aplicación. La costumbre es guardarla con el sufijo .t
en un subdirectorio
t/
. Normalmente las pruebas usan la librería Test::More:
lhp@nereida:~/src/perl/src$ cat example1.t use Modern::Perl; use Test::More tests => 1; my $r = qx{cat example1.input | ./example1.pl 2>&1}; my $expected = << "EOS"; Esta linea si se imprime LHP Esta LHP si EOS is($r, $expected, "smoke test with example1.input");Ejecución de la prueba:
lhp@nereida:~/src/perl/src$ perl example1.t 1..1 ok 1 - smoke test with example1.input
Antes de seguir, responda a las siguientes preguntas:
lhp@nereida:~/Lperl/src$ cat -n muerte_prematura4.pl 1 #!/usr/local/bin/perl -w 2 use strict; 3 print while <STDIN>;Véase un ejemplo de ejecución:
lhp@nereida:~/Lperl/src$ cat -E mp4.in2 0$ $ 0$ lhp@nereida:~/Lperl/src$ cat mp4.in2 | muerte_prematura4.pl 0 0Explique la salida. Conteste a las siguientes preguntas:
0
: ¿Se terminará el bucle?
0
?
Casiano Rodríguez León