mirror of
https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git
synced 2025-08-04 11:00:37 +08:00
20 lines
421 B
Perl
20 lines
421 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Slic3r::XS;
|
|
use Test::More tests => 1;
|
|
|
|
{
|
|
eval {
|
|
local $SIG{ALRM} = sub { die "Timed out waiting for exception\n" }; # NB: \n required
|
|
alarm 30;
|
|
Slic3r::xspp_test_croak_hangs_on_strawberry();
|
|
alarm 0;
|
|
};
|
|
is $@, "xspp_test_croak_hangs_on_strawberry: exception catched\n", 'croak from inside a C++ exception delivered';
|
|
}
|
|
|
|
__END__
|