GitHub-Proxy/PrusaSlicer
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git synced 2025-05-07 02:49:08 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Test retraction with G0

Browse Source
This commit is contained in:
Alessandro Ranellucci 2012-12-05 11:52:52 +01:00
parent f001374c6e
commit d219d69625
1 changed files with 21 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
t/retraction.t
View File

@ -1,4 +1,4 @@
use Test::More tests => 3; use Test::More tests => 6;
use strict; use strict;
use warnings; use warnings;
@ -13,6 +13,9 @@ use Slic3r::Test;
my $config = Slic3r::Config->new_from_defaults; my $config = Slic3r::Config->new_from_defaults;
my $test = sub { my $test = sub {
my ($conf) = @_;
$conf ||= $config;
my $print = Slic3r::Test::init_print('20mm_cube', config => $config); my $print = Slic3r::Test::init_print('20mm_cube', config => $config);
my $retracted = 1; # ignore the first travel move from home to first point my $retracted = 1; # ignore the first travel move from home to first point
@ -37,6 +40,8 @@ my $test = sub {
if ($info->{retracting}) { if ($info->{retracting}) {
fail 'retracted by the correct amount' fail 'retracted by the correct amount'
if !Slic3r::Test::compare(-$info->{dist_E}, $config->retract_length->[0]); if !Slic3r::Test::compare(-$info->{dist_E}, $config->retract_length->[0]);
fail 'combining retraction and travel with G0'
if $cmd ne 'G0' && $config->g0 && ($info->{dist_Z} || $info->{dist_XY});
$retracted = 1; $retracted = 1;
} }
if ($info->{extruding}) { if ($info->{extruding}) {
@ -57,12 +62,22 @@ my $test = sub {
$config->set('retract_length', [1.5]); $config->set('retract_length', [1.5]);
$config->set('retract_before_travel', [3]); $config->set('retract_before_travel', [3]);
ok $test->(), 'retraction';
$config->set('retract_restart_extra', [1]); my $retract_tests = sub {
ok $test->(), 'restart extra length'; my ($descr) = @_;
$config->set('retract_lift', [1]); ok $test->(), "retraction$descr";
ok $test->(), 'lift';
my $conf = $config->clone;
$conf->set('retract_restart_extra', [1]);
ok $test->($conf), "restart extra length$descr";
$conf->set('retract_lift', [1]);
ok $test->($conf), "lift$descr";
};
$retract_tests->('');
$config->set('g0', 1);
$retract_tests->(' (G0)');
__END__ __END__