Lines 105-115
subtest 'get() tests' => sub {
Link Here
|
105 |
my @response_fields = map { $_ } keys %$sushi_service; |
105 |
my @response_fields = map { $_ } keys %$sushi_service; |
106 |
my @new_fields_in_response = array_minus( @response_fields, @expected_fields ); |
106 |
my @new_fields_in_response = array_minus( @response_fields, @expected_fields ); |
107 |
|
107 |
|
108 |
my $new_fields_string = |
108 |
is( scalar(@new_fields_in_response), 0, "Compare response from sushi server" ) |
109 |
"This is not a new error within Koha, the following new field(s) have been added to the API response: " |
109 |
or diag "This is not a new error within Koha, the following new field(s) have been added to the API response: " |
110 |
. join( ', ', @new_fields_in_response ) |
110 |
. join( ', ', @new_fields_in_response ) |
111 |
. '. They should be added to the API definition'; |
111 |
. '. They should be added to the API definition'; |
112 |
warning_like { scalar(@new_fields_in_response) } 0, $new_fields_string; |
|
|
113 |
|
112 |
|
114 |
$schema->storage->txn_rollback; |
113 |
$schema->storage->txn_rollback; |
115 |
}; |
114 |
}; |
116 |
- |
|
|