diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2014-04-30 18:44:25 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2014-04-30 18:44:25 +0400 |
commit | 93c1ae92c9aa7e2174f8e9f51f6f26460d8fcc45 (patch) | |
tree | de3bb3c4438a9a696a53b6c479bf693e65f2dc68 /t/geometry.t | |
parent | 010b71e9d4dd3669c79b236e678cae29e3d955d2 (diff) |
Added failing test case for contains_point() not working on Windows. #1950
Diffstat (limited to 't/geometry.t')
-rw-r--r-- | t/geometry.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/geometry.t b/t/geometry.t index 6a2fb2a04..7ff2a2aac 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -2,7 +2,7 @@ use Test::More; use strict; use warnings; -plan tests => 28; +plan tests => 29; BEGIN { use FindBin; @@ -13,6 +13,17 @@ use Slic3r; use Slic3r::Geometry qw(PI polygon_is_convex chained_path_from epsilon scale); +{ + # this test was failing on Windows (GH #1950) + my $polygon = Slic3r::Polygon->new( + [207802834,-57084522],[196528149,-37556190],[173626821,-25420928],[171285751,-21366123], + [118673592,-21366123],[116332562,-25420928],[93431208,-37556191],[82156517,-57084523], + [129714478,-84542120],[160244873,-84542120], + ); + my $point = Slic3r::Point->new(95706562, -57294774); + ok $polygon->contains_point($point), 'contains_point'; +} + #========================================================== my $line1 = [ [5, 15], [30, 15] ]; |