|
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 ); |
|
Lines 56-62
SKIP: {
Link Here
|
| 56 |
entrydate |
59 |
entrydate |
| 57 |
firstname |
60 |
firstname |
| 58 |
freight |
61 |
freight |
| 59 |
gst |
62 |
gstrate |
| 60 |
listprice |
63 |
listprice |
| 61 |
notes |
64 |
notes |
| 62 |
ordernumber |
65 |
ordernumber |
| 63 |
- |
|
|