Lines 24-30
use C4::Budgets;
Link Here
|
24 |
|
24 |
|
25 |
use Koha::DateUtils qw( dt_from_string ); |
25 |
use Koha::DateUtils qw( dt_from_string ); |
26 |
|
26 |
|
27 |
use Test::More tests => 101; |
27 |
use Test::More tests => 102; |
28 |
use Test::Warn; |
28 |
use Test::Warn; |
29 |
|
29 |
|
30 |
BEGIN { |
30 |
BEGIN { |
Lines 114-119
is( $suggestion->{biblionumber}, $my_suggestion->{biblionumber}, 'NewSuggestion
Link Here
|
114 |
is( $suggestion->{STATUS}, 'ASKED', 'NewSuggestion stores a suggestion with the status ASKED by default' ); |
114 |
is( $suggestion->{STATUS}, 'ASKED', 'NewSuggestion stores a suggestion with the status ASKED by default' ); |
115 |
is( $suggestion->{managedby}, undef, 'NewSuggestion stores empty string as undef for non existent foreign key (integer)' ); |
115 |
is( $suggestion->{managedby}, undef, 'NewSuggestion stores empty string as undef for non existent foreign key (integer)' ); |
116 |
is( $suggestion->{manageddate}, undef, 'NewSuggestion stores empty string as undef for date' ); |
116 |
is( $suggestion->{manageddate}, undef, 'NewSuggestion stores empty string as undef for date' ); |
|
|
117 |
is( $suggestion->{budgetid}, undef, 'NewSuggestion should set budgetid to NULL if not given' ); |
118 |
|
117 |
is( CountSuggestion('ASKED'), 2, 'CountSuggestion returns the correct number of suggestions' ); |
119 |
is( CountSuggestion('ASKED'), 2, 'CountSuggestion returns the correct number of suggestions' ); |
118 |
|
120 |
|
119 |
|
121 |
|
120 |
- |
|
|