734846e4cb
Verify prove t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t returns green. Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
93 lines
3.3 KiB
Perl
93 lines
3.3 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
use Test::More tests => 18;
|
|
use Data::Dumper;
|
|
|
|
use C4::Acquisition qw( NewOrder NewBasket GetBasketsInfosByBookseller );
|
|
use C4::Biblio qw( AddBiblio );
|
|
use C4::Bookseller qw( AddBookseller );
|
|
use C4::Budgets qw( AddBudget );
|
|
use C4::Context;
|
|
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 ($ordernumber1, $ordernumber2, $ordernumber3);
|
|
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
|
|
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
|
|
my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
|
|
|
|
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
|
|
{
|
|
basketno => $basketno,
|
|
quantity => 2,
|
|
biblionumber => $biblionumber1,
|
|
budget_id => $budget->{budget_id},
|
|
}
|
|
);
|
|
|
|
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
|
|
{
|
|
basketno => $basketno,
|
|
quantity => 4,
|
|
biblionumber => $biblionumber2,
|
|
budget_id => $budget->{budget_id},
|
|
}
|
|
);
|
|
|
|
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
|