3d61550e22
The C4::Acquisition module should be exploded in order to add readability and maintainability to this part of the code. This patch is a POC, it introduces a new Koha::Acquisition::Order module and put in it the code from NewOrder and NewOrderItem. Test plan: 1/ Create an order, modify it, receive it, cancel the receipt. 2/ Launch the prove command on all unit tests modified by this patch and verify that all pass. Signed-off-by: Paola Rossi <paola.rossi@cineca.it> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
97 lines
3.4 KiB
Perl
97 lines
3.4 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use Test::More tests => 18;
|
|
use Data::Dumper;
|
|
|
|
use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
|
|
use C4::Biblio qw( AddBiblio );
|
|
use C4::Bookseller qw( AddBookseller );
|
|
use C4::Budgets qw( AddBudget );
|
|
use C4::Context;
|
|
|
|
use Koha::Acquisition::Order;
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
$dbh->{AutoCommit} = 0;
|
|
$dbh->{RaiseError} = 1;
|
|
|
|
my $supplierid = C4::Bookseller::AddBookseller(
|
|
{
|
|
name => 'my vendor',
|
|
address1 => 'bookseller\'s address',
|
|
phone => '0123456',
|
|
active => 1,
|
|
deliverytime => 5,
|
|
}
|
|
);
|
|
|
|
my $basketno;
|
|
ok($basketno = NewBasket($supplierid, 1), 'NewBasket( $supplierid , 1 ) returns $basketno');
|
|
|
|
my $budgetid = C4::Budgets::AddBudget(
|
|
{
|
|
budget_code => 'budget_code_test_getordersbybib',
|
|
budget_name => 'budget_name_test_getordersbybib',
|
|
}
|
|
);
|
|
my $budget = C4::Budgets::GetBudget( $budgetid );
|
|
|
|
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
|
|
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
|
|
my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
|
|
|
|
my $order1 = Koha::Acquisition::Order->new(
|
|
{
|
|
basketno => $basketno,
|
|
quantity => 2,
|
|
biblionumber => $biblionumber1,
|
|
budget_id => $budget->{budget_id},
|
|
}
|
|
)->insert;
|
|
my $ordernumber1 = $order1->{ordernumber};
|
|
|
|
my $order2 = Koha::Acquisition::Order->new(
|
|
{
|
|
basketno => $basketno,
|
|
quantity => 4,
|
|
biblionumber => $biblionumber2,
|
|
budget_id => $budget->{budget_id},
|
|
}
|
|
)->insert;
|
|
my $ordernumber2 = $order2->{ordernumber};
|
|
|
|
my $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
|
|
is( scalar(@$baskets), 1, 'Start: 1 basket' );
|
|
my $basket = $baskets->[0];
|
|
is( $basket->{total_items}, 6, 'Start with 6 items' );
|
|
is( $basket->{total_biblios}, 2, 'Start with 2 biblios' );
|
|
is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
|
|
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' );
|
|
|
|
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 );
|
|
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
|
|
is( scalar(@$baskets), 1, 'Order2 deleted, still 1 basket' );
|
|
$basket = $baskets->[0];
|
|
is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' );
|
|
is( $basket->{total_biblios}, 2, 'Order2 deleted, still 2 biblios' );
|
|
is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' );
|
|
is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 2 biblios cancelled' );
|
|
|
|
C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 );
|
|
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
|
|
is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' );
|
|
$basket = $baskets->[0];
|
|
is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' );
|
|
is( $basket->{total_biblios}, 2, 'Both orders deleted, still 6 biblios' );
|
|
is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' );
|
|
is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' );
|
|
|
|
C4::Acquisition::CloseBasket( $basketno );
|
|
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
|
|
is( scalar(@$baskets), 0, 'Basket is closed, 0 basket opened' );
|
|
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
|
|
is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter');
|
|
|
|
|
|
$dbh->rollback
|