Changeset 375

Show
Ignore:
Timestamp:
12/16/01 22:35:31
Author:
miyagawa
Message:

test::more

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Attribute-Protected/trunk/lib/Attribute/Protected.pm

    r240 r375  
    131131=head1 SEE ALSO 
    132132 
    133 L<Attribute::Handlers>, L<Protect>, L<Class::Fields> 
     133L<Attribute::Handlers>, L<protect>, L<Class::Fields> 
    134134 
    135135=cut 
  • Attribute-Protected/trunk/t/00_Protected.t

    r240 r375  
    4747# OK: public 
    4848eval { $some->baz }; 
    49 is($@, undef, 'call public'); 
     49is($@, '', 'call public'); 
    5050 
    5151# OK: private 
    5252eval { $some->call_foo }; 
    53 is($@, undef, 'call private from inside'); 
     53is($@, '', 'call private from inside'); 
    5454 
    5555# OK: protected 
    5656eval { $some->call_bar }; 
    57 is($@, undef, 'call protected from inside'); 
     57is($@, '', 'call protected from inside'); 
    5858 
    5959my $derived = bless {}, 'DerivedClass'; 
     
    6565# OK: protected 
    6666eval { $derived->call_bar_direct }; 
    67 is($@, undef, 'call protected from derived'); 
     67is($@, '', 'call protected from derived'); 
    6868