Bug 35757: (QA follow-up) Tidy

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Nick Clemens 2024-01-10 18:09:31 +00:00 committed by Katrin Fischer
parent f42741d32c
commit 40d7a90bc5
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
2 changed files with 5 additions and 5 deletions

View File

@ -25,7 +25,7 @@ use Test::Mojo;
use t::lib::TestBuilder;
use t::lib::Mocks;
use JSON qw(encode_json);
use JSON qw(encode_json);
use Array::Utils qw( array_minus );
use Koha::ERM::EUsage::CounterFiles;
@ -85,7 +85,7 @@ subtest 'get() tests' => sub {
my $counter_registry =
$t->get_ok("//$userid:$password@/api/v1/erm/counter_registry?q=$q")->status_is(200)->tx->res->json;
my $registry_to_check = @$counter_registry[0];
my $registry_to_check = @$counter_registry[0];
my @response_fields = map { $_ } keys %$registry_to_check;
my @new_fields_in_response = array_minus( @response_fields, @expected_fields );

View File

@ -25,7 +25,7 @@ use Test::Mojo;
use t::lib::TestBuilder;
use t::lib::Mocks;
use JSON qw(encode_json);
use JSON qw(encode_json);
use Array::Utils qw( array_minus );
use Koha::ERM::EUsage::CounterFiles;
@ -96,8 +96,8 @@ subtest 'get() tests' => sub {
my $q = encode_json( { "url" => $service_url } );
my $sushi_service = $t->get_ok("//$userid:$password@/api/v1/erm/sushi_service?q=$q")->status_is(200)->tx->res->json;
my @response_fields = map { $_ } keys %$sushi_service;
my @response_fields = map { $_ } keys %$sushi_service;
my @new_fields_in_response = array_minus( @response_fields, @expected_fields );
is(scalar(@new_fields_in_response), 0, 'The response fields match the expected fields');
is( scalar(@new_fields_in_response), 0, 'The response fields match the expected fields' );
};