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; |