From b1d6420ff4398d0e8521db2673da7585e235bba2 Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci Date: Thu, 22 Dec 2011 12:19:24 +0100 Subject: [PATCH] Avoid test failures due to floating point values comparison --- t/arcs.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/arcs.t b/t/arcs.t index 981d35e3e..9faaaf8bc 100644 --- a/t/arcs.t +++ b/t/arcs.t @@ -10,6 +10,7 @@ BEGIN { } use Slic3r; +use Slic3r::Geometry qw(epsilon); { my $path = Slic3r::ExtrusionPath->cast([ @@ -51,8 +52,9 @@ use Slic3r; isa_ok $collection1->paths->[0], 'Slic3r::ExtrusionPath::Arc', 'path'; isa_ok $collection2->paths->[0], 'Slic3r::ExtrusionPath::Arc', 'path'; - is $collection1->paths->[0]->length, 7.06858347057701, 'cw oriented arc has correct length'; - is $collection2->paths->[0]->length, 7.06858347057705, 'ccw oriented arc has correct length'; + my $expected_length = 7.06858347057701; + ok abs($collection1->paths->[0]->length - $expected_length) < epsilon, 'cw oriented arc has correct length'; + ok abs($collection2->paths->[0]->length - $expected_length) < epsilon, 'ccw oriented arc has correct length'; is $collection1->paths->[0]->orientation, 'cw', 'cw orientation was correctly detected'; is $collection2->paths->[0]->orientation, 'ccw', 'ccw orientation was correctly detected';