Import t/050_metaclass from Moose

[gitmo/Mouse.git] / t / 050_metaclasses / failing / 022_new_metaclass.t

diff --git a/t/050_metaclasses/failing/022_new_metaclass.t b/t/050_metaclasses/failing/022_new_metaclass.t
new file mode 100644 (file)
index 0000000..059d9d5
--- /dev/null
+++ b/t/050_metaclasses/failing/022_new_metaclass.t
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+do {
+    package My::Meta::Class;
+    use Mouse;
+    BEGIN { extends 'Mouse::Meta::Class' };
+
+    package Mouse::Meta::Class::Custom::MyMetaClass;
+    sub register_implementation { 'My::Meta::Class' }
+};
+
+do {
+    package My::Class;
+    use Mouse -metaclass => 'My::Meta::Class';
+};
+
+do {
+    package My::Class::Aliased;
+    use Mouse -metaclass => 'MyMetaClass';
+};
+
+is(My::Class->meta->meta->name, 'My::Meta::Class');
+is(My::Class::Aliased->meta->meta->name, 'My::Meta::Class');
+