Solución del problema
Realmente depende de lo que esté tratando de hacer, pero aquí hay algunos antecedentes para gran parte de esto.
Primero, generalmente escribiría sus programas de prueba con Test::More o Test::Simple como el programa de prueba principal:
use Test::More tests => 2;
is 3, 3, 'basic equality should work';
ok!0, '... and zero should be false';
Internamente, se llama a Test::Builder para generar esos resultados de prueba como TAP ( Test Anything Protocol ). Test::Harness (un envoltorio delgado alrededor de TAP::Harness), lee e interpreta el TAP, diciéndole si sus pruebas pasaron o fallaron. La herramienta "probar" mencionada anteriormente se incluye con Test::Harness, así que digamos que guarde lo anterior en el directorio t/ (el directorio de prueba estándar de Perl) como "numbers.t", luego puede ejecutarlo con este comando:
prove --verbose t/numbers.t
O para ejecutar todas las pruebas en ese directorio (recursivamente, asumiendo que desea descender a los subdirectorios):
prove --verbose -r t/
(--verbose, por supuesto, es opcional).
Como nota al margen, no use TestUnit. Muchas personas lo recomiendan, pero se abandonó hace mucho tiempo y no se integra con las herramientas de prueba modernas.
No hay comentarios.:
Publicar un comentario