View | Details | Raw Unified | Return to bug 10013
Collapse All | Expand All

(-)a/t/db_dependent/Acquisition/BudgetInfoFromItemnumber.t (-1 / +62 lines)
Line 0 Link Here
0
- 
1
#!/usr/bin/perl
2
3
use Modern::Perl;
4
5
use Test::More tests => 1;
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 $booksellerid = 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 $basketno = C4::Acquisition::NewBasket(
28
    $booksellerid
29
);
30
31
32
my $budgetid = C4::Budgets::AddBudget(
33
    {
34
        budget_code => "budget_code",
35
        budget_name => "budget_name",
36
    }
37
);
38
39
my $budget = C4::Budgets::GetBudget( $budgetid );
40
41
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
42
my $itemnumber = AddItem({}, $biblionumber);
43
44
my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
45
    {
46
        basketno => $basketno,
47
        quantity => 1,
48
        biblionumber => $biblionumber,
49
        budget_id => $budget->{budget_id},
50
    }
51
);
52
53
NewOrderItem($itemnumber, $ordernumber);
54
55
# Begin tests
56
57
my $bud = GetBudgetInfoFromItemnumber($itemnumber);
58
ok($bud->{'budget_name'}, "Test the GetBudgetInfoFromItemnumber routine");
59
60
$dbh->rollback();
61
#done testing
62

Return to bug 10013