Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 12648: Add unit tests for C4::Acquisition::*OrderUsers

Browse source 
Test plan:
Verify that unit tests pass with
    prove t/db_dependent/Acquisition/OrderUsers.t

Signed-off-by: Paola Rossi <paola.rossi@cineca.it>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Jonathan Druart 2014-07-24 13:49:49 +02:00 committed by Tomas Cohen Arazi
parent 519c273643
commit 753cbc4040
1 changed files with 110 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

110
t/db_dependent/Acquisition/OrderUsers.t Normal file
View file

@ -0,0 +1,110 @@
use Modern::Perl;
use Test::More tests => 3;
use C4::Acquisition;
use C4::Biblio;
use C4::Bookseller qw( GetBookSellerFromId );
use C4::Letters;
use Koha::Acquisition::Order;
my $dbh = C4::Context->dbh;
$dbh->{RaiseError} = 1;
$dbh->{AutoCommit} = 0;
# Creating some orders
my $booksellerid = C4::Bookseller::AddBookseller(
{
name => "my vendor",
address1 => "bookseller's address",
phone => "0123456",
active => 1,
}
);
my $basketno = NewBasket( $booksellerid, 1 );
my $budgetid = C4::Budgets::AddBudget(
{
budget_code => "budget_code_test_getordersbybib",
budget_name => "budget_name_test_getordersbybib",
}
);
my $budget = C4::Budgets::GetBudget($budgetid);
my @ordernumbers;
my ( $biblionumber, $biblioitemnumber ) = C4::Biblio::AddBiblio( MARC::Record->new, '' );
my $ordernumber;
$ordernumber = Koha::Acquisition::Order->new(
{
basketno => $basketno,
quantity => 2,
biblionumber => $biblionumber,
budget_id => $budgetid,
entrydate => '01-01-2014',
currency => 'EUR',
notes => "This is a note1",
gstrate => 0.0500,
orderstatus => 1,
quantityreceived => 0,
rrp => 10,
ecost => 10,
}
)->insert->{ordernumber};
my $invoiceid = AddInvoice(
invoicenumber => 'invoice',
booksellerid => $booksellerid,
unknown => "unknown"
);
my $borrowernumber = C4::Members::AddMember(
cardnumber => 'TESTCARD',
firstname => 'TESTFN',
surname => 'TESTSN',
categorycode => 'S',
branchcode => 'CPL',
dateofbirth => '',
dateexpiry => '9999-12-31',
userid => 'TESTUSERID'
);
my $borrower = C4::Members::GetMemberDetails( $borrowernumber );
C4::Acquisition::ModOrderUsers( $ordernumber, $borrowernumber );
my $is_added = grep { /^$borrowernumber$/ } C4::Acquisition::GetOrderUsers( $ordernumber );
is( $is_added, 1, 'ModOrderUsers should link patrons to an order' );
ModReceiveOrder(
{
biblionumber => $biblionumber,
ordernumber => $ordernumber,
quantityreceived => 1,
cost => 10,
ecost => 10,
invoiceid => $invoiceid,
rrp => 10,
budget_id => $budgetid,
}
);
my $messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
is( scalar( @$messages ), 0, 'The letter has not been sent to message queue on receiving the order, the order is not entire received');
ModReceiveOrder(
{
biblionumber => $biblionumber,
ordernumber => $ordernumber,
quantityreceived => 1,
cost => 10,
ecost => 10,
invoiceid => $invoiceid,
rrp => 10,
budget_id => $budgetid,
}
);
$messages = C4::Letters::GetQueuedMessages({ borrowernumber => $borrowernumber });
is( scalar( @$messages ), 1, 'The letter has been sent to message queue on receiving the order');