Added failing test case for contains_point() not working on Windows. #1950
This commit is contained in:
parent
010b71e9d4
commit
93c1ae92c9
13
t/geometry.t
13
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] ];
|
||||
|
Loading…
Reference in New Issue
Block a user