trAvis - MANAGER

Edit File: 03_minusc.t

use strict; use warnings; BEGIN { if ($ENV{DEVEL_GLOBALDESTRUCTION_PP_TEST}) { unshift @INC, sub { die 'no XS' if $_[1] eq 'Devel/GlobalDestruction/XS.pm'; }; } } { package Test::Scope::Guard; sub new { my ($class, $code) = @_; bless [$code], $class; } sub DESTROY { my $self = shift; $self->[0]->() } } sub ok ($$) { print "not " if !$_[0]; print "ok"; print " - $_[1]" if defined $_[1]; print "\n"; !!$_[0] } BEGIN { require B; B::minus_c(); print "1..3\n"; ok( $^C, "Test properly running under minus-c" ); } use Devel::GlobalDestruction; BEGIN { ok !in_global_destruction(), "BEGIN is not GD with -c"; } our $foo; BEGIN { $foo = Test::Scope::Guard->new( sub { ok( in_global_destruction(), "Final cleanup object destruction properly in GD" ) or do { require POSIX; POSIX::_exit(1); }; }); }