tests for metaclass() export

[gitmo/Moose.git] / t / 010_basics / 014_create_anon.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 11;

BEGIN {
    use_ok('Moose::Meta::Class');
    use_ok('Moose');
    use_ok('Moose::Role');
}

{ 
    package Class;
    use Moose;
    
    package Foo;
    use Moose::Role;
    sub foo_role_applied { 1 }
    
    package Bar;
    use Moose::Role;
    sub bar_role_applied { 1 }
}

# try without caching first

{
    my $class_and_foo_1 = Moose::Meta::Class->create_anon_class(
        superclasses => ['Class'],
        roles        => ['Foo'],
    );
    
    my $class_and_foo_2 = Moose::Meta::Class->create_anon_class(
        superclasses => ['Class'],
        roles        => ['Foo'],
    );
    
    isnt $class_and_foo_1->name, $class_and_foo_2->name,
      'creating the same class twice without caching results in 2 classes';

    map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
}

# now try with caching

{
    my $class_and_foo_1 = Moose::Meta::Class->create_anon_class(
        superclasses => ['Class'],
        roles        => ['Foo'],
        cache        => 1,
    );
    
    my $class_and_foo_2 = Moose::Meta::Class->create_anon_class(
        superclasses => ['Class'],
        roles        => ['Foo'],
        cache        => 1,
    );
    
    is $class_and_foo_1->name, $class_and_foo_2->name,
      'with cache, the same class is the same class';
    
    map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2);
    
    my $class_and_bar = Moose::Meta::Class->create_anon_class(
        superclasses => ['Class'],
        roles        => ['Bar'],
        cache        => 1,
    );

    isnt $class_and_foo_1->name, $class_and_bar,
      'class_and_foo and class_and_bar are different';
    
    ok $class_and_bar->name->bar_role_applied;
}