Implemented TriangleMesh->merge

This commit is contained in:
Alessandro Ranellucci 2013-09-09 22:45:22 +02:00
parent 27e7c6b9f7
commit 3919ba83d8
6 changed files with 29 additions and 3 deletions

View file

@ -4,7 +4,7 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 45;
use Test::More tests => 46;
is Slic3r::TriangleMesh::XS::hello_world(), 'Hello world!',
'hello world';
@ -46,6 +46,11 @@ my $cube = {
my $result = $m->split;
is scalar(@$result), 1, 'split';
isa_ok $result->[0], 'Slic3r::TriangleMesh::XS', 'split';
my $m2 = Slic3r::TriangleMesh::XS->new;
$m2->ReadFromPerl($cube->{vertices}, $cube->{facets});
$m->merge($m2);
is $m->stats->{number_of_facets}, 2 * $m2->stats->{number_of_facets}, 'merge';
}
{