t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4 use Test::More tests => 43;
   5 use Data::Dumper;
   6
   7 use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
   8 use C4::Biblio qw( AddBiblio );
   9 use C4::Budgets qw( AddBudget );
  10 use C4::Context;
  11 use Koha::Database;
  12 use Koha::Acquisition::Orders;
  13
  14 my $schema = Koha::Database->new()->schema();
  15 $schema->storage->txn_begin();
  16
  17 my $dbh = C4::Context->dbh;
  18 $dbh->{RaiseError} = 1;
  19
  20 my $supplier = Koha::Acquisition::Bookseller->new(
  21     {
  22         name => 'my vendor',
  23         address1 => 'bookseller\'s address',
  24         phone => '0123456',
  25         active => 1,
  26         deliverytime => 5,
  27     }
  28 )->store;
  29 my $supplierid = $supplier->id;
  30
  31 my $basketno;
  32 ok($basketno = NewBasket($supplierid, 1), 'NewBasket(  $supplierid , 1  ) returns $basketno');
  33
  34 my $budgetid = C4::Budgets::AddBudget(
  35     {
  36         budget_code => 'budget_code_test_1',
  37         budget_name => 'budget_name_test_1',
  38     }
  39 );
  40 my $budget = C4::Budgets::GetBudget( $budgetid );
  41
  42 my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
  43 my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
  44 my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
  45
  46 my $order1 = Koha::Acquisition::Order->new(
  47     {
  48         basketno => $basketno,
  49         quantity => 2,
  50         biblionumber => $biblionumber1,
  51         budget_id => $budget->{budget_id},
  52     }
  53 )->store;
  54 my $ordernumber1 = $order1->ordernumber;
  55
  56 my $order2 = Koha::Acquisition::Order->new(
  57     {
  58         basketno => $basketno,
  59         quantity => 4,
  60         biblionumber => $biblionumber2,
  61         budget_id => $budget->{budget_id},
  62     }
  63 )->store;
  64 my $ordernumber2 = $order2->ordernumber;
  65
  66 my $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
  67 is( scalar(@$baskets), 1, 'Start: 1 basket' );
  68 my $basket = $baskets->[0];
  69 is( $basket->{total_items}, 6, 'Start with 6 items' );
  70 is( $basket->{total_biblios}, 2, 'Start with 2 biblios' );
  71 is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
  72 is( $basket->{expected_items}, 6, 'Start with 6 items expected' );
  73 is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' );
  74
  75 $order1->uncertainprice(1)->store;
  76 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
  77 $basket = $baskets->[0];
  78 is( $basket->{uncertainprices}, 1, "Uncertain prcies returns number of uncertain items");
  79 $order2->uncertainprice(1)->store;
  80 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
  81 $basket = $baskets->[0];
  82 is( $basket->{uncertainprices}, 2, "Uncertain prcies returns number of uncertain items");
  83 $order1->uncertainprice(0)->store;
  84 $order2->uncertainprice(0)->store;
  85 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
  86 $basket = $baskets->[0];
  87 is( $basket->{uncertainprices}, 0, "Uncertain prcies returns number of uncertain items");
  88
  89 C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 );
  90 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
  91 is( scalar(@$baskets), 1, 'Order2 deleted, still 1 basket' );
  92 $basket = $baskets->[0];
  93 is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' );
  94 is( $basket->{total_biblios}, 2, 'Order2 deleted, still 2 biblios' );
  95 is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' );
  96 is( $basket->{expected_items}, 2, 'Order2 deleted, now 2 items are expected' );
  97 is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 1 biblios cancelled' );
  98
  99 C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 );
 100 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
 101 is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' );
 102 $basket = $baskets->[0];
 103 is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' );
 104 is( $basket->{total_biblios}, 2, 'Both orders deleted, still 2 biblios' );
 105 is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' );
 106 is( $basket->{expected_items}, 0, 'Both orders delete, now 0 items are expected' );
 107 is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' );
 108
 109 C4::Acquisition::CloseBasket( $basketno );
 110 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
 111 is( scalar(@$baskets), 0, 'Basket is closed, 0 basket opened' );
 112 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
 113 is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter');
 114
 115 C4::Acquisition::ReopenBasket( $basketno );
 116 my $order3 = Koha::Acquisition::Order->new(
 117     {
 118         basketno => $basketno,
 119         quantity => 4,
 120         biblionumber => $biblionumber3,
 121         budget_id => $budget->{budget_id},
 122     }
 123 )->store;
 124 my $ordernumber3 = $order3->ordernumber;
 125
 126 C4::Acquisition::CloseBasket( $basketno );
 127 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
 128 is( scalar(@$baskets), 1, 'Basket is closed and has items to receive' );
 129 $basket = $baskets->[0];
 130 is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' );
 131 is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
 132 is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
 133 is( $basket->{expected_items}, 4, '2 orders delete, 1 order pending, 4 items are expected' );
 134 is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
 135
 136 my $invoiceid1 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown");
 137 my $invoice1 = C4::Acquisition::GetInvoice( $invoiceid1 );
 138 my ( $date_received, $ordernumber4 ) = C4::Acquisition::ModReceiveOrder(
 139     {
 140         biblionumber         => $biblionumber3,
 141         order                => $order3->unblessed,
 142         quantityreceived     => 2,
 143         budget_id            => $budget->{budget_id},
 144         invoice              => $invoice1,
 145     }
 146 );
 147 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
 148 is( scalar(@$baskets), 1, 'Basket is closed and still has items to receive' );
 149 $basket = $baskets->[0];
 150 is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' );
 151 is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
 152 is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
 153 is( $basket->{expected_items}, 2, '2 orders delete, 1 order pending, 2 items are expected' );
 154 is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
 155
 156 my $invoiceid2 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown");
 157 my $invoice2 = C4::Acquisition::GetInvoice( $invoiceid2 );
 158 my ( $date_received2, $ordernumber5 ) = C4::Acquisition::ModReceiveOrder(
 159     {
 160         biblionumber         => $biblionumber3,
 161         order                => $order3->get_from_storage->unblessed,
 162         quantityreceived     => 2,
 163         budget_id            => $budget->{budget_id},
 164         invoice              => $invoice2,
 165     }
 166 );
 167 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
 168 is( scalar(@$baskets), 1, 'Basket is closed and has no items to receive, test allbasket parameter');
 169 $basket = $baskets->[0];
 170 is( $basket->{total_items}, 10, 'Basket is closed and has no items to receive, still 10 items total' );
 171 is( $basket->{total_biblios}, 3, 'Basket is closed and has no items to receive, still 3 biblios total' );
 172 is( $basket->{total_items_cancelled}, 6, 'Basket is closed and has no items to receive, still 6 items cancelled' );
 173 is( $basket->{expected_items}, 0, 'Basket is closed and has no items to receive, 0 items are expected' );
 174 is( $basket->{total_biblios_cancelled}, 2, 'Basket is closed and has no items to receive, still 2 biblios cancelled' );
 175
 176 $baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
 177 is( scalar(@$baskets), 0, 'Basket is closed and has no items to receive' );
 178
 179 $schema->storage->txn_rollback();