diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2013-07-20 00:49:39 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2013-07-20 00:49:39 +0400 |
commit | 943304887303e64f4cde90c7c315dff322653c55 (patch) | |
tree | 5d0047f5163207c3befc5fc392f8e2ae1dd3c199 /t/clean_polylines.t | |
parent | b5426ad297acd311912862b6ea2eca80580aaa95 (diff) |
One more test about polygon simplification
Diffstat (limited to 't/clean_polylines.t')
-rw-r--r-- | t/clean_polylines.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/clean_polylines.t b/t/clean_polylines.t index 17c4ad6ab..84acab55e 100644 --- a/t/clean_polylines.t +++ b/t/clean_polylines.t @@ -2,7 +2,7 @@ use Test::More; use strict; use warnings; -plan tests => 7; +plan tests => 8; BEGIN { use FindBin; @@ -79,6 +79,9 @@ use Slic3r; ok @simplified == 1, 'gear simplified to a single polygon'; note sprintf "original points: %d\nnew points: %d", $num_points, scalar(@{$simplified[0]}); ok @{$simplified[0]} < $num_points, 'gear was further simplified using Douglas-Peucker'; + + my @simplified_ex = Slic3r::ExPolygon->new($polygon)->simplify(10); + is_deeply \@simplified_ex, [ \@simplified ], 'simplified polygon equals simplified expolygon'; } { |