Update tests after recent serialization changes

degen-loop-screen
Alessandro Ranellucci 2012-07-21 14:57:41 +02:00
parent c7bc9bed46
commit f977aff82d
2 changed files with 2 additions and 3 deletions

View File

@ -59,8 +59,7 @@ use Slic3r::Geometry qw(epsilon scale X Y);
isa_ok $collection1->paths->[0], 'Slic3r::ExtrusionPath::Arc', 'path';
isa_ok $collection2->paths->[0], 'Slic3r::ExtrusionPath::Arc', 'path';
$_->deserialize for $collection1->paths->[0], $collection2->paths->[0];
my $expected_length = scale 7.06858347057701;
ok abs($collection1->paths->[0]->length - $expected_length) < scale epsilon, 'cw oriented arc has correct length';
ok abs($collection2->paths->[0]->length - $expected_length) < scale epsilon, 'ccw oriented arc has correct length';

View File

@ -23,7 +23,7 @@ use Slic3r::Geometry qw(scale);
}
my $polyline = Slic3r::Polyline->new($points);
my $serialized = $polyline->serialize;
my $deserialized = $serialized->deserialize;
my $deserialized = Slic3r::Polyline->deserialize($serialized);
is scalar(@$deserialized), scalar(@$points), 'number of deserialized points';
is_deeply $deserialized, $points, 'deserialized points coordinates';
}