update

xs/t/01_trianglemesh.t

@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Slic3r::XS;
+use Test::More tests => 5;
+
+my $cube = {
+    vertices    => [ [20,20,0], [20,0,0], [0,0,0], [0,20,0], [20,20,20], [0,20,20], [0,0,20], [20,0,20] ],
+    facets      => [ [0,1,2], [0,2,3], [4,5,6], [4,6,7], [0,4,7], [0,7,1], [1,7,6], [1,6,2], [2,6,5], [2,5,3], [4,0,3], [4,3,5] ],
+};
+
+{
+    my $m = Slic3r::TriangleMesh->new;
+    $m->ReadFromPerl($cube->{vertices}, $cube->{facets});
+    my ($vertices, $facets) = ($m->vertices, $m->facets);
+    
+    is_deeply $vertices, $cube->{vertices}, 'vertices arrayref roundtrip';
+    is_deeply $facets, $cube->{facets}, 'facets arrayref roundtrip';
+    
+    {
+        my $m2 = $m->clone;
+        is_deeply $m2->vertices, $cube->{vertices}, 'cloned vertices arrayref roundtrip';
+        is_deeply $m2->facets, $cube->{facets}, 'cloned facets arrayref roundtrip';
+        $m2->scale(3);  # check that it does not affect $m
+    }
+    
+    {
+        my $stats = $m->stats;
+        is $stats->{number_of_facets}, scalar(@{ $cube->{facets} }), 'stats.number_of_facets';
+    }
+}
+
+__END__