La Clase:: de la prueba es un módulo Perl que permite que usted cree fácilmente clases de prueba en un estilo de xUnit/JUnit.

SINOPSIS

Ejemplo de paquete:: Prueba;
use la base qw (Prueba:: Clase);
use la Prueba:: Más;

# los métodos de instalador son ejecutados antes de cada método de prueba.
suscripción make_fixture: Prueba (instalador) {
mi $array = [1, 2];
cambio-> {test_array} = $array;
};

# un método de prueba que ejecuta 1 prueba
suscripción test_push: Prueba {
mi $array = cambio-> {test_array};
empuje $array, 3;
is_deeply ($array, [1, 2, 3], el empuje trabajó);
};

# un método de prueba que ejecuta 4 pruebas
suscripción test_pop: Prueba (4) {
mi $array = cambio-> {test_array};
es (música pop $array, 2, música pop = 2);
es (música pop $array, 1, música pop = 1);
is_deeply ($array, [], matriz vacía);
es (música pop $array, undef, música pop = undef);
};

# los métodos de desmontaje son ejecutados después de cada método de prueba.
desmontaje de suscripción: Prueba (desmontaje) {
mi $array = cambio-> {test_array};
el diag ("ponen en orden = ($array) después de la prueba (s)");
};
más tarde en un archivo.t cercano
¡#!/usr/bin/perl
use el Ejemplo:: Prueba;

# ejecute todos los métodos de prueba en el Ejemplo:: Prueba
Pruebe la Clase::-> runtests;

Producciones:

1.. 5
okey 1 - revientan = 2
okey 2 - revientan = 1
okey 3 - ponen en orden vacío
okey 4 - revientan = undef
# ponga en orden = () después de la prueba (s)

okey 5 - el empuje trabajó
# ponga en orden = (1 2 3) después de la prueba (s)