Bless arrayref representation into Slic3r classes

This commit is contained in:
Alessandro Ranellucci 2013-07-07 13:34:55 +02:00
parent 53e4532f9c
commit 989e48ede0
5 changed files with 11 additions and 5 deletions

View file

@ -4,9 +4,11 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 1;
use Test::More tests => 2;
my $point = Slic3r::Point::XS->new(10, 15);
is_deeply [ @$point ], [10, 15], 'point roundtrip';
isa_ok $point->arrayref, 'Slic3r::Point', 'Perl point is blessed';
__END__