From de88144649b876bb59fa1b24cdb5121b50117d15 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 17 Feb 2012 17:16:13 +0100
Subject: [PATCH] Fixed test after recent changes

---
 t/stl.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/t/stl.t b/t/stl.t
index 3dc04165c..64606f5f7 100644
--- a/t/stl.t
+++ b/t/stl.t
@@ -102,7 +102,8 @@ is $lower[0]->facet_edge, 'bottom', 'bottom edge on layer';
 is $upper[0]->facet_edge, 'top', 'upper edge on layer';
 
 sub vertices {
-    [ map [ @{$points[$_]}, $_[$_] ], 0..2 ]
+    push @{$mesh->vertices}, map [ @{$points[$_]}, $_[$_] ], 0..2;
+    [ ($#{$mesh->vertices}-2) .. $#{$mesh->vertices} ]
 }
 
 sub lines {
@@ -116,6 +117,7 @@ sub lines {
 
 sub line_plane_intersection {
     my ($line) = @_;
+    @$line = map $mesh->vertices->[$_], @$line;
     
     return [
         map sprintf('%.0f', $_),