17 lines
283 B
Perl
17 lines
283 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Slic3r::XS;
|
|
use Test::More tests => 1;
|
|
|
|
is Slic3r::TriangleMesh::XS::hello_world(), 'Hello world!',
|
|
'hello world';
|
|
|
|
my $t = Slic3r::TriangleMesh::XS->new();
|
|
$t->ReadSTLFile("../../stl/testcube20mm.stl");
|
|
use XXX; XXX($t);
|
|
|
|
__END__
|