Fixed Perl unit tests

This commit is contained in:
Vojtech Bubnik 2021-09-10 12:28:52 +02:00
parent dc4b783e9e
commit 34c4b74af4

View File

@ -33,7 +33,10 @@ sub buffer {
$gcodegen = Slic3r::GCode->new;
$gcodegen->apply_print_config($print_config);
$gcodegen->set_layer_count(10);
$gcodegen->set_extruders([ 0 ]);
my @extruders = shift;
@extruders = [ 0 ] if int(@extruders) == 0;
$gcodegen->set_extruders(\@extruders);
return Slic3r::GCode::CoolingBuffer->new($gcodegen);
}
@ -131,8 +134,8 @@ $config->set('disable_fan_first_layers', [ 0 ]);
'cooling' => [ 1 , 0 ],
'fan_below_layer_time' => [ $print_time2 + 1, $print_time2 + 1 ],
'slowdown_below_layer_time' => [ $print_time2 + 2, $print_time2 + 2 ]
});
$gcodegen->set_extruders([ 0, 1 ]);
},
[ 0, 1]);
my $gcode = $buffer->process_layer($gcode1 . "T1\nG1 X0 E1 F3000\n", 0);
like $gcode, qr/^M106/, 'fan is activated for the 1st tool';
like $gcode, qr/.*M107/, 'fan is disabled for the 2nd tool';