Ported make_clockwise() and make_counter_clockwise()

This commit is contained in:
Alessandro Ranellucci 2013-07-16 21:09:29 +02:00
parent fe061b19ad
commit f7ada2b5db
5 changed files with 29 additions and 19 deletions

View file

@ -4,7 +4,7 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 8;
use Test::More tests => 10;
my $square = [ # ccw
[100, 100],
@ -35,6 +35,10 @@ ok $polygon->is_counter_clockwise, 'is_counter_clockwise';
my $clone = $polygon->clone;
$clone->reverse;
ok !$clone->is_counter_clockwise, 'is_counter_clockwise';
$clone->make_counter_clockwise;
ok $clone->is_counter_clockwise, 'make_counter_clockwise';
$clone->make_counter_clockwise;
ok $clone->is_counter_clockwise, 'make_counter_clockwise';
}
__END__