Added one more failing test to address bad option priority hierarchy

xs-model
Alessandro Ranellucci 2014-03-26 19:42:01 +01:00
parent 4540350b66
commit 10bf334a58
3 changed files with 36 additions and 5 deletions

View File

@ -1196,8 +1196,7 @@ sub object_settings_dialog {
# update print
if ($dlg->PartsChanged || $dlg->PartSettingsChanged) {
$self->{print}->delete_object($obj_idx);
$self->{print}->add_model_object($model_object, $obj_idx);
$self->{print}->reload_object($obj_idx);
}
}

View File

@ -80,9 +80,9 @@ sub apply_config {
next if !defined $volume->material_id;
my $material = $object->model_object->model->materials->{$volume->material_id};
$new->apply_dynamic($material->config);
push @new_region_configs, $new;
}
}
push @new_region_configs, $new;
}
# then find the first pair of identical configs
@ -101,7 +101,7 @@ sub apply_config {
if ($have_identical_configs) {
# okay, the current subdivision of regions does not make sense anymore.
# we need to remove all objects and re-add them
my @model_objects = map $_->model_object, @{$self->object};
my @model_objects = map $_->model_object, @{$self->objects};
$self->delete_all_objects;
$self->add_model_object($_) for @model_objects;
} elsif (@$region_diff > 0) {
@ -141,6 +141,7 @@ sub add_model_object {
# override the defaults with per-object config and then with per-material config
$config->apply_dynamic($object->config);
if (defined $volume->material_id) {
my $material_config = $object->model->materials->{ $volume->material_id }->config;
$config->apply_dynamic($material_config);
@ -214,6 +215,20 @@ sub delete_all_objects {
$self->_state->invalidate(STEP_BRIM);
}
sub reload_object {
my ($self, $obj_idx) = @_;
# TODO: this method should check whether the per-object config and per-material configs
# have changed in such a way that regions need to be rearranged or we can just apply
# the diff and invalidate something. Same logic as apply_config()
# For now we just re-add all objects since we haven't implemented this incremental logic yet.
# This should also check whether object volumes (parts) have changed.
my @model_objects = map $_->model_object, @{$self->objects};
$self->delete_all_objects;
$self->add_model_object($_) for @model_objects;
}
sub validate {
my $self = shift;

View File

@ -1,4 +1,4 @@
use Test::More tests => 2;
use Test::More tests => 3;
use strict;
use warnings;
@ -30,4 +30,21 @@ use Slic3r::Test;
ok abs(unscale($center->[Y]) - $config->print_center->[Y]) < epsilon, '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('20mm_cube', config => $config);
# user sets a per-object option
$print->objects->[0]->config->set('fill_density', 100);
$print->reload_object(0);
# user exports G-code, thus the default config is reapplied
$print->apply_config($config);
is $print->objects->[0]->config->fill_density, 100, 'apply_config() does not override per-object settings';
}
__END__