gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 37856: Add new test to test platform is correctly added to build_url 

prove t/db\_dependent/Koha/ERM/EUsage/UsageDataProvider.t

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit e7dbd2a8b7)
Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
This commit is contained in:
Pedro Amorim 2024-09-27 18:42:58 +00:00 committed by Lucas Gass
parent 6b8e7d7152
commit aae9a4466c
1 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
t/db_dependent/Koha/ERM/EUsage/UsageDataProvider.t
View File

@ -29,7 +29,7 @@ my $builder = t::lib::TestBuilder->new;
subtest '_build_url_query' => sub {
plan tests => 1;
plan tests => 2;
$schema->storage->txn_begin;
@ -70,6 +70,41 @@ subtest '_build_url_query' => sub {
. substr( $usage_data_provider->{end_date}, 0, 7 )
);
my $test_platform = 'www.whatever.com';
my $usage_data_provider_with_platform = $builder->build_object(
{
class => 'Koha::ERM::EUsage::UsageDataProviders',
value => {
service_url => $service_url, api_key => $api_key, requestor_id => $requestor_id,
customer_id => $customer_id, name => $name, service_platform => $test_platform
}
}
);
$usage_data_provider_with_platform->{report_type} = 'TR_J1';
$usage_data_provider_with_platform->{begin_date} = '2023-08-01';
$usage_data_provider_with_platform->{end_date} = '2023-09-30';
is(
$usage_data_provider_with_platform->_build_url_query,
$service_url
. '/reports/'
. lc( $usage_data_provider->{report_type} )
. '?customer_id='
. $customer_id
. '&requestor_id='
. $requestor_id
. '&api_key='
. $api_key
. '&begin_date='
. substr( $usage_data_provider->{begin_date}, 0, 7 )
. '&end_date='
. substr( $usage_data_provider->{end_date}, 0, 7 )
. '&platform='
. $test_platform
);
$schema->storage->txn_rollback;
};