Added failing test case for contains_point() not working on Windows. #1950

This commit is contained in:
Alessandro Ranellucci 2014-04-30 16:44:25 +02:00
parent 010b71e9d4
commit 93c1ae92c9

View File

@ -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] ];