#!/usr/bin/env perl

use v5.30.0;

use strict;
use warnings;

use Test::Most tests => 2;

use DateTime;
use Crypt::URandom q/urandom/;

use Peace;
use Peace::DB;
use Peace::DAO::Developer;
use Peace::DAO::Application;
use Peace::DAO::Release;
use Peace::DAO::Build;

use Peace::Test::Mock::Model::Build;

{
    my $home         = $ENV{HOME};
    my $current_date = DateTime->now;
    my $peace = Peace->new;
    my $config =
      $peace->plugin(
        JSONConfig => { file => "$home/.config/peace/peace.conf" } );
    my $dbh             = Peace::DB->dbh( config => $config );
    my $build           = Peace::Test::Mock::Model::Build->new;
    my $developer_dao   = Peace::DAO::Developer->new( dbh => $dbh );
    my $release_dao     = Peace::DAO::Release->new( dbh => $dbh );
    my $application_dao = Peace::DAO::Application->new( dbh => $dbh );
    my $build_dao       = Peace::DAO::Build->new( dbh => $dbh );
    my $developer = $build->release->application->developer;
    $developer->email($developer->email =~ s/\@/unpack('H*', urandom(100)).'@'/er);
    $developer_dao->create(
        developer => $build->release->application->developer );
    $build->release->application->app_id(
        'com.example.desfronificator' . rand(10000) );
    $application_dao->create( application => $build->release->application );
    $release_dao->create( release => $build->release );
    $build_dao->create( build => $build );
    ok $build->uuid, 'Uuid was correctly set.';
    ok $build->date_creation > $current_date, 'The new date_creation is meaningful.';
}