X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F009_attribute_inherited_slot_specs.t;h=7903f9d9b7711772e4059c36f42d3918acb1c6bf;hb=a46d86de42b016d9e562eac5dcdf5f59aee5afac;hp=4f9adde648ca61a041d5653445d036abd4178c04;hpb=5e98d2b62deaddc3e3560b35d2fb2c0bc00f4635;p=gitmo%2FMoose.git

diff --git a/t/020_attributes/009_attribute_inherited_slot_specs.t b/t/020_attributes/009_attribute_inherited_slot_specs.t
index 4f9adde..7903f9d 100644
--- a/t/020_attributes/009_attribute_inherited_slot_specs.t
+++ b/t/020_attributes/009_attribute_inherited_slot_specs.t
@@ -6,106 +6,107 @@ use warnings;
 use Test::More tests => 84;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');  
-}
+
 
 {
     package Thing;
     use Moose;
-    
+
     sub hello   { 'Hello World (from Thing)' }
-    sub goodbye { 'Goodbye World (from Thing)' }    
-    
+    sub goodbye { 'Goodbye World (from Thing)' }
+
     package Foo;
     use Moose;
     use Moose::Util::TypeConstraints;
-    
-    subtype 'FooStr' 
+
+    subtype 'FooStr'
         => as 'Str'
         => where { /Foo/ };
-        
-    coerce 'FooStr' 
+
+    coerce 'FooStr'
         => from ArrayRef
             => via { 'FooArrayRef' };
-    
+
     has 'bar' => (is => 'ro', isa => 'Str', default => 'Foo::bar');
-    has 'baz' => (is => 'rw', isa => 'Ref');   
-    has 'foo' => (is => 'rw', isa => 'FooStr');       
-    
-    has 'gorch' => (is => 'ro'); 
-    has 'gloum' => (is => 'ro', default => sub {[]});  
-    
+    has 'baz' => (is => 'rw', isa => 'Ref');
+    has 'foo' => (is => 'rw', isa => 'FooStr');
+
+    has 'gorch' => (is => 'ro');
+    has 'gloum' => (is => 'ro', default => sub {[]});
+
     has 'bling' => (is => 'ro', isa => 'Thing');
-    has 'blang' => (is => 'ro', isa => 'Thing', handles => ['goodbye']);         
-    
+    has 'blang' => (is => 'ro', isa => 'Thing', handles => ['goodbye']);
+
     has 'bunch_of_stuff' => (is => 'rw', isa => 'ArrayRef');
 
-    has 'one_last_one' => (is => 'rw', isa => 'Ref');   
-    
+    has 'one_last_one' => (is => 'rw', isa => 'Ref');
+
     # this one will work here ....
-    has 'fail' => (isa => 'CodeRef');
-    has 'other_fail';    
-    
+    has 'fail' => (isa => 'CodeRef', is => 'bare');
+    has 'other_fail' => (is => 'bare');
+
     package Bar;
     use Moose;
     use Moose::Util::TypeConstraints;
-    
+
     extends 'Foo';
 
-    ::lives_ok {     
-        has '+bar' => (default => 'Bar::bar');  
-    } '... we can change the default attribute option';        
-    
-    ::lives_ok {     
-        has '+baz' => (isa => 'ArrayRef');        
-    } '... we can add change the isa as long as it is a subtype';        
-    
-    ::lives_ok {     
-        has '+foo' => (coerce => 1);    
-    } '... we can change/add coerce as an attribute option';            
-
-    ::lives_ok {     
-        has '+gorch' => (required => 1); 
-    } '... we can change/add required as an attribute option';    
-    
-    ::lives_ok { 
-        has '+gloum' => (lazy => 1);           
-    } '... we can change/add lazy as an attribute option';    
+    ::lives_ok {
+        has '+bar' => (default => 'Bar::bar');
+    } '... we can change the default attribute option';
+
+    ::lives_ok {
+        has '+baz' => (isa => 'ArrayRef');
+    } '... we can add change the isa as long as it is a subtype';
+
+    ::lives_ok {
+        has '+foo' => (coerce => 1);
+    } '... we can change/add coerce as an attribute option';
+
+    ::lives_ok {
+        has '+gorch' => (required => 1);
+    } '... we can change/add required as an attribute option';
+
+    ::lives_ok {
+        has '+gloum' => (lazy => 1);
+    } '... we can change/add lazy as an attribute option';
+
+    ::lives_ok {
+        has '+gloum' => (lazy_build => 1);
+    } '... we can add lazy_build as an attribute option';
 
     ::lives_ok {
-        has '+bunch_of_stuff' => (isa => 'ArrayRef[Int]');        
+        has '+bunch_of_stuff' => (isa => 'ArrayRef[Int]');
     } '... extend an attribute with parameterized type';
-    
+
     ::lives_ok {
-        has '+one_last_one' => (isa => subtype('Ref', where { blessed $_ eq 'CODE' }));        
-    } '... extend an attribute with anon-subtype';    
-    
+        has '+one_last_one' => (isa => subtype('Ref', where { blessed $_ eq 'CODE' }));
+    } '... extend an attribute with anon-subtype';
+
     ::lives_ok {
-        has '+one_last_one' => (isa => 'Value');        
-    } '... now can extend an attribute with a non-subtype';    
-    
+        has '+one_last_one' => (isa => 'Value');
+    } '... now can extend an attribute with a non-subtype';
+
     ::lives_ok {
-        has '+bling' => (handles => ['hello']);        
+        has '+bling' => (handles => ['hello']);
     } '... we can add the handles attribute option';
-    
+
     # this one will *not* work here ....
     ::dies_ok {
-        has '+blang' => (handles => ['hello']);        
-    } '... we can not alter the handles attribute option';    
-    ::lives_ok { 
-        has '+fail' => (isa => 'Ref');           
-    } '... can now create an attribute with an improper subtype relation';    
-    ::dies_ok { 
-        has '+other_fail' => (trigger => sub {});           
-    } '... cannot create an attribute with an illegal option';    
-    ::dies_ok { 
-        has '+other_fail' => (weak_ref => 1);           
-    } '... cannot create an attribute with an illegal option';   
-    ::dies_ok { 
-        has '+other_fail' => (isa => 'WangDoodle');           
-    } '... cannot create an attribute with a non-existent type';       
-    
+        has '+blang' => (handles => ['hello']);
+    } '... we can not alter the handles attribute option';
+    ::lives_ok {
+        has '+fail' => (isa => 'Ref');
+    } '... can now create an attribute with an improper subtype relation';
+    ::dies_ok {
+        has '+other_fail' => (trigger => sub {});
+    } '... cannot create an attribute with an illegal option';
+    ::dies_ok {
+        has '+other_fail' => (weak_ref => 1);
+    } '... cannot create an attribute with an illegal option';
+    ::throws_ok {
+        has '+does_not_exist' => (isa => 'Str');
+    } qr/in Bar/, '... cannot extend a non-existing attribute';
 }
 
 my $foo = Foo->new;
@@ -126,7 +127,7 @@ is($foo->baz, undef, '... got the right undef default value');
     my $hash_ref = {};
     lives_ok { $foo->baz($hash_ref) } '... Foo::baz accepts hash refs';
     is($foo->baz, $hash_ref, '... got the right value assigned to baz');
-    
+
     my $array_ref = [];
     lives_ok { $foo->baz($array_ref) } '... Foo::baz accepts an array ref';
     is($foo->baz, $array_ref, '... got the right value assigned to baz');
@@ -134,14 +135,14 @@ is($foo->baz, undef, '... got the right undef default value');
     my $scalar_ref = \(my $var);
     lives_ok { $foo->baz($scalar_ref) } '... Foo::baz accepts scalar ref';
     is($foo->baz, $scalar_ref, '... got the right value assigned to baz');
-    
-    lives_ok { $foo->bunch_of_stuff([qw[one two three]]) } '... Foo::bunch_of_stuff accepts an array of strings';    
-    
-    lives_ok { $foo->one_last_one(sub { 'Hello World'}) } '... Foo::one_last_one accepts a code ref';        
-    
+
+    lives_ok { $foo->bunch_of_stuff([qw[one two three]]) } '... Foo::bunch_of_stuff accepts an array of strings';
+
+    lives_ok { $foo->one_last_one(sub { 'Hello World'}) } '... Foo::one_last_one accepts a code ref';
+
     my $code_ref = sub { 1 };
     lives_ok { $foo->baz($code_ref) } '... Foo::baz accepts a code ref';
-    is($foo->baz, $code_ref, '... got the right value assigned to baz');    
+    is($foo->baz, $code_ref, '... got the right value assigned to baz');
 }
 
 dies_ok {
@@ -168,17 +169,17 @@ is($bar->baz, undef, '... got the right undef default value');
 {
     my $hash_ref = {};
     dies_ok { $bar->baz($hash_ref) } '... Bar::baz does not accept hash refs';
-    
+
     my $array_ref = [];
     lives_ok { $bar->baz($array_ref) } '... Bar::baz can accept an array ref';
     is($bar->baz, $array_ref, '... got the right value assigned to baz');
 
     my $scalar_ref = \(my $var);
     dies_ok { $bar->baz($scalar_ref) } '... Bar::baz does not accept a scalar ref';
-    
-    lives_ok { $bar->bunch_of_stuff([1, 2, 3]) } '... Bar::bunch_of_stuff accepts an array of ints';        
-    dies_ok { $bar->bunch_of_stuff([qw[one two three]]) } '... Bar::bunch_of_stuff does not accept an array of strings';        
-    
+
+    lives_ok { $bar->bunch_of_stuff([1, 2, 3]) } '... Bar::bunch_of_stuff accepts an array of ints';
+    dies_ok { $bar->bunch_of_stuff([qw[one two three]]) } '... Bar::bunch_of_stuff does not accept an array of strings';
+
     my $code_ref = sub { 1 };
     dies_ok { $bar->baz($code_ref) } '... Bar::baz does not accept a code ref';
 }
@@ -196,66 +197,66 @@ ok(!Bar->meta->has_attribute('blang'), '... Bar has a blang attr');
 ok(Bar->meta->has_attribute('fail'), '... Bar has a fail attr');
 ok(!Bar->meta->has_attribute('other_fail'), '... Bar does not have an other_fail attr');
 
-isnt(Foo->meta->get_attribute('foo'), 
-     Bar->meta->get_attribute('foo'), 
+isnt(Foo->meta->get_attribute('foo'),
+     Bar->meta->get_attribute('foo'),
      '... Foo and Bar have different copies of foo');
-isnt(Foo->meta->get_attribute('bar'), 
-     Bar->meta->get_attribute('bar'), 
+isnt(Foo->meta->get_attribute('bar'),
+     Bar->meta->get_attribute('bar'),
      '... Foo and Bar have different copies of bar');
-isnt(Foo->meta->get_attribute('baz'), 
-     Bar->meta->get_attribute('baz'), 
-     '... Foo and Bar have different copies of baz');          
-isnt(Foo->meta->get_attribute('gorch'), 
-     Bar->meta->get_attribute('gorch'), 
+isnt(Foo->meta->get_attribute('baz'),
+     Bar->meta->get_attribute('baz'),
+     '... Foo and Bar have different copies of baz');
+isnt(Foo->meta->get_attribute('gorch'),
+     Bar->meta->get_attribute('gorch'),
      '... Foo and Bar have different copies of gorch');
-isnt(Foo->meta->get_attribute('gloum'), 
-     Bar->meta->get_attribute('gloum'), 
-     '... Foo and Bar have different copies of gloum'); 
-isnt(Foo->meta->get_attribute('bling'), 
-     Bar->meta->get_attribute('bling'), 
-     '... Foo and Bar have different copies of bling');              
-isnt(Foo->meta->get_attribute('bunch_of_stuff'), 
-     Bar->meta->get_attribute('bunch_of_stuff'), 
-     '... Foo and Bar have different copies of bunch_of_stuff');     
-     
-ok(Bar->meta->get_attribute('bar')->has_type_constraint, 
+isnt(Foo->meta->get_attribute('gloum'),
+     Bar->meta->get_attribute('gloum'),
+     '... Foo and Bar have different copies of gloum');
+isnt(Foo->meta->get_attribute('bling'),
+     Bar->meta->get_attribute('bling'),
+     '... Foo and Bar have different copies of bling');
+isnt(Foo->meta->get_attribute('bunch_of_stuff'),
+     Bar->meta->get_attribute('bunch_of_stuff'),
+     '... Foo and Bar have different copies of bunch_of_stuff');
+
+ok(Bar->meta->get_attribute('bar')->has_type_constraint,
    '... Bar::bar inherited the type constraint too');
-ok(Bar->meta->get_attribute('baz')->has_type_constraint, 
-  '... Bar::baz inherited the type constraint too');   
+ok(Bar->meta->get_attribute('baz')->has_type_constraint,
+  '... Bar::baz inherited the type constraint too');
 
-is(Bar->meta->get_attribute('bar')->type_constraint->name, 
+is(Bar->meta->get_attribute('bar')->type_constraint->name,
    'Str', '... Bar::bar inherited the right type constraint too');
 
-is(Foo->meta->get_attribute('baz')->type_constraint->name, 
+is(Foo->meta->get_attribute('baz')->type_constraint->name,
   'Ref', '... Foo::baz inherited the right type constraint too');
-is(Bar->meta->get_attribute('baz')->type_constraint->name, 
-   'ArrayRef', '... Bar::baz inherited the right type constraint too');   
-   
-ok(!Foo->meta->get_attribute('gorch')->is_required, 
+is(Bar->meta->get_attribute('baz')->type_constraint->name,
+   'ArrayRef', '... Bar::baz inherited the right type constraint too');
+
+ok(!Foo->meta->get_attribute('gorch')->is_required,
   '... Foo::gorch is not a required attr');
-ok(Bar->meta->get_attribute('gorch')->is_required, 
+ok(Bar->meta->get_attribute('gorch')->is_required,
    '... Bar::gorch is a required attr');
-   
-is(Foo->meta->get_attribute('bunch_of_stuff')->type_constraint->name, 
+
+is(Foo->meta->get_attribute('bunch_of_stuff')->type_constraint->name,
   'ArrayRef',
   '... Foo::bunch_of_stuff is an ArrayRef');
-is(Bar->meta->get_attribute('bunch_of_stuff')->type_constraint->name, 
+is(Bar->meta->get_attribute('bunch_of_stuff')->type_constraint->name,
   'ArrayRef[Int]',
   '... Bar::bunch_of_stuff is an ArrayRef[Int]');
-   
-ok(!Foo->meta->get_attribute('gloum')->is_lazy, 
+
+ok(!Foo->meta->get_attribute('gloum')->is_lazy,
    '... Foo::gloum is not a required attr');
-ok(Bar->meta->get_attribute('gloum')->is_lazy, 
-   '... Bar::gloum is a required attr');   
-   
-ok(!Foo->meta->get_attribute('foo')->should_coerce, 
+ok(Bar->meta->get_attribute('gloum')->is_lazy,
+   '... Bar::gloum is a required attr');
+
+ok(!Foo->meta->get_attribute('foo')->should_coerce,
   '... Foo::foo should not coerce');
-ok(Bar->meta->get_attribute('foo')->should_coerce, 
-   '... Bar::foo should coerce');  
-   
-ok(!Foo->meta->get_attribute('bling')->has_handles, 
+ok(Bar->meta->get_attribute('foo')->should_coerce,
+   '... Bar::foo should coerce');
+
+ok(!Foo->meta->get_attribute('bling')->has_handles,
    '... Foo::foo should not handles');
-ok(Bar->meta->get_attribute('bling')->has_handles, 
-   '... Bar::foo should handles');     
+ok(Bar->meta->get_attribute('bling')->has_handles,
+   '... Bar::foo should handles');