blob: fac7a7d6314e2cd23899751fc7e1480a725f6a53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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;
|