¿Cómo puedo hacer pruebas unitarias en Perl?

Question

He estado haciendo algunos programas OO Perl y me preguntaba: ¿cuál es la mejor manera de realizar pruebas unitarias?

Hasta ahora he estado usando el módulo Test::Simple para realizar pruebas, pero me parece insuficiente para lo que deseo.

¿Me pueden indicar algunos módulos agradables para eso?

Answer 1

me gustaría añadir mi voto a recoger Test::More antes de seguir adelante en las pruebas de Perl. El Perl testing community está bastante bien unido alrededor del Test Anything Protocol, y querrá jugar con Test::More para comprender cómo funciona y cómo las herramientas como prove y Test::Harness::Archive pueden ayudar a automatizar y distribuir las pruebas.

Si quiere simplemente "saltar directamente", creo que Test::Class proporciona instalaciones de xTest con un backend TAP. No lo he usado en absoluto (soy una persona Test::More), pero es very highly rated.

Answer 2

Prueba :: More debería ofrecerle más dinero por su dinero una vez que se acostumbre a Test :: Simple.

También puede hacer referencia a esta discusión anterior por su servidor si desea más información: how-can-i-implement-tdd-in-perl

Answer 3

A juzgar por sus comentarios sobre la respuesta de melaos, yo diría que Test::Class o Test::Unit es lo que está buscando.

Answer 4

ejemplo de prueba simple:

uso

#!/usr/bin/perl -w 

use strict; 
use warnings 'all'; 
use Test::More plan => 4; # or use Test::More 'no_plan'; 

use_ok('My::Module', 'Loaded My::Module'); 
ok(my $obj = My::Module->new(), 'Can create instance of My::Module'); 

ok($obj->value('hello'), 'Set value to hello'); 
is($obj->value => 'hello', 'value is still hello'); 

Answer 5

Test::Class se puede ver en este example.