From 534b8c3f12f8fb17029bba9605984e2dc0b76379 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 8 Aug 2014 11:07:51 +0200
Subject: [PATCH] Fixed minor harmless error in a couple tests

---
 t/fill.t       | 6 +++---
 xs/t/16_flow.t | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/fill.t b/t/fill.t
index 9cbd8c940..f0fe6f903 100644
--- a/t/fill.t
+++ b/t/fill.t
@@ -46,7 +46,7 @@ sub scale_points (@) { map [scale $_->[X], scale $_->[Y]], @_ }
     );
     my $flow = Slic3r::Flow->new(
         width           => 0.69,
-        spacing         => 0.69,
+        height          => 0.4,
         nozzle_diameter => 0.50,
     );
     foreach my $angle (0, 45) {
@@ -70,13 +70,13 @@ sub scale_points (@) { map [scale $_->[X], scale $_->[Y]], @_ }
         );
         my $flow = Slic3r::Flow->new(
             width           => $flow_spacing,
-            spacing         => $flow_spacing,
+            height          => 0.4,
             nozzle_diameter => $flow_spacing,
         );
         my ($params, @paths) = $filler->fill_surface(
             $surface,
             flow            => $flow,
-            layer_height    => 0.4,
+            layer_height    => $flow->height,
             density         => $density // 1,
         );
         
diff --git a/xs/t/16_flow.t b/xs/t/16_flow.t
index e19430200..5040d28c3 100644
--- a/xs/t/16_flow.t
+++ b/xs/t/16_flow.t
@@ -20,7 +20,7 @@ use Test::More tests => 2;
 {
     my $flow = Slic3r::Flow->new(
         width               => 1,
-        spacing             => 0.95,
+        height              => 0.4,
         nozzle_diameter     => 0.5,
     );
     isa_ok $flow, 'Slic3r::Flow', 'new';