Satisfy test suite

lib/Slic3r/Extruder.pm

@@ -43,7 +43,7 @@ sub _build_retract_speed_mm_min {
 }
 
 sub scaled_wipe_distance {
-    my ($self, $travel_speed) = shift;
+    my ($self, $travel_speed) = @_;
     
     # how far do we move in XY at travel_speed for the time needed to consume
     # retract_length at retract_speed?

lib/Slic3r/Fill/Base.pm

@@ -13,6 +13,11 @@ sub infill_direction {
     my $self = shift;
     my ($surface) = @_;
     
+    if (!defined $self->angle) {
+        warn "Using undefined infill angle";
+        $self->angle(0);
+    }
+    
     # set infill angle
     my (@rotate, @shift);
     $rotate[0] = Slic3r::Geometry::deg2rad($self->angle);

lib/Slic3r/Layer/Region.pm

@@ -333,6 +333,7 @@ sub _fill_gaps {
     return unless @$gaps;
     
     my $filler = Slic3r::Fill->new->filler('rectilinear');
+    $filler->angle($self->config->fill_angle);
     $filler->layer_id($self->layer->id);
     
     # we should probably use this code to handle thin walls and remove that logic from

t/fill.t

@@ -37,6 +37,7 @@ sub scale_points (@) { map [scale $_->[X], scale $_->[Y]], @_ }
     my $expolygon = Slic3r::ExPolygon->new([ scale_points [0,0], [50,0], [50,50], [0,50] ]);
     my $filler = Slic3r::Fill::Rectilinear->new(
         bounding_box => $expolygon->bounding_box,
+        angle        => 0,
     );
     my $surface = Slic3r::Surface->new(
         surface_type    => S_TYPE_TOP,