diff --git a/t/arcs.t b/t/arcs.t index 44535e94..1ffcd87b 100644 --- a/t/arcs.t +++ b/t/arcs.t @@ -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'; diff --git a/t/serialize.t b/t/serialize.t index eac51d16..c3d04d4b 100644 --- a/t/serialize.t +++ b/t/serialize.t @@ -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'; }