t/db_dependent/Acquisition/TransferOrder.t

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Test::More tests => 6;
   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 MARC::Record;
  13
  14 my $dbh = C4::Context->dbh;
  15 $dbh->{RaiseError} = 1;
  16 $dbh->{AutoCommit} = 0;
  17
  18 my $booksellerid1 = C4::Bookseller::AddBookseller(
  19     {
  20         name => "my vendor 1",
  21         address1 => "bookseller's address",
  22         phone => "0123456",
  23         active => 1
  24     }
  25 );
  26
  27 my $basketno1 = C4::Acquisition::NewBasket(
  28     $booksellerid1
  29 );
  30
  31 my $booksellerid2 = C4::Bookseller::AddBookseller(
  32     {
  33         name => "my vendor 2",
  34         address1 => "bookseller's address",
  35         phone => "0123456",
  36         active => 1
  37     }
  38 );
  39
  40 my $basketno2 = C4::Acquisition::NewBasket(
  41     $booksellerid2
  42 );
  43
  44 my $budgetid = C4::Budgets::AddBudget(
  45     {
  46         budget_code => "budget_code_test_transferorder",
  47         budget_name => "budget_name_test_transferorder",
  48     }
  49 );
  50
  51 my $budget = C4::Budgets::GetBudget( $budgetid );
  52
  53 my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
  54 my $itemnumber = AddItem({}, $biblionumber);
  55
  56 my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
  57     {
  58         basketno => $basketno1,
  59         quantity => 24,
  60         biblionumber => $biblionumber,
  61         budget_id => $budget->{budget_id},
  62     }
  63 );
  64 NewOrderItem($itemnumber, $ordernumber);
  65
  66 # Begin tests
  67 my $order;
  68 is(scalar GetOrders($basketno1), 1, "1 order in basket1");
  69 ($order) = GetOrders($basketno1);
  70 is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket1's order");
  71 is(scalar GetOrders($basketno2), 0, "0 order in basket2");
  72
  73 diag("Transfering order to basket2");
  74 my $newordernumber = TransferOrder($ordernumber, $basketno2);
  75 is(scalar GetOrders($basketno1), 0, "0 order in basket1");
  76 is(scalar GetOrders($basketno2), 1, "1 order in basket2");
  77 ($order) = GetOrders($basketno2);
  78 is(scalar GetItemnumbersFromOrder($order->{ordernumber}), 1, "1 item in basket2's order");
  79
  80 $dbh->rollback;