|
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(); |