sergiotarxz
/
Peace
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding test for the recovery from uuid of application.

This commit is contained in:
sergiotarxz 2022-03-24 19:06:01 +01:00
parent 436edcef00
commit ea7c5b7471
2 changed files with 74 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/Peace/Model/Release.pm
View File

@ -36,6 +36,11 @@ use Types::Standard qw/InstanceOf Str HasMethods/;
} }
} }
sub _dbh {
my $self = shift;
return $self->{dbh};
}
{ {
my $validator = my $validator =
validation_for( params => [ { type => Str, optional => 1 } ] ); validation_for( params => [ { type => Str, optional => 1 } ] );

73
t/00009-release-model.t
View File

@ -3,11 +3,14 @@ use v5.30.0;
use strict; use strict;
use warnings; use warnings;
use Test::Most tests => 4; use Test::Most tests => 5;
use Test::MockModule;
use Peace::Model::Application; use Peace::Model::Application;
use Peace::Model::Developer; use Peace::Model::Developer;
use DBI;
BEGIN { BEGIN {
use_ok 'Peace::Model::Release'; use_ok 'Peace::Model::Release';
} }
@ -52,7 +55,7 @@ BEGIN {
git_repo => $app_git_repo, git_repo => $app_git_repo,
); );
my $release_name = '0.0.1'; my $release_name = '0.0.1';
my $release_tag = 'v0.0.1'; my $release_tag = 'v0.0.1';
## WHEN ## WHEN
my $release = Peace::Model::Release->new( my $release = Peace::Model::Release->new(
@ -62,7 +65,69 @@ BEGIN {
); );
## THEN ## THEN
ok $release->isa('Peace::Model::Release'), ok $release->isa('Peace::Model::Release'),
'Instanced release is made of Peace::Model::Release.'; 'Instanced release is made of Peace::Model::Release.';
is $release->name, $release_name, 'Name is correctly setup'; is $release->name, $release_name, 'Name is correctly setup';
is $release->uuid, undef, 'Uuid is undef.'; is $release->uuid, undef, 'Uuid is undef.';
}
{
## GIVEN
### Developer data.
my $developer_secret_bcrypt = 'hola';
my $developer_name = 'Larry';
my $developer_surname = 'Wall';
my $developer_email = 'larry@perl.org';
my $developer_country = 'US';
my $developer_verified = 0;
### Application data.
my $app_name = 'Desfronificator';
my $app_description = 'Desfronifies the files.';
my $app_url = 'https://desfronificator.example.com';
my $app_price = '4.20';
my $app_git_repo =
'https://git.desfronificator.example.com/larry/desfronificator.git';
my $app_flatpak_builder_file =
'./resources/com.example.desfronificator.yml';
my $app_verified = 0;
my $app_developer = Peace::Model::Developer->new(
secret_bcrypt => $developer_secret_bcrypt,
name => $developer_name,
surname => $developer_surname,
email => $developer_email,
country => $developer_country,
verified => $developer_verified,
);
### Release data.
my $release_application = Peace::Model::Application->new(
developer => $app_developer,
name => $app_name,
description => $app_description,
url => $app_url,
price => $app_price,
flatpak_builder_file => $app_flatpak_builder_file,
verified => $app_verified,
git_repo => $app_git_repo,
);
my $release_application_uuid = 'exampleuuid';
my $release_name = '0.0.1';
my $release_tag = 'v0.0.1';
my $release_dbh = DBI->connect('dbi:Mock:');
my $application_dao_mock_module =
Test::MockModule->new('Peace::DAO::Application');
$application_dao_mock_module->mock(
recover_by_uuid => sub {
return $release_application;
}
);
## WHEN
my $release = Peace::Model::Release->new(
name => $release_name,
application_uuid => $release_application_uuid,
tag => $release_tag,
dbh => $release_dbh,
);
## THEN
is $release->application, $release_application, 'Uuid is undef.';
} }