@@ -, +, @@ --- t/db_dependent/Acquisition.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) --- a/t/db_dependent/Acquisition.t +++ a/t/db_dependent/Acquisition.t @@ -19,7 +19,7 @@ use Modern::Perl; use POSIX qw(strftime); -use Test::More tests => 91; +use Test::More tests => 92; use Koha::Database; BEGIN { @@ -938,6 +938,13 @@ ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \ ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore"); # End of tests for DelOrder +subtest 'ModOrder' => sub { + plan tests => 1; + ModOrder( { ordernumber => $order1->{ordernumber}, unitprice => 42 } ); + my $order = GetOrder( $order1->{ordernumber} ); + is( int($order->{unitprice}), 42, 'ModOrder should work even if biblionumber if not passed'); +}; + # Budget reports my $all_count = scalar GetBudgetsReport(); ok($all_count >= 1, "GetBudgetReport OK"); --