Commit | Line | Data |
1eea129c |
1 | BEGIN { chdir 't' if -d 't' }; |
2 | |
3 | use strict; |
4 | use lib '../lib'; |
5 | use Test::More 'no_plan'; |
6 | use Data::Dumper; |
7 | |
8 | my $Class = 'Object::Accessor'; |
9 | |
10 | use_ok($Class); |
11 | |
12 | my $Object = $Class->new; |
13 | my $Acc = 'foo'; |
14 | my $Alias = 'bar'; |
15 | |
16 | ### basic sanity test |
17 | { ok( $Object, "Object created" ); |
18 | |
19 | ok( $Object->mk_accessors( $Acc ), |
20 | " Accessor ->$Acc created" ); |
21 | ok( $Object->$Acc( $$ ), " ->$Acc set to $$" ); |
22 | } |
23 | |
24 | ### alias tests |
25 | { ok( $Object->mk_aliases( $Alias => $Acc ), |
26 | "Alias ->$Alias => ->$Acc" ); |
27 | ok( $Object->$Alias, " ->$Alias returns value" ); |
28 | is( $Object->$Acc, $Object->$Alias, |
29 | " ->$Alias eq ->$Acc" ); |
30 | ok( $Object->$Alias( $0 ), " Set value via alias ->$Alias" ); |
31 | is( $Object->$Acc, $Object->$Alias, |
32 | " ->$Alias eq ->$Acc" ); |
33 | } |