t/db_dependent/Acquisition/StandingOrders.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 13;
   6 use C4::Context;
   7 use C4::Acquisition;
   8 use C4::Biblio;
   9 use C4::Items;
  10 use C4::Budgets;
  11 use Koha::Acquisition::Order;
  12 use t::lib::Mocks;
  13 use t::lib::TestBuilder;
  14
  15 my $schema = Koha::Database->schema;
  16 $schema->storage->txn_begin;
  17 my $builder = t::lib::TestBuilder->new;
  18
  19 # Set up configuration data
  20
  21 my $branch = $builder->build( { source => 'Branch' } );
  22 my $bookseller = $builder->build( { source => 'Aqbookseller' } );
  23 my $budget = $builder->build( { source => 'Aqbudget' } );
  24 my $staffmember = $builder->build( { source => 'Borrower' } );
  25
  26 # Create baskets and orders
  27
  28 my $basketno = NewBasket(
  29     $bookseller->{id},
  30     $staffmember->{borrowernumber},
  31     'Standing order basket', # basketname
  32     '', # basketnote
  33     '', # basketbooksellernote
  34     undef, # basketcontractnumber
  35     $branch->{branchcode}, # deliveryplace
  36     $branch->{branchcode}, # billingplace
  37     1 # is_standing
  38 );
  39
  40 my $nonstandingbasketno = NewBasket(
  41     $bookseller->{id},
  42     $staffmember->{borrowernumber},
  43     'Non-standing order basket', # basketname
  44     '', # basketnote
  45     '', # basketbooksellernote
  46     undef, # basketcontractnumber
  47     $branch->{branchcode}, # deliveryplace
  48     $branch->{branchcode}, # billingplace
  49     0 # is_standing
  50 );
  51
  52 my $basket = GetBasket($basketno);
  53
  54 is( $basket->{is_standing}, 1, 'basket correctly created as standing order basket' );
  55
  56 my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
  57
  58
  59 my $ordernumber = Koha::Acquisition::Order->new(
  60     {
  61         basketno                 => $basketno,
  62         biblionumber             => $biblionumber,
  63         budget_id                => $budget->{budget_id},
  64         currency                 => 'USD',
  65         quantity                 => 0,
  66         rrp                      => 42,
  67         rrp_tax_included         => 42,
  68         rrp_tax_excluded         => 42,
  69         ecost                    => 22,
  70         ecost_tax_included       => 22,
  71         ecost_tax_excluded       => 22,
  72         unitprice                => 12,
  73         unitprice_tax_included   => 12,
  74         unitprice_tax_excluded   => 12,
  75         tax_rate                 => 0,
  76         tax_rate_on_ordering     => 0,
  77         tax_rate_on_receiving    => 0,
  78     }
  79 )->insert->{ordernumber};
  80
  81 isnt( $ordernumber, undef, 'standing order successfully created' );
  82
  83 my $search_orders = SearchOrders( {
  84     basketno => $basketno,
  85     pending => 1,
  86     ordered => 1,
  87 } );
  88
  89 ok(
  90     scalar @$search_orders == 1 && $search_orders->[0]->{ordernumber} == $ordernumber,
  91     'standing order counts as a pending/ordered order'
  92 );
  93
  94 my $invoiceid = AddInvoice(
  95     invoicenumber => 'invoice',
  96     booksellerid  => $bookseller->{id},
  97     unknown       => "unknown"
  98 );
  99
 100 my $order = Koha::Acquisition::Order->fetch( { ordernumber => $ordernumber } );
 101
 102 my ( $datereceived, $new_ordernumber ) = ModReceiveOrder(
 103     {
 104         biblionumber     => $biblionumber,
 105         order            => $order,
 106         quantityreceived => 2,
 107         invoiceid        => $invoiceid,
 108     }
 109 );
 110
 111 isnt( $ordernumber, $new_ordernumber, "standing order split on receive" );
 112
 113 #order has been updated, refetch
 114 $order = Koha::Acquisition::Order->fetch( { ordernumber => $ordernumber } );
 115 my $neworder = Koha::Acquisition::Order->fetch( { ordernumber => $new_ordernumber } );
 116
 117 is( $order->{orderstatus}, 'partial', 'original order set to partially received' );
 118 is( $order->{quantity}, 1, 'original order quantity unchanged' );
 119 is( $order->{quantityreceived}, 0, 'original order has no received items' );
 120 isnt( $order->{unitprice}, 12, 'original order does not get cost' );
 121 is( $neworder->{orderstatus}, 'complete', 'new order set to complete' );
 122 is( $neworder->{quantityreceived}, 2, 'new order has received items' );
 123 cmp_ok( $neworder->{unitprice}, '==', 12, 'new order does get cost' );
 124
 125 $search_orders = SearchOrders( {
 126     basketno => $basketno,
 127     pending => 1,
 128     ordered => 1,
 129 } );
 130
 131 is( scalar @$search_orders, 1, 'only one pending order after receive' );
 132 is( $search_orders->[0]->{ordernumber}, $ordernumber, 'original order is only pending order' );
 133
 134 $schema->storage->txn_rollback();