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

(-)a/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t (-4 / +69 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Test::More tests => 18;
4
use Test::More tests => 40;
5
use Data::Dumper;
5
use Data::Dumper;
6
6
7
use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
7
use C4::Acquisition qw( NewBasket GetBasketsInfosByBookseller );
Lines 69-74 my $basket = $baskets->[0]; Link Here
69
is( $basket->{total_items}, 6, 'Start with 6 items' );
69
is( $basket->{total_items}, 6, 'Start with 6 items' );
70
is( $basket->{total_biblios}, 2, 'Start with 2 biblios' );
70
is( $basket->{total_biblios}, 2, 'Start with 2 biblios' );
71
is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
71
is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
72
is( $basket->{expected_items}, 6, 'Start with 6 items expected' );
72
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' );
73
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' );
73
74
74
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 );
75
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 );
Lines 78-92 $basket = $baskets->[0]; Link Here
78
is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' );
79
is( $basket->{total_items}, 6, 'Order2 deleted, still 6 items' );
79
is( $basket->{total_biblios}, 2, 'Order2 deleted, still 2 biblios' );
80
is( $basket->{total_biblios}, 2, 'Order2 deleted, still 2 biblios' );
80
is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' );
81
is( $basket->{total_items_cancelled}, 4, 'Order2 deleted, 4 items cancelled' );
81
is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 2 biblios cancelled' );
82
is( $basket->{expected_items}, 2, 'Order2 deleted, now 2 items are expected' );
83
is( $basket->{total_biblios_cancelled}, 1, 'Order2 deleted, 1 biblios cancelled' );
82
84
83
C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 );
85
C4::Acquisition::DelOrder( $biblionumber1, $ordernumber1 );
84
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
86
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
85
is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' );
87
is( scalar(@$baskets), 1, 'Both orders deleted, still 1 basket' );
86
$basket = $baskets->[0];
88
$basket = $baskets->[0];
87
is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' );
89
is( $basket->{total_items}, 6, 'Both orders deleted, still 6 items' );
88
is( $basket->{total_biblios}, 2, 'Both orders deleted, still 6 biblios' );
90
is( $basket->{total_biblios}, 2, 'Both orders deleted, still 2 biblios' );
89
is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' );
91
is( $basket->{total_items_cancelled}, 6, 'Both orders deleted, 6 items cancelled' );
92
is( $basket->{expected_items}, 0, 'Both orders delete, now 0 items are expected' );
90
is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' );
93
is( $basket->{total_biblios_cancelled}, 2, 'Both orders deleted, 2 biblios cancelled' );
91
94
92
C4::Acquisition::CloseBasket( $basketno );
95
C4::Acquisition::CloseBasket( $basketno );
Lines 95-99 is( scalar(@$baskets), 0, 'Basket is closed, 0 basket opened' ); Link Here
95
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
98
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
96
is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter');
99
is( scalar(@$baskets), 1, 'Basket is closed, test allbasket parameter');
97
100
101
C4::Acquisition::ReopenBasket( $basketno );
102
my $order3 = Koha::Acquisition::Order->new(
103
    {
104
        basketno => $basketno,
105
        quantity => 4,
106
        biblionumber => $biblionumber3,
107
        budget_id => $budget->{budget_id},
108
    }
109
)->store;
110
my $ordernumber3 = $order3->ordernumber;
111
112
C4::Acquisition::CloseBasket( $basketno );
113
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
114
is( scalar(@$baskets), 1, 'Basket is closed and has items to receive' );
115
$basket = $baskets->[0];
116
is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' );
117
is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
118
is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
119
is( $basket->{expected_items}, 4, '2 orders delete, 1 order pending, 4 items are expected' );
120
is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
121
122
my $invoiceid1 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown");
123
my $invoice1 = C4::Acquisition::GetInvoice( $invoiceid1 );
124
my ( $date_received, $ordernumber4 ) = C4::Acquisition::ModReceiveOrder(
125
    {
126
        biblionumber         => $biblionumber3,
127
        order                => $order3->unblessed,
128
        quantityreceived     => 2,
129
        budget_id            => $budget->{budget_id},
130
        invoice              => $invoice1,
131
    }
132
);
133
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
134
is( scalar(@$baskets), 1, 'Basket is closed and still has items to receive' );
135
$basket = $baskets->[0];
136
is( $basket->{total_items}, 10, '2 orders deleted, 1 order pending, 10 items total' );
137
is( $basket->{total_biblios}, 3, '2 orders deleted, 1 order pending, 3 biblios total' );
138
is( $basket->{total_items_cancelled}, 6, '2 orders deleted, 1 order pending, still 6 items cancelled' );
139
is( $basket->{expected_items}, 2, '2 orders delete, 1 order pending, 2 items are expected' );
140
is( $basket->{total_biblios_cancelled}, 2, '2 orders deleted, 1 order pending, still 2 biblios cancelled' );
141
142
my $invoiceid2 = C4::Acquisition::AddInvoice(invoicenumber => 'invoice1', booksellerid => $supplierid, unknown => "unknown");
143
my $invoice2 = C4::Acquisition::GetInvoice( $invoiceid2 );
144
my ( $date_received2, $ordernumber5 ) = C4::Acquisition::ModReceiveOrder(
145
    {
146
        biblionumber         => $biblionumber3,
147
        order                => $order3->get_from_storage->unblessed,
148
        quantityreceived     => 2,
149
        budget_id            => $budget->{budget_id},
150
        invoice              => $invoice2,
151
    }
152
);
153
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid, 1 );
154
is( scalar(@$baskets), 1, 'Basket is closed and has no items to receive, test allbasket parameter');
155
$basket = $baskets->[0];
156
is( $basket->{total_items}, 10, 'Basket is closed and has no items to receive, still 10 items total' );
157
is( $basket->{total_biblios}, 3, 'Basket is closed and has no items to receive, still 3 biblios total' );
158
is( $basket->{total_items_cancelled}, 6, 'Basket is closed and has no items to receive, still 6 items cancelled' );
159
is( $basket->{expected_items}, 0, 'Basket is closed and has no items to receive, 0 items are expected' );
160
is( $basket->{total_biblios_cancelled}, 2, 'Basket is closed and has no items to receive, still 2 biblios cancelled' );
161
162
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid );
163
is( scalar(@$baskets), 0, 'Basket is closed and has no items to receive' );
98
164
99
$schema->storage->txn_rollback();
165
$schema->storage->txn_rollback();
100
- 

Return to bug 21385