|
Lines 25-30
use t::lib::TestBuilder;
Link Here
|
| 25 |
|
25 |
|
| 26 |
use Koha::Database; |
26 |
use Koha::Database; |
| 27 |
|
27 |
|
|
|
28 |
use Koha::Acquisition::Budget; |
| 29 |
|
| 28 |
my $schema = Koha::Database->schema; |
30 |
my $schema = Koha::Database->schema; |
| 29 |
my $builder = t::lib::TestBuilder->new; |
31 |
my $builder = t::lib::TestBuilder->new; |
| 30 |
|
32 |
|
|
Lines 44-50
subtest 'to_api() tests' => sub {
Link Here
|
| 44 |
}; |
46 |
}; |
| 45 |
|
47 |
|
| 46 |
subtest 'budget' => sub { |
48 |
subtest 'budget' => sub { |
| 47 |
plan tests => 1; |
49 |
plan tests => 2; |
| 48 |
|
50 |
|
| 49 |
$schema->storage->txn_begin; |
51 |
$schema->storage->txn_begin; |
| 50 |
my $f = $builder->build_object( |
52 |
my $f = $builder->build_object( |
|
Lines 57-61
subtest 'budget' => sub {
Link Here
|
| 57 |
is( ref( $fund->budget ), |
59 |
is( ref( $fund->budget ), |
| 58 |
'Koha::Acquisition::Budget', |
60 |
'Koha::Acquisition::Budget', |
| 59 |
'->fund should return a Koha::Acquisition::Budget object' ); |
61 |
'->fund should return a Koha::Acquisition::Budget object' ); |
|
|
62 |
|
| 63 |
# Testing when budget_period_id is set as NULL |
| 64 |
$fund->budget_period_id(undef); |
| 65 |
$fund->update(); |
| 66 |
is( $fund->budget, |
| 67 |
undef, |
| 68 |
'->fund->budget should return undef if budget_period_id is set as NULL' ); |
| 60 |
$schema->storage->txn_rollback; |
69 |
$schema->storage->txn_rollback; |
| 61 |
}; |
70 |
}; |
| 62 |
- |
|
|