13 lines
193 B
Perl
13 lines
193 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Slic3r::XS;
|
||
|
|
use Test::More tests => 1;
|
||
|
|
|
||
|
|
my $point = Slic3r::Point::XS->new(10, 15);
|
||
|
|
is_deeply [ @$point ], [10, 15], 'point roundtrip';
|
||
|
|
|
||
|
|
__END__
|