[gitmo/Class-MOP.git] / t / 020_attribute.t

#!/usr/bin/perl

use strict;
use warnings;

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

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

{
    my $attr = Class::MOP::Attribute->new('$foo');
    isa_ok($attr, 'Class::MOP::Attribute');

    is($attr->name, '$foo', '... $attr->name == $foo');
    ok($attr->has_init_arg, '... $attr does have an init_arg');
    is($attr->init_arg, '$foo', '... $attr init_arg is the name');        
    
    ok(!$attr->has_accessor, '... $attr does not have an accessor');
    ok(!$attr->has_reader, '... $attr does not have an reader');
    ok(!$attr->has_writer, '... $attr does not have an writer');
    ok(!$attr->has_default, '... $attr does not have an default');  
    
    my $class = Class::MOP::Class->initialize('Foo');
    isa_ok($class, 'Class::MOP::Class');
    
    lives_ok {
        $attr->attach_to_class($class);
    } '... attached a class successfully';
    
    is($attr->associated_class, $class, '... the class was associated correctly');
    
    my $attr_clone = $attr->clone();
    isa_ok($attr_clone, 'Class::MOP::Attribute');
    isnt($attr, $attr_clone, '... but they are different instances');
    
    is($attr->associated_class, $attr_clone->associated_class, '... the associated classes are the same though');
    is($attr->associated_class, $class, '... the associated classes are the same though');    
    is($attr_clone->associated_class, $class, '... the associated classes are the same though');    
    
    is_deeply($attr, $attr_clone, '... but they are the same inside');
}

{
    my $attr = Class::MOP::Attribute->new('$foo', (
        init_arg => '-foo',
        default  => 'BAR'
    ));
    isa_ok($attr, 'Class::MOP::Attribute');

    is($attr->name, '$foo', '... $attr->name == $foo');
    
    ok($attr->has_init_arg, '... $attr does have an init_arg');
    is($attr->init_arg, '-foo', '... $attr->init_arg == -foo');
    ok($attr->has_default, '... $attr does have an default');    
    is($attr->default, 'BAR', '... $attr->default == BAR');
    
    ok(!$attr->has_accessor, '... $attr does not have an accessor');
    ok(!$attr->has_reader, '... $attr does not have an reader');
    ok(!$attr->has_writer, '... $attr does not have an writer');   
    
    my $attr_clone = $attr->clone();
    isa_ok($attr_clone, 'Class::MOP::Attribute');
    isnt($attr, $attr_clone, '... but they are different instances');
    
    is($attr->associated_class, $attr_clone->associated_class, '... the associated classes are the same though');
    is($attr->associated_class, undef, '... the associated class is actually undef');    
    is($attr_clone->associated_class, undef, '... the associated class is actually undef');    
    
    is_deeply($attr, $attr_clone, '... but they are the same inside');                
}

{
    my $attr = Class::MOP::Attribute->new('$foo', (
        accessor => 'foo',
        init_arg => '-foo',
        default  => 'BAR'
    ));
    isa_ok($attr, 'Class::MOP::Attribute');

    is($attr->name, '$foo', '... $attr->name == $foo');
    
    ok($attr->has_init_arg, '... $attr does have an init_arg');
    is($attr->init_arg, '-foo', '... $attr->init_arg == -foo');
    ok($attr->has_default, '... $attr does have an default');    
    is($attr->default, 'BAR', '... $attr->default == BAR');

    ok($attr->has_accessor, '... $attr does have an accessor');    
    is($attr->accessor, 'foo', '... $attr->accessor == foo');
    
    ok(!$attr->has_reader, '... $attr does not have an reader');
    ok(!$attr->has_writer, '... $attr does not have an writer');   
    
    my $attr_clone = $attr->clone();
    isa_ok($attr_clone, 'Class::MOP::Attribute');
    isnt($attr, $attr_clone, '... but they are different instances');
    
    is_deeply($attr, $attr_clone, '... but they are the same inside');                
}

{
    my $attr = Class::MOP::Attribute->new('$foo', (
        reader   => 'get_foo',
        writer   => 'set_foo',        
        init_arg => '-foo',
        default  => 'BAR'
    ));
    isa_ok($attr, 'Class::MOP::Attribute');

    is($attr->name, '$foo', '... $attr->name == $foo');
    
    ok($attr->has_init_arg, '... $attr does have an init_arg');
    is($attr->init_arg, '-foo', '... $attr->init_arg == -foo');
    ok($attr->has_default, '... $attr does have an default');    
    is($attr->default, 'BAR', '... $attr->default == BAR');

    ok($attr->has_reader, '... $attr does have an reader');
    is($attr->reader, 'get_foo', '... $attr->reader == get_foo');    
    ok($attr->has_writer, '... $attr does have an writer');
    is($attr->writer, 'set_foo', '... $attr->writer == set_foo');    

    ok(!$attr->has_accessor, '... $attr does not have an accessor'); 
    
    my $attr_clone = $attr->clone();
    isa_ok($attr_clone, 'Class::MOP::Attribute');
    isnt($attr, $attr_clone, '... but they are different instances');
    
    is_deeply($attr, $attr_clone, '... but they are the same inside');       
}

{
    my $attr = Class::MOP::Attribute->new('$foo');
    isa_ok($attr, 'Class::MOP::Attribute');
    
    my $attr_clone = $attr->clone('name' => '$bar');
    isa_ok($attr_clone, 'Class::MOP::Attribute');
    isnt($attr, $attr_clone, '... but they are different instances');
    
    isnt($attr->name, $attr_clone->name, '... we changes the name parameter');
    
    is($attr->name, '$foo', '... $attr->name == $foo');
    is($attr_clone->name, '$bar', '... $attr_clone->name == $bar');    
}
Commit	Line	Data
2eb717d5	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
a27ae83f	6	use Test::More tests => 67;
2eb717d5	7	use Test::Exception;
	8
	9	BEGIN {
727919c5	10	use_ok('Class::MOP');
2eb717d5	11	use_ok('Class::MOP::Attribute');
	12	}
	13
	14	{
	15	my $attr = Class::MOP::Attribute->new('$foo');
	16	isa_ok($attr, 'Class::MOP::Attribute');
	17
	18	is($attr->name, '$foo', '... $attr->name == $foo');
7b31baf4	19	ok($attr->has_init_arg, '... $attr does have an init_arg');
7b31baf4	20	is($attr->init_arg, '$foo', '... $attr init_arg is the name');
2eb717d5	21
	22	ok(!$attr->has_accessor, '... $attr does not have an accessor');
	23	ok(!$attr->has_reader, '... $attr does not have an reader');
	24	ok(!$attr->has_writer, '... $attr does not have an writer');
5659d76e	25	ok(!$attr->has_default, '... $attr does not have an default');
5659d76e	26
a27ae83f	27	my $class = Class::MOP::Class->initialize('Foo');
	28	isa_ok($class, 'Class::MOP::Class');
	29
	30	lives_ok {
	31	$attr->attach_to_class($class);
	32	} '... attached a class successfully';
	33
	34	is($attr->associated_class, $class, '... the class was associated correctly');
	35
5659d76e	36	my $attr_clone = $attr->clone();
	37	isa_ok($attr_clone, 'Class::MOP::Attribute');
	38	isnt($attr, $attr_clone, '... but they are different instances');
	39
a27ae83f	40	is($attr->associated_class, $attr_clone->associated_class, '... the associated classes are the same though');
	41	is($attr->associated_class, $class, '... the associated classes are the same though');
	42	is($attr_clone->associated_class, $class, '... the associated classes are the same though');
	43
5659d76e	44	is_deeply($attr, $attr_clone, '... but they are the same inside');
2eb717d5	45	}
	46
	47	{
	48	my $attr = Class::MOP::Attribute->new('$foo', (
	49	init_arg => '-foo',
	50	default => 'BAR'
	51	));
	52	isa_ok($attr, 'Class::MOP::Attribute');
	53
	54	is($attr->name, '$foo', '... $attr->name == $foo');
	55
	56	ok($attr->has_init_arg, '... $attr does have an init_arg');
	57	is($attr->init_arg, '-foo', '... $attr->init_arg == -foo');
	58	ok($attr->has_default, '... $attr does have an default');
	59	is($attr->default, 'BAR', '... $attr->default == BAR');
	60
	61	ok(!$attr->has_accessor, '... $attr does not have an accessor');
	62	ok(!$attr->has_reader, '... $attr does not have an reader');
5659d76e	63	ok(!$attr->has_writer, '... $attr does not have an writer');
	64
	65	my $attr_clone = $attr->clone();
	66	isa_ok($attr_clone, 'Class::MOP::Attribute');
	67	isnt($attr, $attr_clone, '... but they are different instances');
	68
a27ae83f	69	is($attr->associated_class, $attr_clone->associated_class, '... the associated classes are the same though');
	70	is($attr->associated_class, undef, '... the associated class is actually undef');
	71	is($attr_clone->associated_class, undef, '... the associated class is actually undef');
	72
5659d76e	73	is_deeply($attr, $attr_clone, '... but they are the same inside');
2eb717d5	74	}
	75
	76	{
	77	my $attr = Class::MOP::Attribute->new('$foo', (
	78	accessor => 'foo',
	79	init_arg => '-foo',
	80	default => 'BAR'
	81	));
	82	isa_ok($attr, 'Class::MOP::Attribute');
	83
	84	is($attr->name, '$foo', '... $attr->name == $foo');
	85
	86	ok($attr->has_init_arg, '... $attr does have an init_arg');
	87	is($attr->init_arg, '-foo', '... $attr->init_arg == -foo');
	88	ok($attr->has_default, '... $attr does have an default');
	89	is($attr->default, 'BAR', '... $attr->default == BAR');
	90
	91	ok($attr->has_accessor, '... $attr does have an accessor');
	92	is($attr->accessor, 'foo', '... $attr->accessor == foo');
	93
	94	ok(!$attr->has_reader, '... $attr does not have an reader');
5659d76e	95	ok(!$attr->has_writer, '... $attr does not have an writer');
	96
	97	my $attr_clone = $attr->clone();
	98	isa_ok($attr_clone, 'Class::MOP::Attribute');
a740253a	99	isnt($attr, $attr_clone, '... but they are different instances');
5659d76e	100
5659d76e	101	is_deeply($attr, $attr_clone, '... but they are the same inside');
2eb717d5	102	}
	103
	104	{
	105	my $attr = Class::MOP::Attribute->new('$foo', (
	106	reader => 'get_foo',
	107	writer => 'set_foo',
	108	init_arg => '-foo',
	109	default => 'BAR'
	110	));
	111	isa_ok($attr, 'Class::MOP::Attribute');
	112
	113	is($attr->name, '$foo', '... $attr->name == $foo');
	114
	115	ok($attr->has_init_arg, '... $attr does have an init_arg');
	116	is($attr->init_arg, '-foo', '... $attr->init_arg == -foo');
	117	ok($attr->has_default, '... $attr does have an default');
	118	is($attr->default, 'BAR', '... $attr->default == BAR');
	119
	120	ok($attr->has_reader, '... $attr does have an reader');
	121	is($attr->reader, 'get_foo', '... $attr->reader == get_foo');
	122	ok($attr->has_writer, '... $attr does have an writer');
	123	is($attr->writer, 'set_foo', '... $attr->writer == set_foo');
	124
5659d76e	125	ok(!$attr->has_accessor, '... $attr does not have an accessor');
	126
	127	my $attr_clone = $attr->clone();
	128	isa_ok($attr_clone, 'Class::MOP::Attribute');
a740253a	129	isnt($attr, $attr_clone, '... but they are different instances');
5659d76e	130
5659d76e	131	is_deeply($attr, $attr_clone, '... but they are the same inside');
2eb717d5	132	}
22286063	133
	134	{
	135	my $attr = Class::MOP::Attribute->new('$foo');
	136	isa_ok($attr, 'Class::MOP::Attribute');
	137
	138	my $attr_clone = $attr->clone('name' => '$bar');
	139	isa_ok($attr_clone, 'Class::MOP::Attribute');
	140	isnt($attr, $attr_clone, '... but they are different instances');
	141
	142	isnt($attr->name, $attr_clone->name, '... we changes the name parameter');
	143
	144	is($attr->name, '$foo', '... $attr->name == $foo');
	145	is($attr_clone->name, '$bar', '... $attr_clone->name == $bar');
	146	}
	147