use v5.30.0;

use strict;
use warnings;

use Test::Most tests => 3;

use DBI;

use DateTime;
use DateTime::Format::Pg;

use Peace::Test::Mock::Model::Application;
use Peace::Test::Mock::Model::Release;

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

{
    ## GIVEN
    my $release = Peace::Test::Mock::Model::Release->new;
    my $sql     = <<'EOF';
INSERT INTO releases
    (application, tag, name)
VALUES (?, ?, ?)
RETURNING uuid;
EOF
    my $dbh      = DBI->connect( 'DBI:Mock:', '', '' );
    $release->application->uuid('hola');
    my $datetime = DateTime->now;
    my $uuid     = 'hola';
    $dbh->{mock_add_resultset} = {
        sql     => $sql,
        results => [ ['uuid'], [$uuid], ]
    };
    $sql = <<'EOF';
SELECT uuid, date_creation,
    application, name, tag
FROM releases
WHERE uuid = ?;
EOF
    my $iso8601 = DateTime::Format::Pg->new;
    $dbh->{mock_add_resultset} = {
        sql     => $sql,
        results => [
            [ 'uuid', 'date_creation', 'application', 'name', 'tag' ],
            [
                $uuid,
                $iso8601->format_datetime($datetime),
                $release->application->uuid,
                $release->name, $release->tag
            ]
        ]
    };

    my $release_dao = Peace::DAO::Release->new( dbh => $dbh );;

    ## WHEN
    $release_dao->create( release => $release );

    ## THEN
    is $release->uuid, $uuid, 'Release uuid set.';
    ok $release->date_creation == $datetime, 'Release date_creation set';
}