Yet another Perl test
This commit is contained in:
parent
ee53894c40
commit
dcfa1d10cf
@ -4,7 +4,7 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use Slic3r::XS;
|
use Slic3r::XS;
|
||||||
use Test::More tests => 146;
|
use Test::More tests => 144;
|
||||||
|
|
||||||
foreach my $config (Slic3r::Config->new, Slic3r::Config::Static::new_FullPrintConfig) {
|
foreach my $config (Slic3r::Config->new, Slic3r::Config::Static::new_FullPrintConfig) {
|
||||||
$config->set('layer_height', 0.3);
|
$config->set('layer_height', 0.3);
|
||||||
@ -70,9 +70,10 @@ foreach my $config (Slic3r::Config->new, Slic3r::Config::Static::new_FullPrintCo
|
|||||||
ok abs($config->get('first_layer_height') - 0.3) < 1e-4, 'set/get absolute floatOrPercent';
|
ok abs($config->get('first_layer_height') - 0.3) < 1e-4, 'set/get absolute floatOrPercent';
|
||||||
is $config->opt_serialize('first_layer_height'), '0.3', 'serialize absolute floatOrPercent';
|
is $config->opt_serialize('first_layer_height'), '0.3', 'serialize absolute floatOrPercent';
|
||||||
|
|
||||||
$config->set('first_layer_height', $config->get('layer_height'));
|
# This is no more supported after first_layer_height was moved from PrintObjectConfig to PrintConfig.
|
||||||
$config->get_abs_value('first_layer_height');
|
# $config->set('first_layer_height', $config->get('layer_height'));
|
||||||
ok abs($config->get_abs_value('first_layer_height') - 0.15) < 1e-4, 'set/get relative floatOrPercent';
|
# $config->get_abs_value('first_layer_height');
|
||||||
|
# ok abs($config->get_abs_value('first_layer_height') - 0.15) < 1e-4, 'set/get relative floatOrPercent';
|
||||||
# is $config->opt_serialize('first_layer_height'), '50%', 'serialize relative floatOrPercent';
|
# is $config->opt_serialize('first_layer_height'), '50%', 'serialize relative floatOrPercent';
|
||||||
|
|
||||||
# Uh-oh, we have no point option to test at the moment
|
# Uh-oh, we have no point option to test at the moment
|
||||||
|
Loading…
Reference in New Issue
Block a user