0_30

[gitmo/Class-MOP.git] / t / 018_anon_class.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 7;
use Test::Exception;

BEGIN {
    use_ok('Class::MOP');
}

my $anon_class = Class::MOP::Class->create_anon_class();
isa_ok($anon_class, 'Class::MOP::Class');

like($anon_class->name, qr/Class::MOP::Class::__ANON__::SERIAL::[0-9]+/, '... got an anon class package name');

lives_ok {
    $anon_class->add_method('foo' => sub { "__ANON__::foo" });
} '... added a method to my anon-class';

my $instance = $anon_class->new_object();
isa_ok($instance, $anon_class->name);

is($instance->foo, '__ANON__::foo', '... got the right return value of our foo method');

# NOTE:
# I bumped this test up to 100_000 instances, and 
# still got not conflicts. If your application needs
# more than that, your probably mst

my %conflicts;
foreach my $i (1 .. 1000) {
    $conflicts{ Class::MOP::Class->create_anon_class()->name } = undef;
}
is(scalar(keys %conflicts), 1000, '... got as many classes as I would expect');