6 # we need to run a test in GD and this fails
7 # use Test::More tests => 3;
8 # use ok 'Devel::GlobalDestruction';
15 print "not " if !$_[0];
17 print " - $_[1]" if defined $_[1];
21 ok( eval "use Devel::GlobalDestruction; 1", "use Devel::GlobalDestruction" );
23 ok( defined &in_global_destruction, "exported" );
25 ok( !in_global_destruction(), "not in GD" );
27 our $sg = Scope::Guard->new(sub { ok( in_global_destruction(), "in GD" ) });