X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2Fdb_dependent%2FAcquisition%2FGetBasketsInfosByBookseller.t;h=458a2c7590043342a1ca4eb28b7ff4c17c38d0b7;hb=9d6d641d1f8b77271800f43bc027b651f9aea52b;hp=b742ddfd66694e62710ef2d2a10084e38e1b67de;hpb=2e11350fe378daa6f90f1750422f081538e15138;p=srvgit diff --git a/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t b/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t old mode 100644 new mode 100755 index b742ddfd66..458a2c7590 --- a/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t +++ b/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t @@ -1,24 +1,20 @@ #!/usr/bin/perl use Modern::Perl; -use Test::More tests => 18; +use Test::More tests => 43; use Data::Dumper; -use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller ); +use C4::Acquisition qw( NewBasket GetBasket GetBasketsInfosByBookseller ReopenBasket AddInvoice GetInvoice ModReceiveOrder ); use C4::Biblio qw( AddBiblio ); -use C4::Bookseller qw( AddBookseller ); -use C4::Budgets qw( AddBudget ); +use C4::Budgets qw( AddBudget GetBudget ); use C4::Context; use Koha::Database; -use Koha::Acquisition::Order; +use Koha::Acquisition::Orders; my $schema = Koha::Database->new()->schema(); $schema->storage->txn_begin(); -my $dbh = C4::Context->dbh; -$dbh->{RaiseError} = 1; - -my $supplierid = C4::Bookseller::AddBookseller( +my $supplier = Koha::Acquisition::Bookseller->new( { name => 'my vendor', address1 => 'bookseller\'s address', @@ -26,15 +22,16 @@ my $supplierid = C4::Bookseller::AddBookseller( 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', + budget_code => 'budget_code_test_1', + budget_name => 'budget_name_test_1', } ); my $budget = C4::Budgets::GetBudget( $budgetid ); @@ -50,8 +47,8 @@ my $order1 = Koha::Acquisition::Order->new( biblionumber => $biblionumber1, budget_id => $budget->{budget_id}, } -)->insert; -my $ordernumber1 = $order1->{ordernumber}; +)->store; +my $ordernumber1 = $order1->ordernumber; my $order2 = Koha::Acquisition::Order->new( { @@ -60,8 +57,8 @@ my $order2 = Koha::Acquisition::Order->new( biblionumber => $biblionumber2, budget_id => $budget->{budget_id}, } -)->insert; -my $ordernumber2 = $order2->{ordernumber}; +)->store; +my $ordernumber2 = $order2->ordernumber; my $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); is( scalar(@$baskets), 1, 'Start: 1 basket' ); @@ -69,31 +66,111 @@ 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->{expected_items}, 6, 'Start with 6 items expected' ); is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' ); -C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 ); +$order1->uncertainprice(1)->store; +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); +$basket = $baskets->[0]; +is( $basket->{uncertainprices}, 1, "Uncertain prcies returns number of uncertain items"); +$order2->uncertainprice(1)->store; +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); +$basket = $baskets->[0]; +is( $basket->{uncertainprices}, 2, "Uncertain prcies returns number of uncertain items"); +$order1->uncertainprice(0)->store; +$order2->uncertainprice(0)->store; +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); +$basket = $baskets->[0]; +is( $basket->{uncertainprices}, 0, "Uncertain prcies returns number of uncertain items"); + +Koha::Acquisition::Orders->find($ordernumber2)->cancel; $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' ); +is( $basket->{expected_items}, 2, 'Order2 deleted, now 2 items are expected' ); +is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 1 biblios cancelled' ); -C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 ); +Koha::Acquisition::Orders->find($ordernumber1)->cancel; $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_biblios}, 2, 'Both orders deleted, still 2 biblios' ); is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' ); +is( $basket->{expected_items}, 0, 'Both orders delete, now 0 items are expected' ); is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' ); -C4::Acquisition::CloseBasket( $basketno ); +Koha::Acquisition::Baskets->find( $basketno )->close; $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'); +C4::Acquisition::ReopenBasket( $basketno ); +my $order3 = Koha::Acquisition::Order->new( + { + basketno => $basketno, + quantity => 4, + biblionumber => $biblionumber3, + budget_id => $budget->{budget_id}, + } +)->store; +my $ordernumber3 = $order3->ordernumber; + +Koha::Acquisition::Baskets->find( $basketno )->close; +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); +is( scalar(@$baskets), 1, 'Basket is closed and has items to receive' ); +$basket = $baskets->[0]; +is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' ); +is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' ); +is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' ); +is( $basket->{expected_items}, 4, '2 orders delete, 1 order pending, 4 items are expected' ); +is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' ); + +my $invoiceid1 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown"); +my $invoice1 = C4::Acquisition::GetInvoice( $invoiceid1 ); +my ( $date_received, $ordernumber4 ) = C4::Acquisition::ModReceiveOrder( + { + biblionumber => $biblionumber3, + order => $order3->unblessed, + quantityreceived => 2, + budget_id => $budget->{budget_id}, + invoice => $invoice1, + } +); +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); +is( scalar(@$baskets), 1, 'Basket is closed and still has items to receive' ); +$basket = $baskets->[0]; +is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' ); +is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' ); +is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' ); +is( $basket->{expected_items}, 2, '2 orders delete, 1 order pending, 2 items are expected' ); +is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' ); + +my $invoiceid2 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown"); +my $invoice2 = C4::Acquisition::GetInvoice( $invoiceid2 ); +my ( $date_received2, $ordernumber5 ) = C4::Acquisition::ModReceiveOrder( + { + biblionumber => $biblionumber3, + order => $order3->get_from_storage->unblessed, + quantityreceived => 2, + budget_id => $budget->{budget_id}, + invoice => $invoice2, + } +); +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 ); +is( scalar(@$baskets), 1, 'Basket is closed and has no items to receive, test allbasket parameter'); +$basket = $baskets->[0]; +is( $basket->{total_items}, 10, 'Basket is closed and has no items to receive, still 10 items total' ); +is( $basket->{total_biblios}, 3, 'Basket is closed and has no items to receive, still 3 biblios total' ); +is( $basket->{total_items_cancelled}, 6, 'Basket is closed and has no items to receive, still 6 items cancelled' ); +is( $basket->{expected_items}, 0, 'Basket is closed and has no items to receive, 0 items are expected' ); +is( $basket->{total_biblios_cancelled}, 2, 'Basket is closed and has no items to receive, still 2 biblios cancelled' ); + +$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); +is( scalar(@$baskets), 0, 'Basket is closed and has no items to receive' ); $schema->storage->txn_rollback();