X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fmoo-sification.t;fp=xt%2Fmoo-sification.t;h=5c0d3754f00a4b9b286885dcac367040ee18213a;hb=632929718e221044d82088ccbee0d97821f43f18;hp=0000000000000000000000000000000000000000;hpb=0d931f8a92552b142000bd5a4886e0c3d7d1a553;p=gitmo%2FMoo.git

diff --git a/xt/moo-sification.t b/xt/moo-sification.t
new file mode 100644
index 0000000..5c0d375
--- /dev/null
+++ b/xt/moo-sification.t
@@ -0,0 +1,17 @@
+use strictures 1;
+use Test::More;
+
+BEGIN {
+  package Foo;
+  use Moo;
+  has one => (is => 'ro');
+}
+
+no Moo::sification;
+use Moose;
+use Class::MOP;
+
+is Class::MOP::get_metaclass_by_name('Foo'), undef,
+  'no metaclass for Moo class after no Moo::sification';
+
+done_testing;