[p5sagit/B-Hooks-EndOfScope-WithFallback.git] / t / 05-exception_xs.t

use strict;
use warnings;
use Test::More;

use B::Hooks::EndOfScope::WithFallback;

plan skip_all => 'Skiping XS test in fallback mode'
  unless B::Hooks::EndOfScope::WithFallback::__HAS_VM;

eval q[
    sub foo {
        BEGIN {
            on_scope_end { die 'bar' };
        }
    }
];

like($@, qr/^bar/);

pass('no segfault');

done_testing;
Commit	Line	Data
4befcbc3	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;