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 => 37;
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);
37 skip 'No Late Orders, cannot test AddClaim', 1 unless @lateorders;
38 my $order = $lateorders[0];
39 AddClaim( $order->{ordernumber} );
40 my $neworder = GetOrder( $order->{ordernumber} );
41 is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" );
45 skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders );
46 # diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
47 my @expectedfields = qw( basketno
56 datecancellationprinted
79 my $firstorder = $orders->[0];
80 for my $field ( @expectedfields ) {
81 ok( exists( $firstorder->{ $field } ), "This order has a $field field" );