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