La prueba t/01lectro.t
la usamos para comprobar el siguiente módulo Titi.pm
.
Esta es la jerarquía de directorios:
lhp@nereida:~/Lperl/src/LectroTest$ tree Titi/ Titi/ |-- Changes |-- MANIFEST |-- Makefile.PL |-- README |-- lib | `-- Titi.pm `-- t |-- 01lectro.t `-- Titi.t 2 directories, 7 filesEn concreto la prueba
t/01lectro.t
vista antes comprueba que la función my_function
abajo devuelve valores positivos:
lhp@nereida:~/Lperl/src/LectroTest/Titi$ cat -n lib/Titi.pm 1 package Titi; 2 3 use 5.008007; 4 use strict; 5 use warnings; 6 7 require Exporter; 8 9 our @ISA = qw(Exporter); 10 our @EXPORT = qw( my_function ); 11 our $VERSION = '0.01'; 12 13 # Preloaded methods go here. 14 sub my_function { 15 my ($x, $y) = @_; 16 $x*$y*$y 17 } 18 19 1;
Casiano Rodríguez León