use strict;
use warnings;
-use Test::More tests => 65;
+use Test::More tests => 67;
use Test::Exception;
BEGIN {
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');
+ 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');
}
{
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_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');
}
{
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');
+ 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');
}
{
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');
+ 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');
}
-dies_ok {
- Class::MOP::Attribute->new('$foo', (
- accessor => 'foo',
- reader => 'get_foo',
- ));
-} '... cannot create accessors with reader/writers';
-
-dies_ok {
- Class::MOP::Attribute->new('$foo', (
- accessor => 'foo',
- writer => 'set_foo',
- ));
-} '... cannot create accessors with reader/writers';
-
-dies_ok {
- Class::MOP::Attribute->new('$foo', (
- accessor => 'foo',
- reader => 'get_foo',
- writer => 'set_foo',
- ));
-} '... cannot create accessors with reader/writers';
-
-dies_ok {
- Class::MOP::Attribute->new();
-} '... no name argument';
-
-dies_ok {
- Class::MOP::Attribute->new('');
-} '... bad name argument';
-
-dies_ok {
- Class::MOP::Attribute->new(0);
-} '... bad name argument';
-
-dies_ok {
- Class::MOP::Attribute->install_accessors();
-} '... bad install_accessors argument';
-
-dies_ok {
- Class::MOP::Attribute->install_accessors(bless {} => 'Fail');
-} '... bad install_accessors argument';
-
-dies_ok {
- Class::MOP::Attribute->remove_accessors();
-} '... bad remove_accessors argument';
-
-dies_ok {
- Class::MOP::Attribute->remove_accessors(bless {} => 'Fail');
-} '... bad remove_accessors argument';
-
-
{
- my $meta = Class::MOP::Attribute->meta();
- isa_ok($meta, 'Class::MOP::Class');
-
- foreach my $method_name (qw(
- meta
- new
- has_accessor accessor
- has_writer writer
- has_reader reader
- has_init_arg init_arg
- has_default default
- install_accessors
- remove_accessors
- )) {
- ok($meta->has_method($method_name), '... Class::MOP::Attribute->has_method(' . $method_name . ')');
- }
+ 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');
}
+