|
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 |
}; |