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 => 40; |
4 |
use Test::More tests => 43; |
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 72-77
is( $basket->{total_items_cancelled}, 0, 'Start with 0 item cancelled' );
Link Here
|
72 |
is( $basket->{expected_items}, 6, 'Start with 6 items expected' ); |
72 |
is( $basket->{expected_items}, 6, 'Start with 6 items expected' ); |
73 |
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' ); |
73 |
is( $basket->{total_biblios_cancelled}, 0, 'Start with 0 biblio cancelled' ); |
74 |
|
74 |
|
|
|
75 |
$order1->uncertainprice(1)->store; |
76 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
77 |
$basket = $baskets->[0]; |
78 |
is( $basket->{uncertainprices}, 1, "Uncertain prcies returns number of uncertain items"); |
79 |
$order2->uncertainprice(1)->store; |
80 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
81 |
$basket = $baskets->[0]; |
82 |
is( $basket->{uncertainprices}, 2, "Uncertain prcies returns number of uncertain items"); |
83 |
$order1->uncertainprice(0)->store; |
84 |
$order2->uncertainprice(0)->store; |
85 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
86 |
$basket = $baskets->[0]; |
87 |
is( $basket->{uncertainprices}, 0, "Uncertain prcies returns number of uncertain items"); |
88 |
|
75 |
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 ); |
89 |
C4::Acquisition::DelOrder( $biblionumber2, $ordernumber2 ); |
76 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
90 |
$baskets = C4::Acquisition::GetBasketsInfosByBookseller( $supplierid ); |
77 |
is( scalar(@$baskets), 1, 'Order2 deleted, still 1 basket' ); |
91 |
is( scalar(@$baskets), 1, 'Order2 deleted, still 1 basket' ); |
78 |
- |
|
|