add alias resolution for "use Moose -metaclass"

[gitmo/Moose.git] / t / 050_metaclasses / 022_new_metaclass.t

diff --git a/t/050_metaclasses/022_new_metaclass.t b/t/050_metaclasses/022_new_metaclass.t
index 1eca249..5d98c50 100644 (file)
--- a/t/050_metaclasses/022_new_metaclass.t
+++ b/t/050_metaclasses/022_new_metaclass.t
@@ -1,12 +1,15 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 do {
     package My::Meta::Class;
     use Moose;
     BEGIN { extends 'Moose::Meta::Class' };
+
+    package Moose::Meta::Class::Custom::MyMetaClass;
+    sub register_implementation { 'My::Meta::Class' }
 };
 
 do {
@@ -14,5 +17,11 @@ do {
     use Moose -metaclass => 'My::Meta::Class';
 };
 
+do {
+    package My::Class::Aliased;
+    use Moose -metaclass => 'MyMetaClass';
+};
+
 is(My::Class->meta->meta->name, 'My::Meta::Class');
+is(My::Class::Aliased->meta->meta->name, 'My::Meta::Class');