xt/moo-sification.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 BEGIN {
   5   package Foo;
   6   use Moo;
   7   has one => (is => 'ro');
   8 }
   9
  10 no Moo::sification;
  11 use Moose;
  12 use Class::MOP;
  13
  14 is Class::MOP::get_metaclass_by_name('Foo'), undef,
  15   'no metaclass for Moo class after no Moo::sification';
  16
  17 done_testing;