| Commit | Line | Data |
|---|
| c47cf415 |
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; |
projects / gitmo/Mouse.git / blame