t/05-exception_xs.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4
   5 use B::Hooks::EndOfScope::WithFallback;
   6
   7 plan skip_all => 'Skiping XS test in fallback mode'
   8   unless B::Hooks::EndOfScope::WithFallback::__HAS_VM;
   9
  10 eval q[
  11     sub foo {
  12         BEGIN {
  13             on_scope_end { die 'bar' };
  14         }
  15     }
  16 ];
  17
  18 like($@, qr/^bar/);
  19
  20 pass('no segfault');
  21
  22 done_testing;