diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2015-01-06 23:04:00 +0300 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2015-01-06 23:04:00 +0300 |
commit | 49817aac343cfd2b50618c9215026fcb4a1ce69b (patch) | |
tree | 6091c983dc5c5275a04d5f2fc30b682dcd2b0f65 /t | |
parent | d4ae734659196a3a784d297c879bda5ee8d208f8 (diff) |
Removed test that doesn't apply anymore because the logic of only_retract_when_crossing_perimeters is much more complex now
Diffstat (limited to 't')
-rw-r--r-- | t/retraction.t | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/t/retraction.t b/t/retraction.t index f1656bc7f..4a8993ae5 100644 --- a/t/retraction.t +++ b/t/retraction.t @@ -1,4 +1,4 @@ -use Test::More tests => 19; +use Test::More tests => 18; use strict; use warnings; @@ -200,29 +200,4 @@ use Slic3r::Test qw(_eq); ok $retracted, 'retracting also when --retract-length is 0 but --use-firmware-retraction is enabled'; } -{ - my $config = Slic3r::Config->new_from_defaults; - $config->set('only_retract_when_crossing_perimeters', 1); - $config->set('fill_density', 0); - - my $print = Slic3r::Test::init_print('cube_with_hole', config => $config); - my $retracted = 0; - my $traveling_without_retraction = 0; - Slic3r::GCode::Reader->new->parse(Slic3r::Test::gcode($print), sub { - my ($self, $cmd, $args, $info) = @_; - - if ($info->{retracting}) { - $retracted = 1; - } elsif ($info->{extruding} && $retracted) { - $retracted = 0; - } elsif ($info->{travel} && !$retracted) { - if ($info->{dist_XY} > $config->retract_before_travel->[0]) { - $traveling_without_retraction = 1; - } - } - }); - - ok !$traveling_without_retraction, 'always retract when using only_retract_when_crossing_perimeters and fill_density = 0'; -} - __END__ |