|
Lines 19-25
use Modern::Perl;
Link Here
|
| 19 |
|
19 |
|
| 20 |
use POSIX qw(strftime); |
20 |
use POSIX qw(strftime); |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 91; |
22 |
use Test::More tests => 92; |
| 23 |
use Koha::Database; |
23 |
use Koha::Database; |
| 24 |
|
24 |
|
| 25 |
BEGIN { |
25 |
BEGIN { |
|
Lines 938-943
ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \
Link Here
|
| 938 |
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore"); |
938 |
ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore"); |
| 939 |
# End of tests for DelOrder |
939 |
# End of tests for DelOrder |
| 940 |
|
940 |
|
|
|
941 |
subtest 'ModOrder' => sub { |
| 942 |
plan tests => 1; |
| 943 |
ModOrder( { ordernumber => $order1->{ordernumber}, unitprice => 42 } ); |
| 944 |
my $order = GetOrder( $order1->{ordernumber} ); |
| 945 |
is( int($order->{unitprice}), 42, 'ModOrder should work even if biblionumber if not passed'); |
| 946 |
}; |
| 947 |
|
| 941 |
# Budget reports |
948 |
# Budget reports |
| 942 |
my $all_count = scalar GetBudgetsReport(); |
949 |
my $all_count = scalar GetBudgetsReport(); |
| 943 |
ok($all_count >= 1, "GetBudgetReport OK"); |
950 |
ok($all_count >= 1, "GetBudgetReport OK"); |
| 944 |
- |
|
|