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

Bug 37810: Add test 

Test plan:
1) Apply only tests patch, run:
prove t/db_dependent/Koha/ERM/EUsage/UsageDataProvider.t
2) Verify tests fail
3) Apply fix patch
4) Run tests again, verify they pass

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Alex Buckley <alexbuckley@catalyst.net.nz>
This commit is contained in:
Pedro Amorim 2024-09-19 12:36:54 +00:00 committed by Alex Buckley
parent 2e0dafcde5
commit dfd9bc68cd
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,10 +17,12 @@
use Modern::Perl;
use Test::More tests => 1;
use Test::More tests => 2;
use Koha::ERM::EUsage::UsageDataProvider;
use Koha::Database;
use Test::MockModule;
use Test::MockObject;
use t::lib::TestBuilder;
@ -108,3 +110,37 @@ subtest '_build_url_query' => sub {
$schema->storage->txn_rollback;
};
subtest 'test_connection() tests' => sub {
plan tests => 1;
$schema->storage->txn_begin;
my $ua = Test::MockModule->new('LWP::UserAgent');
$ua->mock('simple_request', sub {
my $response = Test::MockObject->new();
$response->mock('code', sub {
return 200;
});
$response->mock('is_error', sub {
return 0;
});
$response->mock('is_redirect', sub {
return 0;
});
$response->mock('decoded_content', sub {
return '{"Description":"COUNTER Usage Reports for Test platform.","ServiceActive":true,"RegistryURL":"https://www.whatever.com"}';
});
$response->{_rc} = 200;
return $response;
});
my $usage_data_provider = $builder->build_object(
{ class => 'Koha::ERM::EUsage::UsageDataProviders', value => { name => 'TestProvider' } } );
is( $usage_data_provider->test_connection, 1);
$schema->storage->txn_rollback;
};