ext/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 }