| Prueba :: Clase Prueba :: Clase es un módulo PERL que le permite crear fácilmente clases de prueba en un estilo Xunit / Junit. |
Descargar ahora |
Prueba :: Clase Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Adrian Howard
- Sitio web del editor:
- http://search.cpan.org/~adie/Test-Block-0.11/lib/Test/Block.pm
Prueba :: Clase Etiquetas
Prueba :: Clase Descripción
Prueba :: La clase es un módulo Perl que le permite crear fácilmente clases de prueba en un estilo Xunit / Juit. Prueba :: Class es un módulo PERL que le permite crear fácilmente clases de prueba en un ejemplo de Xunit / Junit Style.Synopsis Paquete Ejemplo :: Prueba; Use la base QW (prueba :: Clase); Usa la prueba :: Más; # Los métodos de configuración se ejecutan antes de cada método de prueba. Sub Make_Elegio: Prueba (Configuración) {My $ Array = ; Shift -> {test_array} = $ matray; }; # Un método de prueba que ejecuta 1 prueba Sub Test_Push: prueba {My $ Array = Shift -> {test_array}; PUSH @ $ ARRAY, 3; is_deeply ($ matriz, , 'Push FOOPTADO'); }; # un método de prueba que ejecuta 4 pruebas sub test_pop: prueba (4) {My $ Array = Shift -> {test_array}; es (pop @ $ la matriz, 2, 'pop = 2'); es (POP @ $ ARRAY, 1, 'POP = 1'); is_deeply ($ matriz, [], 'matriz vacío'); es (Pop @ $ Array, UNDEF, 'POP = UNDEF'); }; # Los métodos de desmontaje se ejecutan después de cada método de prueba. Sub Teardown: Prueba (Talling) {My $ Array = Shift -> {test_array}; DIAG ("Array = (@ $ la matriz) después de la (s) prueba (s)"); }; más tarde en un archivo #t cercano .t #! / usr / bin / perl usa el ejemplo :: Prueba; # Ejecutar todos los métodos de prueba en el ejemplo :: Prueba de prueba :: Clase-> RUNTESTS; SALIDAS: 1..5 OK 1 - POP = 2 OK 2 - POP = 1 OK 3 - Array vacío OK 4 - POP = UNDREF # Array = () Después de la (s) prueba (s) OK 5 - PUSH TRABAJADOR # Array = (12 3) Después de los requisitos de prueba (s): · Perl
Prueba :: Clase Software relacionado