diff --git a/db_tests/00004-release-dao.t b/db_tests/00004-release-dao.t new file mode 100644 index 0000000..5ad0191 --- /dev/null +++ b/db_tests/00004-release-dao.t @@ -0,0 +1,57 @@ +#!/usr/bin/env perl + +use v5.30.0; + +use strict; +use warnings; + +use Data::Dumper; + +use Test::Most tests => 2; + +use DateTime; + +use Peace; +use Peace::DB; +use Peace::DAO::Developer; +use Peace::DAO::Application; +use Peace::DAO::Release; + +use Peace::Test::Mock::Model::Developer; +use Peace::Test::Mock::Model::Application; +use Peace::Test::Mock::Model::Release; + +{ + ## GIVEN + my $current_date = DateTime->now; + my $peace = Peace->new; + my $home = $ENV{HOME}; + my $config = + $peace->plugin( + JSONConfig => { file => "$home/.config/peace/peace.conf" } ); + my $dbh = Peace::DB->dbh( config => $config ); + + my $developer = Peace::Test::Mock::Model::Developer->new; + my $developer_dao = Peace::DAO::Developer->new( dbh => $dbh ); + + $developer_dao->create( developer => $developer ); + + my $application = Peace::Test::Mock::Model::Application->new; + $application->developer($developer); + + my $application_dao = Peace::DAO::Application->new( dbh => $dbh ); + + $application_dao->create( application => $application ); + + my $release = Peace::Test::Mock::Model::Release->new; + $release->application($application); + + my $release_dao = Peace::DAO::Release->new( dbh => $dbh ); + + ## WHEN + $release_dao->create( release => $release ); + + ## THEN + ok $release->uuid, 'Generated uuid.'; + ok $release->date_creation > $current_date, 'The date is recent.'; +} diff --git a/doc/index.html b/doc/index.html index f3737f2..acb96b7 100644 --- a/doc/index.html +++ b/doc/index.html @@ -20,6 +20,9 @@