Bug 22565: (QA follow-up) Fix test Acquisition.t

Test plan:
prove t/db_dependent/Acquisition.t
should pass

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 607eb83bc06410d59aefb6907070865f9f272115)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index a97d556..691a0a8 100755 (executable)
--- 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 => 73;
+use Test::More tests => 74;
 use t::lib::Mocks;
 use Koha::Database;
 
@@ -510,7 +510,7 @@ $nonexistent_order = GetOrder( 424242424242 );
 is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
 
 # Tests for DelOrder
-my $order1 = GetOrder($ordernumbers[0]);
+$order1 = GetOrder($ordernumbers[0]);
 my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber});
 ok((not defined $error), "DelOrder does not fail");
 $order1 = GetOrder($order1->{ordernumber});