diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2014-03-08 14:36:48 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2014-03-08 14:36:48 +0400 |
commit | 33da6adc3c9d7b8128830e4f9e6beff9c191956a (patch) | |
tree | 2d69c56e610cdf09769ffd18f7e0e7c61109a387 /t/geometry.t | |
parent | 04d80ca392cdba61084785422fac72110521c684 (diff) |
Better pruning
Diffstat (limited to 't/geometry.t')
-rw-r--r-- | t/geometry.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/geometry.t b/t/geometry.t index 7322ccf66..6a2fb2a04 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -2,7 +2,7 @@ use Test::More; use strict; use warnings; -plan tests => 23; +plan tests => 28; BEGIN { use FindBin; @@ -167,3 +167,14 @@ my $polygons = [ } #========================================================== + +{ + my $line = Slic3r::Line->new([0, 0], [20, 0]); + is +Slic3r::Point->new(10, 10)->distance_to_line($line), 10, 'distance_to'; + is +Slic3r::Point->new(50, 10)->distance_to_line($line), 10, 'distance_to'; + is +Slic3r::Point->new(0, 0)->distance_to_line($line), 0, 'distance_to'; + is +Slic3r::Point->new(20, 0)->distance_to_line($line), 0, 'distance_to'; + is +Slic3r::Point->new(10, 0)->distance_to_line($line), 0, 'distance_to'; +} + +#========================================================== |