diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2014-03-25 04:11:28 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2014-03-25 04:11:28 +0400 |
commit | 432a87e73d27af53503d52f0fb8c82397914595d (patch) | |
tree | f77c1a2fe4e757ad1e4dbd3c26032080d3d08390 /t/multi.t | |
parent | 6feff7fe5316500f583436ee30c034d2ccfbbc2d (diff) |
New option for forcing the generation of interface shells. #1847
Diffstat (limited to 't/multi.t')
-rw-r--r-- | t/multi.t | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -1,4 +1,4 @@ -use Test::More tests => 4; +use Test::More tests => 6; use strict; use warnings; @@ -92,7 +92,7 @@ use Slic3r::Test; my $print = Slic3r::Test::init_print($model, config => $config); my $tool = undef; my %T0_shells = my %T1_shells = (); # Z => 1 - Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub { + Slic3r::GCode::Reader->new->parse(my $gcode = Slic3r::Test::gcode($print), sub { my ($self, $cmd, $args, $info) = @_; if ($cmd =~ /^T(\d+)/) { @@ -115,6 +115,12 @@ use Slic3r::Test; is scalar(@$t0), 0, 'no interface shells'; is scalar(@$t1), 0, 'no interface shells'; } + { + $config->set('interface_shells', 1); + my ($t0, $t1) = $test->(); + is scalar(@$t0), $lower_config->top_solid_layers, 'top interface shells'; + is scalar(@$t1), $upper_config->bottom_solid_layers, 'bottom interface shells'; + } } __END__ |