El Módulo a Comprobar

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 files

En 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;