[gitmo/Moo.git] / xt / moo-sification.t

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;
Commit	Line	Data
63292971	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;