diff options
author | bubnikv <bubnikv@gmail.com> | 2018-05-03 22:45:43 +0300 |
---|---|---|
committer | bubnikv <bubnikv@gmail.com> | 2018-05-03 22:45:43 +0300 |
commit | 19977edae21aba12c90a52d3d51f8d3f6d3d439a (patch) | |
tree | 16743733ca0be694a0119ae2c4c57d66e04ce3e2 /xs/t | |
parent | 81bfd8ce7e1279ae287f7345f278d90b3d2da2f5 (diff) |
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.
Diffstat (limited to 'xs/t')
-rw-r--r-- | xs/t/22_exception.t | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/xs/t/22_exception.t b/xs/t/22_exception.t index c7df42670..fead8ddee 100644 --- a/xs/t/22_exception.t +++ b/xs/t/22_exception.t @@ -6,16 +6,9 @@ use warnings; use Slic3r::XS; use Test::More tests => 1; -if ($ENV{SLIC3R_HAS_BROKEN_CROAK}) -{ - ok 1, 'SLIC3R_HAS_BROKEN_CROAK set, croaks and confesses from a C++ code will lead to an application exit!'; -} -else -{ - 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'; -} +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__ |