Moose now warns when you try to load it from the main package. Added a

[gitmo/Moose.git] / t / 060_compat / 003_foreign_inheritence.t

diff --git a/t/060_compat/003_foreign_inheritence.t b/t/060_compat/003_foreign_inheritence.t
index 5442e3f..323b97e 100644 (file)
--- a/t/060_compat/003_foreign_inheritence.t
+++ b/t/060_compat/003_foreign_inheritence.t
@@ -3,12 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 6;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');           
-}
+
 
 {
        package Elk;
@@ -35,7 +33,7 @@ BEGIN {
                return $class->meta->new_object('__INSTANCE__' => $super, @_);
        }
        
-       make_immutable(debug => 0);
+       __PACKAGE__->meta->make_immutable(debug => 0);
 
     package Bucket;
     use metaclass 'Class::MOP::Class';
@@ -80,7 +78,8 @@ is($foo_moose->moose, 'Foo', '... got the right value from the Foo::Moose method
 lives_ok { 
     Old::Bucket::Nose->meta->make_immutable(debug => 0); 
 } 'Immutability on Moose class extending Class::MOP class ok';
-
+    
 lives_ok {
-  SubClass2::extends('MyBase');
+    SubClass2->meta->superclasses([ 'MyBase' ]);
 } 'Can subclass the same non-Moose class twice with different metaclasses';
+