Implemented TriangleMesh->clone

This commit is contained in:
Alessandro Ranellucci 2013-09-10 00:09:56 +02:00
parent 9b12d6037a
commit 311eda7d42
4 changed files with 25 additions and 2 deletions

View file

@ -4,7 +4,7 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 48;
use Test::More tests => 49;
is Slic3r::TriangleMesh::XS::hello_world(), 'Hello world!',
'hello world';
@ -32,6 +32,11 @@ my $cube = {
$m->scale(2);
ok abs($m->stats->{volume} - 40*40*40) < 1E-2, 'scale';
{
my $m2 = $m->clone;
ok abs($m->stats->{volume} - 40*40*40) < 1E-2, 'scale';
}
$m->scale_xyz([2,1,1]);
ok abs($m->stats->{volume} - 2*40*40*40) < 1E-2, 'scale_xyz';