Fixing perl unit tests

5 files changed, 10 insertions, 10 deletions

diff --git a/t/flow.t b/t/flow.t
index 4d7ee5ca2..50c491604 100644
--- a/t/flow.t
+++ b/t/flow.t
@@ -21,7 +21,7 @@ use Slic3r::Test;
     $config->set('fill_density', 0.4);
     $config->set('bottom_solid_layers', 1);
     $config->set('first_layer_extrusion_width', 2);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('filament_diameter', [ 3.0 ]);
     $config->set('nozzle_diameter', [ 0.5 ]);
     
diff --git a/t/layers.t b/t/layers.t
index a9f7dfe39..4d958808a 100644
--- a/t/layers.t
+++ b/t/layers.t
@@ -49,7 +49,7 @@ use Slic3r::Test qw(_eq);
     $config->set('first_layer_height', 0.2);
     ok $test->(), "absolute first layer height";
 
-    $config->set('first_layer_height', '60%');
+    $config->set('first_layer_height', 0.6 * $config->layer_height);
     ok $test->(), "relative first layer height";
 
     $config->set('z_offset', 0.9);
diff --git a/t/multi.t b/t/multi.t
index 8e7225bec..e74a7a1a8 100644
--- a/t/multi.t
+++ b/t/multi.t
@@ -181,7 +181,7 @@ use Slic3r::Test;
     my $config = Slic3r::Config::new_from_defaults;
     $config->set('nozzle_diameter', [0.6,0.6,0.6,0.6]);
     $config->set('layer_height', 0.4);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('skirts', 0);
     my $print = Slic3r::Test::init_print($model, config => $config);
     
diff --git a/t/shells.t b/t/shells.t
index 47b5c8881..b6d6bf9be 100644
--- a/t/shells.t
+++ b/t/shells.t
@@ -84,7 +84,7 @@ use Slic3r::Test;
 {
     my $config = Slic3r::Config::new_from_defaults;
     $config->set('layer_height', 0.3);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('bottom_solid_layers', 0);
     $config->set('top_solid_layers', 3);
     $config->set('cooling', [ 0 ]);
@@ -119,7 +119,7 @@ use Slic3r::Test;
     $config->set('cooling', [ 0 ]);             # prevent speed alteration
     $config->set('first_layer_speed', '100%');  # prevent speed alteration
     $config->set('layer_height', 0.4);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('extrusion_width', 0.55);
     $config->set('bottom_solid_layers', 3);
     $config->set('top_solid_layers', 0);
@@ -142,7 +142,7 @@ use Slic3r::Test;
     $config->set('cooling', [ 0 ]);             # prevent speed alteration
     $config->set('first_layer_speed', '100%');  # prevent speed alteration
     $config->set('layer_height', 0.4);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('bottom_solid_layers', 3);
     $config->set('top_solid_layers', 3);
     $config->set('solid_infill_speed', 99);
@@ -170,7 +170,7 @@ use Slic3r::Test;
     $config->set('spiral_vase', 1);
     $config->set('bottom_solid_layers', 0);
     $config->set('skirts', 0);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('start_gcode', '');
     $config->set('temperature', [200]);
     $config->set('first_layer_temperature', [205]);
@@ -231,7 +231,7 @@ use Slic3r::Test;
     $config->set('bottom_solid_layers', 0);
     $config->set('retract_layer_change', [0]);
     $config->set('skirts', 0);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('layer_height', 0.4);
     $config->set('start_gcode', '');
 #    $config->set('use_relative_e_distances', 1);
@@ -310,7 +310,7 @@ use Slic3r::Test;
 #    $config->set('spiral_vase', 1);
 #    $config->set('bottom_solid_layers', 0);
 #    $config->set('skirts', 0);
-#    $config->set('first_layer_height', '100%');
+#    $config->set('first_layer_height', $config->layer_height);
 #    $config->set('start_gcode', '');
 #    
 #    my $print = Slic3r::Test::init_print('two_hollow_squares', config => $config);
diff --git a/t/thin.t b/t/thin.t
index 9147236ee..50e7abc95 100644
--- a/t/thin.t
+++ b/t/thin.t
@@ -18,7 +18,7 @@ use Slic3r::Test;
 if (0) {
     my $config = Slic3r::Config::new_from_defaults;
     $config->set('layer_height', 0.2);
-    $config->set('first_layer_height', '100%');
+    $config->set('first_layer_height', $config->layer_height);
     $config->set('extrusion_width', 0.5);
     $config->set('first_layer_extrusion_width', '200%'); # check this one too
     $config->set('skirts', 0);