1 files changed, 15 insertions, 1 deletions
diff --git a/xs/t/01_trianglemesh.t b/xs/t/01_trianglemesh.t
index 97e98fcce..8d3c5dd0d 100644
--- a/xs/t/01_trianglemesh.t
+++ b/xs/t/01_trianglemesh.t
@@ -4,9 +4,23 @@ use strict;
 use warnings;
 
 use Slic3r::XS;
-use Test::More tests => 1;
+use Test::More tests => 3;
 
 is Slic3r::TriangleMesh::XS::hello_world(), 'Hello world!',
     'hello world';
 
+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::XS->new;
+    $m->ReadFromPerl($cube->{vertices}, $cube->{facets});
+    $m->Repair;
+    my ($vertices, $facets) = @{$m->ToPerl};
+    is_deeply $vertices, $cube->{vertices}, 'vertices arrayref roundtrip';
+    is_deeply $facets, $cube->{facets}, 'facets arrayref roundtrip';
+}
+
 __END__