#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Moose;
BEGIN {
    eval "use Test::Output;";
    plan skip_all => "Test::Output is required for this test" if $@;
    plan tests => 5;
}

{
    package Foo;
    use Moose;
    use MooseX::Aliases;
    sub foo { }
    ::stderr_like { alias foo => 'bar' }
                qr/^"alias \$from => \$to" is deprecated, please use "alias \$to => \$from"/,
                "got a proper deprecation warning";
}

with_immutable {
    can_ok('Foo', 'bar');
    is(Foo->meta->get_method('bar')->aliased_from, 'foo',
       "it's the right alias");
} 'Foo';