3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add unit test to check that nested config options work

Browse Source
This commit is contained in:
Alessandro Ranellucci 2012-12-23 15:56:13 +01:00
parent 15f07197d8
commit db754dca4d
1 changed files with 34 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
t/custom_gcode.t
View File

@ -1,4 +1,4 @@
use Test::More tests => 1; use Test::More tests => 2;
use strict; use strict;
use warnings; use warnings;
@ -10,32 +10,43 @@ BEGIN {
use Slic3r; use Slic3r;
use Slic3r::Test; use Slic3r::Test;
my $config = Slic3r::Config->new_from_defaults; {
my $config = Slic3r::Config->new_from_defaults;
my $test = sub {
my ($conf) = @_;
$conf ||= $config;
my $print = Slic3r::Test::init_print('2x20x10', config => $conf); my $test = sub {
my ($conf) = @_;
my $last_move_was_z_change = 0; $conf ||= $config;
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) { my $print = Slic3r::Test::init_print('2x20x10', config => $conf);
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); 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;
};
1; $config->set('layer_gcode', '_MY_CUSTOM_GCODE_');
}; ok $test->(), "custom layer G-code is applied after Z move and before other moves";
}
$config->set('layer_gcode', '_MY_CUSTOM_GCODE_'); #==========================================================
ok $test->(), "custom layer G-code is applied after Z move and before other moves";
{
my $config = Slic3r::Config->new_from_defaults;
is $config->replace_options('[temperature_[foo]]', { foo => '0' }),
200,
"nested config options";
}
__END__ __END__