La idea de los Test es crear una batería de programas pequeños que validen que nuestra aplicación funciona, y que verifiquen que lo que hace, lo hace bien.
El cómo conseguirlo depende del programador. Los módulos lo único que hacen es hacer una serie de pruebas de las que conocen el resultado. Si el resultado es correcto, sacan un 'Ok' en pantalla. Si no, sacan el informe de errores. Al final, sacan el total de test que han pasado correctamente las pruebas.
Si quieres probar una función que no devuelve nada, deberás hacer una comprobación más tarde de que lo que ha hecho la función es correcto o no, y ese será el valor que entenderá el módulo de Test.
Ejemplo (extracto):
Using perl Syntax Highlighting
use Test::Simple tests => 23; # cargamos el módulo e indicamos que vamos a realizar 23 test
ok(
funcion() && comprobacion(), # llamamos a la función, y luego a la comprobación
"Prueba de funcion()", # mensaje que sale en pantalla, al lado del resultado
);
sub funcion {
system("perl programa.pl argumentos..."); # llamamos a nuestro programa
}
sub comprobacion {
my $resultado = qx("perl comprobacion.pl argumentos..."); # ejecutamos la comprobación
if ($resultado =~ /Ok/) { # si el resultado es correcto,
return 1; # devolvemos valor verdadero
}
else { # sino,
return; # falso.
}
}
Coloreado en 0.006 segundos, usando
GeSHi 1.0.8.4
Ahí vemos que llamamos a tu programa y que luego ejecuta otro que debe comprobar si el primero lo ha hecho bien. Según lo que devuelva, ok() sacará en pantalla un mensaje de correcto o no.
Como ves, a cada acción que quieres comprobar, debes crear otro programa que compruebe el resultado.
O, si el programa devuelve una salida según una cierta entrada, puedes probarlo directamente, comprobando que siempre devuelve lo esperado para una entrada conocida.
Esto es lo que nosotros usamos como comprobación de instalación y funcionamiento de
POD2::ES.
Using perl Syntax Highlighting
use Test::More tests => 2;
BEGIN { use_ok('POD2::ES') };
my $pod2 = POD2::ES->new();
like($pod2->search_perlfunc_re(), qr/^Lista de funciones de Perl/, 'Texto cabecera de perlfunc');
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Esto se ejecuta en el momento de la instalación de POD2::ES.
Primero indicamos que vamos a realizar dos test.
El primero (
use_ok()) está en el BEGIN{}, y comprueba que el módulo POD2::ES ha sido correctamente instalado.
El segundo (
like()) comprueba que la llamada al método search_perlfunc_re() devuelve un texto coincidente con el patrón '^Lista de funciones de Perl'.
Si estas dos pruebas devuelven resultados correctos, entonces puedo decir que el módulo está instalado, y que funciona bien, con el Perl y en el sistema informático del usuario.
Este ejemplo se refiere al uso de un módulo externo, pero los módulos de Test se pueden aplicar a cualquier cosa, como por ejemplo, tu caso. Solo tienes que definir qué argumentos le das a tu programa y qué salidas (o cómo han de ser esas salidas) debe devolver. Los módulos de Test lo que hacen es ejecutar esa batería de comprobaciones y dar un resumen de los aciertos y fallos.
