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

(-)a/t/db_dependent/Acquisition/close_reopen_basket.t (+75 lines)
Line 0 Link Here
1
#!/usr/bin/env perl
2
3
use Modern::Perl;
4
5
use Test::More;
6
use C4::Acquisition;
7
use C4::Bookseller;
8
use C4::Budgets;
9
10
my $booksellerid = C4::Bookseller::AddBookseller(
11
    {
12
        name => "my vendor",
13
        address1 => "bookseller's address",
14
        phone => "0123456",
15
        active => 1
16
    }
17
);
18
19
my $basketno = C4::Acquisition::NewBasket(
20
    $booksellerid
21
);
22
23
my $budgetid = C4::Budgets::AddBudget(
24
    {
25
        budget_code => "budget_code_test_close_reopen",
26
        budget_name => "budget_name_test_close_reopen",
27
    }
28
);
29
30
my $budget = C4::Budgets::GetBudget( $budgetid );
31
32
my ($ordernumber1, $ordernumber2);
33
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
34
    {
35
        basketno => $basketno,
36
        quantity => 24,
37
        biblionumber => 1,
38
        budget_id => $budget->{budget_id},
39
    }
40
);
41
42
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
43
    {
44
        basketno => $basketno,
45
        quantity => 42,
46
        biblionumber => 2,
47
        budget_id => $budget->{budget_id},
48
    }
49
);
50
51
my $nb_biblio = C4::Acquisition::GetBiblioCountByBasketno( $basketno );
52
is ( $nb_biblio, 2, "There are 2 biblio for this basket" );
53
my @orders = C4::Acquisition::GetOrders( $basketno );
54
is( scalar(@orders), 2, "2 orders are created" );
55
is ( scalar( map { $_->{orderstatus} == 0 ? 1 : () } @orders ), 2, "2 order are new before closing the basket" );
56
57
C4::Acquisition::CloseBasket( $basketno );
58
@orders = C4::Acquisition::GetOrders( $basketno );
59
is ( scalar( map { $_->{orderstatus} == 1 ? 1 : () } @orders ), 2, "2 orders are ordered, the basket is closed" );
60
61
C4::Acquisition::ReopenBasket( $basketno );
62
@orders = C4::Acquisition::GetOrders( $basketno );
63
is ( scalar( map { $_->{orderstatus} == 1 ? 1 : () } @orders ), 0, "No order are ordered, the basket is reopen" );
64
is ( scalar( map { $_->{orderstatus} == 0 ? 1 : () } @orders ), 2, "2 order are new, the basket is reopen" );
65
66
67
END {
68
    C4::Acquisition::DelOrder( 1, $ordernumber1 );
69
    C4::Acquisition::DelOrder( 2, $ordernumber2 );
70
    C4::Budgets::DelBudget( $budgetid );
71
    C4::Acquisition::DelBasket( $basketno );
72
    C4::Bookseller::DelBookseller( $booksellerid );
73
};
74
75
done_testing;
(-)a/t/db_dependent/lib/KohaTest/Acquisition.pm (-1 / +2 lines)
Lines 20-25 sub methods : Test( 1 ) { Link Here
20
    my @methods = qw(  GetBasket 
20
    my @methods = qw(  GetBasket 
21
                       NewBasket 
21
                       NewBasket 
22
                       CloseBasket 
22
                       CloseBasket 
23
                       ReopenBasket
23
                       GetPendingOrders 
24
                       GetPendingOrders 
24
                       GetOrders 
25
                       GetOrders 
25
                       GetOrderNumber 
26
                       GetOrderNumber 
Lines 34-39 sub methods : Test( 1 ) { Link Here
34
                       GetLateOrders 
35
                       GetLateOrders 
35
                       GetHistory 
36
                       GetHistory 
36
                       GetRecentAcqui 
37
                       GetRecentAcqui 
38
                       GetBiblioCountByBasketno
37
                );
39
                );
38
    
40
    
39
    can_ok( $self->testing_class, @methods );    
41
    can_ok( $self->testing_class, @methods );    
40
- 

Return to bug 5336