3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-11-02 20:51:23 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Fixed test after recent changes

Browse source
This commit is contained in:
Alessandro Ranellucci 2012-02-17 17:16:13 +01:00
parent 16850b63ed
commit de88144649
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/stl.t
View file

@ -102,7 +102,8 @@ is $lower[0]->facet_edge, 'bottom', 'bottom edge on layer';
is $upper[0]->facet_edge, 'top', 'upper edge on layer'; is $upper[0]->facet_edge, 'top', 'upper edge on layer';
sub vertices { sub vertices {
[ map [ @{$points[$_]}, $_[$_] ], 0..2 ] push @{$mesh->vertices}, map [ @{$points[$_]}, $_[$_] ], 0..2;
[ ($#{$mesh->vertices}-2) .. $#{$mesh->vertices} ]
} }
sub lines { sub lines {
@ -116,6 +117,7 @@ sub lines {
sub line_plane_intersection { sub line_plane_intersection {
my ($line) = @_; my ($line) = @_;
@$line = map $mesh->vertices->[$_], @$line;
return [ return [
map sprintf('%.0f', $_), map sprintf('%.0f', $_),