Bug 21604: Add two trivial test cases

Adding an id in AddBudgetPeriod and an empty string in AddBudget for
budget_encumb.

Test plan:
Run Budgets.t with/without this patch in strict sql mode.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 433fc3f120cfa08fda1dd55a7db721bdf3bf1e9b)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/t/db_dependent/Budgets.t b/t/db_dependent/Budgets.t
index e3502d4..04f5896 100755 (executable)
--- a/t/db_dependent/Budgets.t
+++ b/t/db_dependent/Budgets.t
@@ -60,6 +60,7 @@ my $my_budgetperiod = {
     budget_period_enddate     => '2008-12-31',
     budget_period_description => 'MAPERI',
     budget_period_active      => 0,
+    budget_period_id          => '', # Bug 21604
 };
 $bpid = AddBudgetPeriod($my_budgetperiod);
 isnt( $bpid, undef, 'AddBugetPeriod does not returns undef' );
@@ -128,6 +129,7 @@ my $my_budget = {
     budget_name      => 'Periodiques',
     budget_notes     => 'This is a note',
     budget_period_id => $bpid,
+    budget_encumb    => '', # Bug 21604
 };
 my $budget_id = AddBudget($my_budget);
 isnt( $budget_id, undef, 'AddBudget does not returns undef' );