]> git.donarmstrong.com Git - class_modular.git/.git/blobdiff - t/01_module.t
* Module tests now work correctly
[class_modular.git/.git] / t / 01_module.t
index e2711c50a5eaca3c594ab39dc8b8c1a0665d7b14..20f4618bdfc5dbd0ff0300fbe5a1faaa6142fa07 100644 (file)
@@ -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');