-#!/usr/bin/perl
-
use strict;
use warnings;
use Scalar::Util 'reftype', 'blessed';
-use Test::More tests => 97;
+use Test::More tests => 100;
use Test::Exception;
-BEGIN {
- use_ok('Class::MOP');
- use_ok('Class::MOP::Attribute');
-}
+use Class::MOP;
+use Class::MOP::Attribute;
+
+
+dies_ok { Class::MOP::Attribute->name } q{... can't call name() as a class method};
+
{
my $attr = Class::MOP::Attribute->new('$foo');
ok(!$attr->has_default, '... $attr does not have an default');
ok(!$attr->has_builder, '... $attr does not have a builder');
+ {
+ my $reader = $attr->get_read_method_ref;
+ my $writer = $attr->get_write_method_ref;
+
+ ok(!blessed($reader), '... it is a plain old sub');
+ ok(!blessed($writer), '... it is a plain old sub');
+
+ is(reftype($reader), 'CODE', '... it is a plain old sub');
+ is(reftype($writer), 'CODE', '... it is a plain old sub');
+ }
+
my $class = Class::MOP::Class->initialize('Foo');
isa_ok($class, 'Class::MOP::Class');
my $reader = $attr->get_read_method_ref;
my $writer = $attr->get_write_method_ref;
- ok(!blessed($reader), '... it is a plain old sub');
- ok(!blessed($writer), '... it is a plain old sub');
+ ok(blessed($reader), '... it is a plain old sub');
+ ok(blessed($writer), '... it is a plain old sub');
- is(reftype($reader), 'CODE', '... it is a plain old sub');
- is(reftype($writer), 'CODE', '... it is a plain old sub');
+ isa_ok($reader, 'Class::MOP::Method');
+ isa_ok($writer, 'Class::MOP::Method');
}
my $attr_clone = $attr->clone();