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 |
- |
|
|