|
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 |
- |
|
|