Lines 397-403
subtest 'process_quote' => sub {
Link Here
|
397 |
my $orderline = 0; |
397 |
my $orderline = 0; |
398 |
while ( my $order = $orders->next ) { |
398 |
while ( my $order = $orders->next ) { |
399 |
$orderline++; |
399 |
$orderline++; |
400 |
diag( "Looking at order: " . $orderline ); |
400 |
|
|
|
401 |
#diag( "Looking at order: " . $orderline ); |
401 |
if ( $orderline == 1 ) { |
402 |
if ( $orderline == 1 ) { |
402 |
|
403 |
|
403 |
# Fund allocation |
404 |
# Fund allocation |
Lines 442-448
subtest 'process_quote' => sub {
Link Here
|
442 |
is( $rotas{'FAST'}, 1, "One item added to 'FAST' rota" ); |
443 |
is( $rotas{'FAST'}, 1, "One item added to 'FAST' rota" ); |
443 |
is( $rotas{'SLOW'}, 1, "One item added to 'SLOW' rota" ); |
444 |
is( $rotas{'SLOW'}, 1, "One item added to 'SLOW' rota" ); |
444 |
} elsif ( $orderline == 3 ) { |
445 |
} elsif ( $orderline == 3 ) { |
445 |
diag("Second LIN split into 2 Orderlines, one for each Fund"); |
446 |
|
|
|
447 |
#diag("Second LIN split into 2 Orderlines, one for each Fund"); |
446 |
|
448 |
|
447 |
# Fund allocation |
449 |
# Fund allocation |
448 |
my $fund = $order->fund; |
450 |
my $fund = $order->fund; |
449 |
- |
|
|