Jonathan Druart
5c0dfe8523
This patch create a Koha::Acquisition::Booksellers module and Koha::Acquisition::Bookseller::Contract[s] modules. All code in the acquisition module is adapted to use the CRUD methods of Koha::Object[s]. The former C4 routines are removed. Test plan: Since a lot of files are impacted by this patch, try a complete acquisition workflow and try to catch errors. Be focused on bookseller and bookseller' contacts data. Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
99 lines
3.5 KiB
Perl
99 lines
3.5 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::Budgets qw( AddBudget );
|
|
use C4::Context;
|
|
use Koha::Database;
|
|
use Koha::Acquisition::Order;
|
|
|
|
my $schema = Koha::Database->new()->schema();
|
|
$schema->storage->txn_begin();
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
$dbh->{RaiseError} = 1;
|
|
|
|
my $supplier = Koha::Acquisition::Bookseller->new(
|
|
{
|
|
name => 'my vendor',
|
|
address1 => 'bookseller\'s address',
|
|
phone => '0123456',
|
|
active => 1,
|
|
deliverytime => 5,
|
|
}
|
|
)->store;
|
|
my $supplierid = $supplier->id;
|
|
|
|
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');
|
|
|
|
|
|
$schema->storage->txn_rollback();
|