Peace/t/00006-developer-dao.t

use v5.30.0;

use strict;
use warnings;

use Test::Most tests => 6;

use DBI;
use DateTime;

use Peace::Model::Developer;
use DateTime::Format::Pg;
use DateTime;

BEGIN {
    use_ok 'Peace::DAO::Developer';
}

{
    ## GIVEN
    my $sql = <<'EOF';
INSERT INTO developers (secret_bcrypt, name, surname, email, country, verified)
    VALUES (?, ?, ?, ?, ?, ?)
    RETURNING uuid; 
EOF
    my $uuid          = 'hola';
    my $secret_bcrypt = 'hola';
    my $name          = 'Larry';
    my $surname       = 'Wall';
    my $email         = 'larry@perl.org';
    my $country       = 'US';
    my $verified      = 0;
    my $dbh           = DBI->connect( 'DBI:Mock:', '', '' );
    my $developer     = Peace::Model::Developer->new(
        name          => $name,
        surname       => $surname,
        email         => $email,
        country       => $country,
        secret_bcrypt => $secret_bcrypt,
        verified      => $verified,
    );
    my $developer_dao = Peace::DAO::Developer->new( dbh => $dbh );

    $dbh->{mock_add_resultset} = {
        sql     => $sql,
        results => [ ['uuid'], [$uuid], ]
    };
    $sql = <<'EOF';
SELECT uuid, date_creation, secret_bcrypt, name, surname, email, stripe_id, country, verified
    FROM developers 
    WHERE uuid = ?;
EOF
    my $datetime  = DateTime->now;
    my $formatter = DateTime::Format::Pg->new;
    $dbh->{mock_add_resultset} = {
        sql     => $sql,
        results => [
            [
                'uuid',          'name',
                'surname',       'email',
                'country',       'verified',
                'secret_bcrypt', 'date_creation',
                'stripe_id'
            ],
            [
                $uuid, $name, $surname, $email, $country, $verified,
                $secret_bcrypt, $formatter->format_datetime($datetime), undef
            ]
        ],
    };
    ## WHEN
    $developer_dao->create( developer => $developer );

    ## THEN
    is $developer->uuid, $uuid,
      'Developer id correctly set after user creation.';
}

{
    ## GIVEN
    my $dbh           = DBI->connect( 'DBI:Mock:', '', '' );
    my $developer_dao = Peace::DAO::Developer->new( dbh => $dbh );
    my $sql           = <<'EOF';
SELECT uuid, date_creation, secret_bcrypt, name, surname, email, stripe_id, country, verified
    FROM developers 
    WHERE uuid = ?;
EOF
    my $uuid          = 'hola';
    my $name          = 'Larry';
    my $surname       = 'Wall';
    my $email         = 'larry@perl.org';
    my $country       = 'US';
    my $verified      = 0;
    my $formatter     = DateTime::Format::Pg->new;
    my $datetime      = DateTime->now;
    my $date_creation = DateTime->now;
    my $secret_bcrypt = 'hola';
    my $stripe_id     = undef;

    $dbh->{mock_add_resultset} = {
        sql     => $sql,
        results => [
            [
                'uuid',          'name',
                'surname',       'email',
                'country',       'verified',
                'secret_bcrypt', 'date_creation',
                'stripe_id'
            ],
            [
                $uuid, $name, $surname, $email, $country, $verified,
                $secret_bcrypt, $formatter->format_datetime($datetime), undef
            ]
        ],
    };

    ## WHEN
    my $developer = $developer_dao->recover_by_uuid( uuid => $uuid );

    ## THEN
    is $developer->uuid, $uuid, 'Uuid is recovered correctly';
    is $developer->date_creation, $date_creation,
      'Date creation is recovered correctly';
    is $developer->secret_bcrypt, $secret_bcrypt,
      'Secret is recovered correctly';
    is $developer->stripe_id, $stripe_id, 'Secret is recovered correctly';

}