added Meta::Class->add_attribute_list for Moose compatibility

[gitmo/Mouse.git] / t / 800_shikabased / 014-subtype-as.t

diff --git a/t/800_shikabased/014-subtype-as.t b/t/800_shikabased/014-subtype-as.t
index 8ee8ef0..0a95057 100644 (file)
--- a/t/800_shikabased/014-subtype-as.t
+++ b/t/800_shikabased/014-subtype-as.t
@@ -16,7 +16,7 @@ use Scalar::Util qw/blessed/;
 {
     package Foo;
     use Mouse;
-    use Mouse::TypeRegistry;
+    use Mouse::Util::TypeConstraints;
 
     subtype 'Type1' => as 'Str' => where { blessed($_) };
     has str_obj => (
@@ -37,7 +37,7 @@ use Scalar::Util qw/blessed/;
     );
 
 
-    subtype 'Type4';
+    type 'Type4';
     has any => (
         is     => 'rw',
         isa    => 'Type4',