This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
2a8aa81f0d3a0e8f3290b282b9f5862c04387e02
[perl5.git] / cpan / Object-Accessor / t / 06_Object-Accessor-alias.t
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 }