From 9ae573243add38d5bb158d629e70913c8c505962 Mon Sep 17 00:00:00 2001 From: Amit Gupta Date: Fri, 18 Oct 2013 20:42:21 +0530 Subject: [PATCH] Bug-10013-New unit tests for routine: GetBudgetInfoFromItemnumber --- .../Acquisition/BudgetInfoFromItemnumber.t | 62 ++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 t/db_dependent/Acquisition/BudgetInfoFromItemnumber.t diff --git a/t/db_dependent/Acquisition/BudgetInfoFromItemnumber.t b/t/db_dependent/Acquisition/BudgetInfoFromItemnumber.t new file mode 100644 index 0000000..9085b8d --- /dev/null +++ b/t/db_dependent/Acquisition/BudgetInfoFromItemnumber.t @@ -0,0 +1,62 @@ +#!/usr/bin/perl + +use Modern::Perl; + +use Test::More tests => 1; +use C4::Context; +use C4::Acquisition; +use C4::Biblio; +use C4::Items; +use C4::Bookseller; +use C4::Budgets; +use MARC::Record; + +my $dbh = C4::Context->dbh; +$dbh->{RaiseError} = 1; +$dbh->{AutoCommit} = 0; + +my $booksellerid = C4::Bookseller::AddBookseller( + { + name => "my vendor 1", + address1 => "bookseller's address", + phone => "0123456", + active => 1 + } +); + +my $basketno = C4::Acquisition::NewBasket( + $booksellerid +); + + +my $budgetid = C4::Budgets::AddBudget( + { + budget_code => "budget_code", + budget_name => "budget_name", + } +); + +my $budget = C4::Budgets::GetBudget( $budgetid ); + +my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, ''); +my $itemnumber = AddItem({}, $biblionumber); + +my ( undef, $ordernumber ) = C4::Acquisition::NewOrder( + { + basketno => $basketno, + quantity => 1, + biblionumber => $biblionumber, + budget_id => $budget->{budget_id}, + } +); + +NewOrderItem($itemnumber, $ordernumber); + +# Begin tests + +my $bud = GetBudgetInfoFromItemnumber($itemnumber); +ok($bud->{'budget_name'}, "Test the GetBudgetInfoFromItemnumber routine"); + +$dbh->rollback(); +#done testing + -- 1.7.9.5