[gitmo/Moose.git] / t / cmop / anon_class_removal.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use Class::MOP;

{
    my $class;
    {
        my $meta = Class::MOP::Class->create_anon_class(
            methods => {
                foo => sub { 'FOO' },
            },
        );

        $class = $meta->name;
        can_ok($class, 'foo');
        is($class->foo, 'FOO');
    }
    ok(!$class->can('foo'));
}

{
    my $class;
    {
        my $meta = Class::MOP::Class->create_anon_class(
            methods => {
                foo => sub { 'FOO' },
            },
        );

        $class = $meta->name;
        can_ok($class, 'foo');
        is($class->foo, 'FOO');
        Class::MOP::remove_metaclass_by_name($class);
    }
    ok(!$class->can('foo'));
}

done_testing;
Commit	Line	Data
4f9d7bba	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More;
	5
	6	use Class::MOP;
	7
	8	{
	9	my $class;
	10	{
	11	my $meta = Class::MOP::Class->create_anon_class(
	12	methods => {
	13	foo => sub { 'FOO' },
	14	},
	15	);
	16
	17	$class = $meta->name;
	18	can_ok($class, 'foo');
	19	is($class->foo, 'FOO');
	20	}
	21	ok(!$class->can('foo'));
	22	}
	23
	24	{
	25	my $class;
	26	{
	27	my $meta = Class::MOP::Class->create_anon_class(
	28	methods => {
	29	foo => sub { 'FOO' },
	30	},
	31	);
	32
	33	$class = $meta->name;
	34	can_ok($class, 'foo');
	35	is($class->foo, 'FOO');
	36	Class::MOP::remove_metaclass_by_name($class);
	37	}
	38	ok(!$class->can('foo'));
	39	}
	40
	41	done_testing;