CultivaMetrics::API — Suite de Testing en Perl

# Configuración del runner prove
-l              # Incluir lib/ en @INC
--color         # Salida con colores
--timer         # Tiempo por archivo de test
-r              # Búsqueda recursiva en t/
-j4             # 4 workers en paralelo
--state=save    # Guardar estado para --state=failed

# Ejecutar toda la suite
prove -lr t/

# Verbose: un test concreto
prove -lv t/unit/calculator.t

# Solo tests fallados del run anterior
prove -l --state=failed t/

# Cobertura completa
cover -test && cover -report html

use v5.36;
use Test2::V0;

use lib 'lib';
use CultivaMetrics::Calculator;

# ── CTR ─────────────────────────────────────
subtest 'ctr — click-through rate' => sub {
    my $calc = CultivaMetrics::Calculator->new;

    is($calc->ctr(100, 5000), 2.0,
        'CTR: 100 clicks / 5000 impressions = 2.0%');

    is($calc->ctr(0, 1000), 0.0,
        'CTR: sin clicks = 0%');

    like(
        dies { $calc->ctr(100, 0) },
        qr/impressions cannot be zero/i,
        'CTR: muere con 0 impresiones'
    );
};

# ── CPA ─────────────────────────────────────
subtest 'cpa — cost per acquisition' => sub {
    my $calc = CultivaMetrics::Calculator->new;

    is($calc->cpa(500, 25), 20.0,
        'CPA: 500€ / 25 conversiones = 20.0€');

    like(
        dies { $calc->cpa(500, 0) },
        qr/conversions cannot be zero/i,
        'CPA: muere con 0 conversiones'
    );
};

# ── ROAS ────────────────────────────────────
subtest 'roas — return on ad spend' => sub {
    my $calc = CultivaMetrics::Calculator->new;

    is($calc->roas(3000, 500), 6.0,
        'ROAS: 3000€ ingresos / 500€ gasto = 6.0x');

    like(
        dies { $calc->roas(3000, 0) },
        qr/spend cannot be zero/i,
        'ROAS: muere con gasto 0'
    );
};

done_testing;

use v5.36;
use Test2::V0;
use Test::MockModule;

use lib 'lib';
use CultivaMetrics::LeadScorer;

subtest 'classify_lead — categorías' => sub {
    my $scorer = CultivaMetrics::LeadScorer->new;

    is($scorer->classify(85),
        'Hot', 'score >= 75 es Hot');

    is($scorer->classify(60),
        'Warm', 'score 40-74 es Warm');

    is($scorer->classify(20),
        'Cold', 'score < 40 es Cold');

    # Límites de frontera
    is($scorer->classify(75),
        'Hot', 'score == 75 es Hot (boundary)');
    is($scorer->classify(40),
        'Warm', 'score == 40 es Warm (boundary)');
    is($scorer->classify(0),
        'Cold', 'score == 0 es Cold');
    is($scorer->classify(100),
        'Hot', 'score == 100 es Hot');
};

subtest 'mock DB — guardar score' => sub {
    my $mock = Test::MockModule->new(
        'CultivaMetrics::DB'
    );
    my $saved = 0;
    $mock->mock(save_lead_score => sub {
        $saved++;
        return 1;
    });

    my $scorer = CultivaMetrics::LeadScorer->new;
    $scorer->score_and_save('lead_001', 82);

    is($saved, 1,
        'save_lead_score llamado 1 vez');
    # Mock restaurado al salir del scope
};

done_testing;

package CultivaMetrics::Calculator;
use v5.36;
use Moo;
use Carp qw(croak);

sub ctr($self, $clicks, $impressions) {
    croak 'impressions cannot be zero'
        if $impressions == 0;
    return sprintf('%.2f',
        ($clicks / $impressions) * 100) + 0;
}

sub cpa($self, $spend, $conversions) {
    croak 'conversions cannot be zero'
        if $conversions == 0;
    return sprintf('%.2f',
        $spend / $conversions) + 0;
}

sub roas($self, $revenue, $spend) {
    croak 'spend cannot be zero'
        if $spend == 0;
    return sprintf('%.2f',
        $revenue / $spend) + 0;
}

1;

package CultivaMetrics::LeadScorer;
use v5.36;
use Moo;
use CultivaMetrics::DB;

sub classify($self, $score) {
    return 'Hot'  if $score >= 75;
    return 'Warm' if $score >= 40;
    return 'Cold';
}

sub score_and_save($self, $lead_id, $score) {
    my $category = $self->classify($score);
    CultivaMetrics::DB->save_lead_score({
        id       => $lead_id,
        score    => $score,
        category => $category,
    });
    return $category;
}

1;

use v5.36;
use Test2::V0;
use DBI;

subtest 'db integración — SQLite in-memory' => sub {
    my $dbh = DBI->connect(
        'dbi:SQLite:dbname=:memory:', '', '',
        { RaiseError => 1 }
    );
    $dbh->do('CREATE TABLE lead_scores (
        id TEXT PRIMARY KEY,
        score INTEGER,
        category TEXT
    )');

    $dbh->prepare(
        'INSERT INTO lead_scores VALUES (?,?,?)'
    )->execute('lead_001', 82, 'Hot');

    my $row = $dbh->selectrow_hashref(
        'SELECT * FROM lead_scores
          WHERE id = ?', undef, 'lead_001'
    );
    is($row->{category}, 'Hot',
        'lead_001 guardado como Hot');
};

done_testing;