3 # This Koha test module is a stub!
4 # Add more tests here!!!
9 use POSIX qw(strftime);
11 use C4::Bookseller qw( GetBookSellerFromId );
13 use Test::More tests => 38;
16 use_ok('C4::Acquisition');
20 my $booksellerinfo = GetBookSellerFromId( $booksellerid );
21 # diag( Data::Dumper->Dump( [ $booksellerinfo ], [ 'booksellerinfo' ] ) );
23 skip 'No booksellers in database, cannot test baskets', 2 unless $booksellerinfo;
24 my ($basket, $basketno);
25 ok($basketno = NewBasket(1,1), "NewBasket( 1 , 1 ) returns $basketno");
26 ok($basket = GetBasket($basketno), "GetBasket($basketno) returns $basket");
32 my $orders = GetPendingOrders( $supplierid, $grouped );
33 isa_ok( $orders, 'ARRAY' );
35 my @lateorders = GetLateOrders(0);
36 my $order = $lateorders[0];
37 AddClaim( $order->{ordernumber} );
38 my $neworder = GetOrder( $order->{ordernumber} );
39 is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" );
42 skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
43 # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
44 my @expectedfields = qw( basketno
47 booksellerinvoicenumber
53 datecancellationprinted
77 my $firstorder = $orders->[0];
78 for my $field ( @expectedfields ) {
79 ok( exists( $firstorder->{ $field } ), "This order has a $field field" );