|
Lines 23-29
use C4::Letters;
Link Here
|
| 23 |
|
23 |
|
| 24 |
use Koha::DateUtils qw( dt_from_string ); |
24 |
use Koha::DateUtils qw( dt_from_string ); |
| 25 |
|
25 |
|
| 26 |
use Test::More tests => 98; |
26 |
use Test::More tests => 100; |
| 27 |
use Test::Warn; |
27 |
use Test::Warn; |
| 28 |
|
28 |
|
| 29 |
BEGIN { |
29 |
BEGIN { |
|
Lines 274-277
is(@$itemtypes2, 8, "Purchase suggestion itemtypes collected, default AdvancedSe
Link Here
|
| 274 |
|
274 |
|
| 275 |
is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved'); |
275 |
is_deeply($itemtypes1, $itemtypes2, 'same set of purchase suggestion formats retrieved'); |
| 276 |
|
276 |
|
| 277 |
$dbh->rollback; |
277 |
# Test budgetid fk |
|
|
278 |
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB |
| 279 |
my $my_suggestionid_test_budgetid = NewSuggestion($my_suggestion); |
| 280 |
$suggestion = GetSuggestion($my_suggestionid_test_budgetid); |
| 281 |
is( $suggestion->{budgetid}, undef, 'NewSuggestion Should set budgetid to NULL if equals an empty string' ); |
| 282 |
|
| 283 |
$my_suggestion->{budgetid} = ''; # If budgetid == '', NULL should be set in DB |
| 284 |
ModSuggestion( $my_suggestion ); |
| 285 |
$suggestion = GetSuggestion($my_suggestionid_test_budgetid); |
| 286 |
is( $suggestion->{budgetid}, undef, 'NewSuggestion Should set budgetid to NULL if equals an empty string' ); |
| 278 |
- |
|
|