42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
|
use Test::More tests => 1;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
BEGIN {
|
||
|
|
use FindBin;
|
||
|
|
use lib "$FindBin::Bin/../lib";
|
||
|
|
}
|
||
|
|
|
||
|
|
use Slic3r;
|
||
|
|
use Slic3r::Test;
|
||
|
|
|
||
|
|
my $config = Slic3r::Config->new_from_defaults;
|
||
|
|
|
||
|
|
my $test = sub {
|
||
|
|
my ($conf) = @_;
|
||
|
|
$conf ||= $config;
|
||
|
|
|
||
|
|
my $print = Slic3r::Test::init_print('2x20x10', config => $conf);
|
||
|
|
|
||
|
|
my $last_move_was_z_change = 0;
|
||
|
|
Slic3r::Test::GCodeReader->new(gcode => Slic3r::Test::gcode($print))->parse(sub {
|
||
|
|
my ($self, $cmd, $args, $info) = @_;
|
||
|
|
|
||
|
|
if ($last_move_was_z_change && $cmd ne $config->layer_gcode) {
|
||
|
|
fail 'custom layer G-code was not applied after Z change';
|
||
|
|
}
|
||
|
|
if (!$last_move_was_z_change && $cmd eq $config->layer_gcode) {
|
||
|
|
fail 'custom layer G-code was not applied after Z change';
|
||
|
|
}
|
||
|
|
|
||
|
|
$last_move_was_z_change = (defined $info->{dist_Z} && $info->{dist_Z} > 0);
|
||
|
|
});
|
||
|
|
|
||
|
|
1;
|
||
|
|
};
|
||
|
|
|
||
|
|
$config->set('layer_gcode', '_MY_CUSTOM_GCODE_');
|
||
|
|
ok $test->(), "custom layer G-code is applied after Z move and before other moves";
|
||
|
|
|
||
|
|
__END__
|