orcaslicer/xs/t/22_exception.t

#!/usr/bin/perl

use strict;
use warnings;

use Slic3r::XS;
use Test::More tests => 1;

eval {
    Slic3r::xspp_test_croak_hangs_on_strawberry();
};
is $@, "xspp_test_croak_hangs_on_strawberry: exception catched\n", 'croak from inside a C++ exception delivered';

__END__
Unit test to verify whether Slic3r would hang when croaking from a C++ exception handler. This is an unfortunate error in some Strawberry Perl distributions. 2016-11-06 16:42:36 +00:00			`#!/usr/bin/perl`

			`use strict;`
			`use warnings;`

			`use Slic3r::XS;`
			`use Test::More tests => 1;`

Removed the "Broken croak" support, which was useful on broken 64bit Strawberry perl only. We don't use Strawberry perl anymore, so this has been removed for clarity. Added a PerlCallback wrapper to call a Perl subroutine from a C++ code. 2018-05-03 19:45:43 +00:00			`eval {`
			`Slic3r::xspp_test_croak_hangs_on_strawberry();`
			`};`
			`is $@, "xspp_test_croak_hangs_on_strawberry: exception catched\n", 'croak from inside a C++ exception delivered';`
Unit test to verify whether Slic3r would hang when croaking from a C++ exception handler. This is an unfortunate error in some Strawberry Perl distributions. 2016-11-06 16:42:36 +00:00
			`__END__`