From 7adb8861aa352afdfd300bc50d03af450e26468f Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 21 Jul 2016 18:23:00 +0100 Subject: [PATCH] Bug 16934: Add test for ModOrder Signed-off-by: Jonathan Druart Signed-off-by: Kyle M Hall --- t/db_dependent/Acquisition.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t index 7c80387718..6f1a0d268a 100755 --- a/t/db_dependent/Acquisition.t +++ b/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"); -- 2.39.2