3 # This Koha test module is a stub!
4 # Add more tests here!!!
10 use C4::Bookseller qw( GetBookSellerFromId );
12 use Test::More tests => 37;
15 use_ok('C4::Acquisition');
19 my $booksellerinfo = GetBookSellerFromId( $booksellerid );
20 # diag( Data::Dumper->Dump( [ $booksellerinfo ], [ 'booksellerinfo' ] ) );
22 skip 'No booksellers in database, cannot test baskets', 2 unless $booksellerinfo;
23 my ($basket, $basketno);
24 ok($basketno = NewBasket(1,1), "NewBasket( 1 , 1 ) returns $basketno");
25 ok($basket = GetBasket($basketno), "GetBasket($basketno) returns $basket");
31 my $orders = GetPendingOrders( $supplierid, $grouped );
32 isa_ok( $orders, 'ARRAY' );
34 skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
35 # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
36 my @expectedfields = qw( basketno
39 booksellerinvoicenumber
45 datecancellationprinted
69 my $firstorder = $orders->[0];
70 for my $field ( @expectedfields ) {
71 ok( exists( $firstorder->{ $field } ), "This order has a $field field" );