#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 8;
use Test::Moose;

{
    package MyTest;
    use Moose;
    use MooseX::Aliases;

    sub foo { }
    alias bar => 'foo';

    has baz => (
        is    => 'ro',
        alias => 'quux',
    );
}

with_immutable {
    my $method = MyTest->meta->get_method('bar');
    ok($method->meta->does_role('MooseX::Aliases::Meta::Trait::Method'),
       'does the method trait');
    is($method->aliased_from, 'foo', 'bar is aliased from foo');
    my $attr_method = MyTest->meta->get_method('quux');
    ok($attr_method->meta->does_role('MooseX::Aliases::Meta::Trait::Method'),
       'does the method trait');
    is($attr_method->aliased_from, 'baz', 'quux is aliased from baz');
} 'MyTest';