t-failing/400_moose_util/004_resolve_alias.t

   1 #!/usr/bin/perl
   2 # This is automatically generated by author/import-moose-test.pl.
   3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
   4 use t::lib::MooseCompat;
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More;
  10 $TODO = q{Mouse is not yet completed};
  11
  12 use Mouse::Util qw( resolve_metaclass_alias resolve_metatrait_alias );
  13
  14 use lib 't/lib';
  15
  16 # Doing each test twice is intended to make sure that the caching
  17 # doesn't break name resolution. It doesn't actually test that
  18 # anything is cached.
  19 is( resolve_metaclass_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Foo' ),
  20     'Mouse::Meta::Attribute::Custom::Foo',
  21     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Foo' );
  22
  23 is( resolve_metaclass_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Foo' ),
  24     'Mouse::Meta::Attribute::Custom::Foo',
  25     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Foo second time' );
  26
  27 is( resolve_metaclass_alias( 'Attribute', 'Foo' ),
  28     'Mouse::Meta::Attribute::Custom::Foo',
  29     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Foo via alias (Foo)' );
  30
  31 is( resolve_metaclass_alias( 'Attribute', 'Foo' ),
  32     'Mouse::Meta::Attribute::Custom::Foo',
  33     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Foo via alias (Foo) a second time' );
  34
  35 is( resolve_metaclass_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Bar' ),
  36     'My::Bar',
  37     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Bar as My::Bar' );
  38
  39 is( resolve_metaclass_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Bar' ),
  40     'My::Bar',
  41     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Bar as My::Bar a second time' );
  42
  43 is( resolve_metaclass_alias( 'Attribute', 'Bar' ),
  44     'My::Bar',
  45     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Bar as My::Bar via alias (Bar)' );
  46
  47 is( resolve_metaclass_alias( 'Attribute', 'Bar' ),
  48     'My::Bar',
  49     'resolve_metaclass_alias finds Mouse::Meta::Attribute::Custom::Bar as My::Bar via alias (Bar) a second time' );
  50
  51 is( resolve_metatrait_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Trait::Foo' ),
  52     'Mouse::Meta::Attribute::Custom::Trait::Foo',
  53     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Foo' );
  54
  55 is( resolve_metatrait_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Trait::Foo' ),
  56     'Mouse::Meta::Attribute::Custom::Trait::Foo',
  57     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Foo second time' );
  58
  59 is( resolve_metatrait_alias( 'Attribute', 'Foo' ),
  60     'Mouse::Meta::Attribute::Custom::Trait::Foo',
  61     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Foo via alias (Foo)' );
  62
  63 is( resolve_metatrait_alias( 'Attribute', 'Foo' ),
  64     'Mouse::Meta::Attribute::Custom::Trait::Foo',
  65     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Foo via alias (Foo) a second time' );
  66
  67 is( resolve_metatrait_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Trait::Bar' ),
  68     'My::Trait::Bar',
  69     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Bar as My::Trait::Bar' );
  70
  71 is( resolve_metatrait_alias( 'Attribute', 'Mouse::Meta::Attribute::Custom::Trait::Bar' ),
  72     'My::Trait::Bar',
  73     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Bar as My::Trait::Bar a second time' );
  74
  75 is( resolve_metatrait_alias( 'Attribute', 'Bar' ),
  76     'My::Trait::Bar',
  77     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Bar as My::Trait::Bar via alias (Bar)' );
  78
  79 is( resolve_metatrait_alias( 'Attribute', 'Bar' ),
  80     'My::Trait::Bar',
  81     'resolve_metatrait_alias finds Mouse::Meta::Attribute::Custom::Trait::Bar as My::Trait::Bar via alias (Bar) a second time' );
  82
  83 done_testing;