7
use lib "$FindBin::Bin/../lib";
10
use List::Util qw(first);
14
if (!$Slic3r::have_threads) {
15
plan skip_all => "this perl is not compiled with threads";
20
my $print = Slic3r::Test::init_print('20mm_cube');
22
my $thread = threads->create(sub { Slic3r::thread_cleanup(); return 1; });
23
ok $thread->join, "print survives thread spawning";
28
my $thread = threads->create(sub {
30
my $print = Slic3r::Test::init_print('20mm_cube');
31
Slic3r::Test::gcode($print);
33
Slic3r::thread_cleanup();
36
ok $thread->join, "process print in a separate thread";