07282eb24d
There was a bug in unit tests that led to generating the wipe tower with non-normalized preset. This caused out-of-bounds access into max_layer_height vector in fill_wipe_tower_partitions. The problem surfaced in https://github.com/prusa3d/PrusaSlicer/issues/2288. I quickly patched additional normalization of the preset to prevent this from happening. Also, an assert in the same function turned out to trip on one of the tests. This one was commented out for now and will (hopefully) be looked into later. Function Print::apply_config was renamed to apply_config_perl_tests_only so everyone sees its current purpose and does not mistake it for the more important Print::apply.
61 lines
2.4 KiB
Perl
61 lines
2.4 KiB
Perl
use Test::More tests => 6;
|
|
use strict;
|
|
use warnings;
|
|
|
|
BEGIN {
|
|
use FindBin;
|
|
use lib "$FindBin::Bin/../lib";
|
|
use local::lib "$FindBin::Bin/../local-lib";
|
|
}
|
|
|
|
use List::Util qw(first);
|
|
use Slic3r;
|
|
use Slic3r::Geometry qw(unscale X Y);
|
|
use Slic3r::Test;
|
|
|
|
{
|
|
my $config = Slic3r::Config::new_from_defaults;
|
|
my $print_center = [100,100];
|
|
my $print = Slic3r::Test::init_print('20mm_cube', config => $config, print_center => $print_center);
|
|
my @extrusion_points = ();
|
|
Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub {
|
|
my ($self, $cmd, $args, $info) = @_;
|
|
|
|
if ($cmd eq 'G1' && $info->{extruding} && $info->{dist_XY} > 0) {
|
|
push @extrusion_points, my $point = Slic3r::Point->new_scale($args->{X}, $args->{Y});
|
|
}
|
|
});
|
|
my $bb = Slic3r::Geometry::BoundingBox->new_from_points(\@extrusion_points);
|
|
my $center = $bb->center;
|
|
ok abs(unscale($center->[X]) - $print_center->[X]) < 0.005, 'print is centered around print_center (X)';
|
|
ok abs(unscale($center->[Y]) - $print_center->[Y]) < 0.005, 'print is centered around print_center (Y)';
|
|
}
|
|
|
|
{
|
|
# this represents the aggregate config from presets
|
|
my $config = Slic3r::Config::new_from_defaults;
|
|
|
|
# user adds one object to the plater
|
|
my $print = Slic3r::Test::init_print(my $model = Slic3r::Test::model('20mm_cube'), config => $config);
|
|
|
|
# user sets a per-region option
|
|
$print->print->objects->[0]->model_object->config->set('fill_density', 100);
|
|
$print->print->reload_object(0);
|
|
is $print->print->regions->[0]->config->fill_density, 100, 'region config inherits model object config';
|
|
|
|
# user exports G-code, thus the default config is reapplied
|
|
$print->print->apply_config_perl_tests_only($config);
|
|
|
|
is $print->print->regions->[0]->config->fill_density, 100, 'apply_config() does not override per-object settings';
|
|
|
|
# user assigns object extruders
|
|
$print->print->objects->[0]->model_object->config->set('extruder', 3);
|
|
$print->print->objects->[0]->model_object->config->set('perimeter_extruder', 2);
|
|
$print->print->reload_object(0);
|
|
|
|
is $print->print->regions->[0]->config->infill_extruder, 3, 'extruder setting is correctly expanded';
|
|
is $print->print->regions->[0]->config->perimeter_extruder, 2, 'extruder setting does not override explicitely specified extruders';
|
|
}
|
|
|
|
__END__
|