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