|
Lines 18-24
use Koha::DateUtils;
Link Here
|
| 18 |
use Koha::Acquisition::Booksellers; |
18 |
use Koha::Acquisition::Booksellers; |
| 19 |
use t::lib::Mocks; |
19 |
use t::lib::Mocks; |
| 20 |
use t::lib::TestBuilder; |
20 |
use t::lib::TestBuilder; |
| 21 |
use Test::More tests => 48; |
21 |
use Test::More tests => 49; |
| 22 |
|
22 |
|
| 23 |
BEGIN { |
23 |
BEGIN { |
| 24 |
use_ok('C4::Serials'); |
24 |
use_ok('C4::Serials'); |
|
Lines 362-364
subtest "NewSubscription" => sub {
Link Here
|
| 362 |
); |
362 |
); |
| 363 |
ok($subscriptionid, "Sending empty string instead of undef to reflect use of the interface"); |
363 |
ok($subscriptionid, "Sending empty string instead of undef to reflect use of the interface"); |
| 364 |
}; |
364 |
}; |
| 365 |
- |
365 |
|
|
|
366 |
subtest "ModSuscription" => sub { |
| 367 |
plan tests => 1; |
| 368 |
my $subscription = $builder->build_object({ class => 'Koha::Subscriptions' }); |
| 369 |
my $modified = ModSubscription( |
| 370 |
"", "", "", "", $budget_id, $biblionumber, |
| 371 |
'2013-01-01', $frequency_id, "", "", "", |
| 372 |
"", "", "", "", "", "", |
| 373 |
1, $notes,"", '2013-01-01', "", $pattern_id, |
| 374 |
"", "", 0, $internalnotes, 0, |
| 375 |
"", "", 0, "", '2013-12-31', $subscription->subscriptionid, |
| 376 |
0 |
| 377 |
); |
| 378 |
is($modified, 1); |
| 379 |
}; |