|
Lines 33-42
my $orders = GetPendingOrders( $supplierid, $grouped );
Link Here
|
| 33 |
isa_ok( $orders, 'ARRAY' ); |
33 |
isa_ok( $orders, 'ARRAY' ); |
| 34 |
|
34 |
|
| 35 |
my @lateorders = GetLateOrders(0); |
35 |
my @lateorders = GetLateOrders(0); |
| 36 |
my $order = $lateorders[0]; |
36 |
SKIP: { |
| 37 |
AddClaim( $order->{ordernumber} ); |
37 |
skip 'No Late Orders, cannot test AddClaim', 1 unless @lateorders; |
| 38 |
my $neworder = GetOrder( $order->{ordernumber} ); |
38 |
my $order = $lateorders[0]; |
| 39 |
is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" ); |
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" ); |
| 42 |
} |
| 40 |
|
43 |
|
| 41 |
SKIP: { |
44 |
SKIP: { |
| 42 |
skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); |
45 |
skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); |
| 43 |
- |
|
|