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:
Vojtech Bubnik 2021-02-24 18:48:55 +01:00
parent e9875f57a9
commit 34417574f5

View File

@ -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)