1 BEGIN { chdir 't' if -d 't' };
5 use Test::More 'no_plan';
8 my $Class = 'Object::Accessor';
12 my $Object = $Class->new;
16 ### XXX this will break warning tests though if enabled
17 $Object::Accessor::DEBUG = $Object::Accessor::DEBUG = 1 if @ARGV;
21 { ok( $Object, "Object of '$Class' created" );
22 isa_ok( $Object, $Class );
25 ### create an accessor;
27 local $SIG{__WARN__} = sub { $warning .= "@_" };
29 ok( $Object->mk_accessors( $Acc ),
30 "Accessor '$Acc' created" );
32 ok( $Object->can( $Acc ), " Can '$Acc'" );
33 ok(!$warning, " No warnings logged" );
39 { ok( 1, "Testing scoped values" );
42 is( $Object->$Acc, $$, " Value set to $$" );
45 { $Object->$Acc( $0 => \my $temp );
46 is( $Object->$Acc, $0, " Value set to $0" );
49 is( $Object->$Acc, $$, " Value restored to $$" );