X-Git-Url: https://git.donarmstrong.com/?p=class_modular.git%2F.git;a=blobdiff_plain;f=t%2F01_module.t;h=20f4618bdfc5dbd0ff0300fbe5a1faaa6142fa07;hp=e2711c50a5eaca3c594ab39dc8b8c1a0665d7b14;hb=7d57528ea18f57f1893e1944dbff1d747ff8d012;hpb=b9ec89c12b820973164e4f72b39e0b46671cb088 diff --git a/t/01_module.t b/t/01_module.t index e2711c5..20f4618 100644 --- a/t/01_module.t +++ b/t/01_module.t @@ -23,6 +23,10 @@ my $destroy_hit = 0; return 1; } + sub _methods { + return qw(blah); + } + sub _destroy{ $destroy_hit = 1; } @@ -36,7 +40,7 @@ ok(defined $foo and ref($foo) eq 'Foo' and UNIVERSAL::isa($foo,'Class::Modular') $foo->load('Foo'); # 2: test load() -ok(exists $foo->{_subclasses}{Foo}, 'load() works'); +ok(exists $foo->{__class_modular}{_subclasses}{Foo}, 'load() works'); # 3: test AUTOLOAD ok($foo->blah, 'AUTOLOAD works');