Lines 23-29
use t::lib::TestBuilder;
Link Here
|
23 |
|
23 |
|
24 |
use C4::Acquisition qw( NewBasket ); |
24 |
use C4::Acquisition qw( NewBasket ); |
25 |
use C4::Biblio qw( AddBiblio ); |
25 |
use C4::Biblio qw( AddBiblio ); |
26 |
use C4::Contract qw( AddContract ); |
|
|
27 |
use C4::Budgets qw( AddBudgetPeriod AddBudget ); |
26 |
use C4::Budgets qw( AddBudgetPeriod AddBudget ); |
28 |
use C4::Serials qw( NewSubscription SearchSubscriptions ); |
27 |
use C4::Serials qw( NewSubscription SearchSubscriptions ); |
29 |
|
28 |
|
Lines 270-287
subtest 'contracts' => sub {
Link Here
|
270 |
|
269 |
|
271 |
my $vendor = $builder->build_object( { class => 'Koha::Acquisition::Booksellers' } ); |
270 |
my $vendor = $builder->build_object( { class => 'Koha::Acquisition::Booksellers' } ); |
272 |
|
271 |
|
273 |
is( scalar( @{ $vendor->contracts } ), 0, 'Vendor has no contracts' ); |
272 |
is( scalar( @{ $vendor->contracts->as_list } ), 0, 'Vendor has no contracts' ); |
274 |
|
273 |
|
275 |
AddContract( |
274 |
my $contract = $builder->build_object( |
276 |
{ |
275 |
{ |
277 |
booksellerid => $vendor->id, |
276 |
class => 'Koha::Acquisition::Contracts', |
278 |
contractname => 'Test contract', |
277 |
value => { |
|
|
278 |
booksellerid => $vendor->id, |
279 |
contractname => 'Test contract', |
280 |
} |
279 |
} |
281 |
} |
280 |
); |
282 |
); |
281 |
|
283 |
|
282 |
$vendor = $vendor->get_from_storage; |
284 |
$vendor = $vendor->get_from_storage; |
283 |
my $contracts = $vendor->contracts; |
285 |
my @contracts = $vendor->contracts->as_list; |
284 |
is( scalar( @{$contracts} ), 1, '1 contract stored' ); |
286 |
is( scalar(@contracts), 1, '1 contract stored' ); |
285 |
|
287 |
|
286 |
$schema->storage->txn_rollback(); |
288 |
$schema->storage->txn_rollback(); |
287 |
}; |
289 |
}; |