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

(-)a/t/db_dependent/Acquisition.t (-2 / +8 lines)
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
- 

Return to bug 16934