Fixed Perl unit tests
This commit is contained in:
parent
dc4b783e9e
commit
34c4b74af4
@ -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';
|
||||
|
Loading…
Reference in New Issue
Block a user