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

(-)a/t/db_dependent/Acquisition.t (-3 / +2 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 => 74;
22
use Test::More tests => 75;
23
use t::lib::Mocks;
23
use t::lib::Mocks;
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::Acquisition::Basket;
25
use Koha::Acquisition::Basket;
Lines 511-517 $nonexistent_order = GetOrder( 424242424242 ); Link Here
511
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
511
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' );
512
512
513
# Tests for DelOrder
513
# Tests for DelOrder
514
my $order1 = GetOrder($ordernumbers[0]);
514
$order1 = GetOrder($ordernumbers[0]);
515
my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber});
515
my $error = DelOrder($order1->{biblionumber}, $order1->{ordernumber});
516
ok((not defined $error), "DelOrder does not fail");
516
ok((not defined $error), "DelOrder does not fail");
517
$order1 = GetOrder($order1->{ordernumber});
517
$order1 = GetOrder($order1->{ordernumber});
518
- 

Return to bug 22565