Lines 20-26
use Modern::Perl;
Link Here
|
20 |
use POSIX qw(strftime); |
20 |
use POSIX qw(strftime); |
21 |
|
21 |
|
22 |
use Test::NoWarnings; |
22 |
use Test::NoWarnings; |
23 |
use Test::More tests => 74; |
23 |
use Test::More tests => 75; |
24 |
use t::lib::Mocks; |
24 |
use t::lib::Mocks; |
25 |
use Koha::Database; |
25 |
use Koha::Database; |
26 |
use Koha::DateUtils qw(dt_from_string output_pref); |
26 |
use Koha::DateUtils qw(dt_from_string output_pref); |
Lines 1390-1392
subtest 'GetInvoices() tests with additional fields' => sub {
Link Here
|
1390 |
|
1390 |
|
1391 |
$schema->storage->txn_rollback; |
1391 |
$schema->storage->txn_rollback; |
1392 |
}; |
1392 |
}; |
1393 |
- |
1393 |
|
|
|
1394 |
subtest 'ModBasketHeader' => sub { |
1395 |
plan tests => 2; |
1396 |
|
1397 |
$schema->storage->txn_begin; |
1398 |
my $basket = $builder->build_object( { class => 'Koha::Acquisition::Baskets' } ); |
1399 |
isnt( $basket->contractnumber, undef ); |
1400 |
C4::Acquisition::ModBasketHeader( |
1401 |
$basket->basketno, $basket->basketname, $basket->note, $basket->booksellernote, |
1402 |
undef, $basket->booksellerid |
1403 |
); |
1404 |
$basket = $basket->get_from_storage; |
1405 |
is( $basket->contractnumber, undef ); |
1406 |
|
1407 |
$schema->storage->txn_rollback; |
1408 |
}; |