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