diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2013-11-22 19:19:15 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2013-11-22 19:19:15 +0400 |
commit | a950fbe0c2f7384fda38d0e6816a4406dcfc0e71 (patch) | |
tree | c8b9590e9271e6fc74b30d03c241464e21470ba7 /t/polyclip.t | |
parent | 132d170f73524d0e347a924393e4431e163e988e (diff) |
Removed more unused functions and fixed tests
Diffstat (limited to 't/polyclip.t')
-rw-r--r-- | t/polyclip.t | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/t/polyclip.t b/t/polyclip.t index 6ed0028a1..1292d3216 100644 --- a/t/polyclip.t +++ b/t/polyclip.t @@ -2,7 +2,7 @@ use Test::More; use strict; use warnings; -plan tests => 19; +plan tests => 18; BEGIN { use FindBin; @@ -78,14 +78,6 @@ my $square = Slic3r::Polygon->new( # ccw is $intersection->[0]->length, Slic3r::Line->new([100,180], [200,180])->length, 'tangent line is clipped to square with hole'; } - { - my $polyline = Slic3r::Polyline->new([50, 180], [250, 180], [250, 150], [150, 150], [150, 120], [120, 120], [120, 50]); - is_deeply [ map $_->pp, $polyline->clip_with_expolygon($expolygon) ], [ - [ [100, 180], [200, 180] ], - [ [200, 150], [160, 150] ], - [ [150, 140], [150, 120], [120, 120], [120, 100] ], - ], 'polyline is clipped to square with hole'; - } } #========================================================== |