Fix of Perl combine infill unit test after a change in raft:
1st object layer over raft is no more printed with bridging infill.
This commit is contained in:
parent
e9875f57a9
commit
34417574f5
@ -43,9 +43,11 @@ plan tests => 8;
|
|||||||
my $layers_with_infill = grep $_ > 0, values %layer_infill;
|
my $layers_with_infill = grep $_ > 0, values %layer_infill;
|
||||||
is scalar(keys %layers), $layers_with_perimeters+$config->raft_layers, 'expected number of layers';
|
is scalar(keys %layers), $layers_with_perimeters+$config->raft_layers, 'expected number of layers';
|
||||||
|
|
||||||
# first infill layer is never combined, so we don't consider it
|
if ($config->raft_layers == 0) {
|
||||||
$layers_with_infill--;
|
# first infill layer printed directly on print bed is not combined, so we don't consider it.
|
||||||
$layers_with_perimeters--;
|
$layers_with_infill--;
|
||||||
|
$layers_with_perimeters--;
|
||||||
|
}
|
||||||
|
|
||||||
# we expect that infill is generated for half the number of combined layers
|
# we expect that infill is generated for half the number of combined layers
|
||||||
# plus for each single layer that was not combined (remainder)
|
# plus for each single layer that was not combined (remainder)
|
||||||
|
Loading…
Reference in New Issue
Block a user