view release on metacpan or  search on metacpan

t/008-gvstash-bug.t  view on Meta::CPAN

use strict;
use warnings;
use Test::Fatal;
use Test::More 0.88;
use lib 't/lib';
use Test::Class::Load 'load_class';

is( exception {
    load_class('Class::Load::Stash::Sub');
}, undef, 'Loaded Class::Load::Stash::Sub' );

Class::Load::Stash->can('a_method');

is( exception {
    load_class('Class::Load::Stash');
}, undef, 'Loaded Class::Load::Stash' );

is( exception {
    Class::Load::Stash->a_method;
}, undef,
'Actually loaded Class::Load::Stash - we were not fooled by mention of this stash in Class::Load::Stash::Sub' );

done_testing;