View | Details | Raw Unified | Return to bug 16419
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition.t (-6 / +3 lines)
Lines 941-956 ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \ Link Here
941
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore");
941
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore");
942
# End of tests for DelOrder
942
# End of tests for DelOrder
943
943
944
$schema->storage->txn_rollback();
945
# Budget reports
944
# Budget reports
946
#my @report = GetBudgetReport(1);
947
#ok(@report >= 1, "GetBudgetReport OK");
948
949
my $all_count = scalar GetBudgetsReport();
945
my $all_count = scalar GetBudgetsReport();
950
ok($all_count >= 1, "GetBudgetReport OK");
946
ok($all_count >= 1, "GetBudgetReport OK");
951
947
952
my $active_count = scalar GetBudgetsReport(1);
948
my $active_count = scalar GetBudgetsReport(1);
953
ok($active_count >= 1 , "GetBudgetsReport(1) OK");
949
ok($active_count >= 1 , "GetBudgetsReport(1) OK");
954
950
955
ok($all_count == scalar GetBudgetsReport(), "GetBudgetReport returns inactive budget period acquisitions.");
951
is($all_count, scalar GetBudgetsReport(), "GetBudgetReport returns inactive budget period acquisitions.");
956
ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return inactive budget period acquisitions.");
952
ok($active_count >= scalar GetBudgetsReport(1), "GetBudgetReport doesn't return inactive budget period acquisitions.");
957
- 
953
954
$schema->storage->txn_rollback();

Return to bug 16419