Require Package::DeprecationManager 0.07

[gitmo/Moose.git] / t / 010_basics / 030_deprecations.t

use strict;
use warnings;

use Test::More;

use Test::Requires {
    'Test::Output' => '0.01',
};

{
    package Role;

    use Moose::Role;

    sub thing { }
}

{
    package Foo;

    use Moose;

    ::stderr_like{ has foo => (
            traits => ['String'],
            is     => 'ro',
            isa    => 'Str',
        );
        }
        qr/\QAllowing a native trait to automatically supply a default is deprecated/,
        'Not providing a default for native String trait warns';

    ::stderr_like{ has bar => (
            traits  => ['String'],
            isa     => 'Str',
            default => q{},
        );
        }
        qr/\QAllowing a native trait to automatically supply a value for "is" is deprecated/,
        'Not providing a value for is with native String trait warns';

    ::stderr_like{ with 'Role' =>
            { excludes => ['thing'], alias => { thing => 'thing2' } };
        }
        qr/\QThe alias and excludes options for role application have been renamed -alias and -excludes/,
        'passing excludes or alias with a leading dash warns';
    ::ok(
        !Foo->meta->has_method('thing'),
        'thing method is excluded from role application'
    );
    ::ok(
        Foo->meta->has_method('thing2'),
        'thing2 method is created as alias in role application'
    );
}

{
    package Pack1;

    use Moose;

    ::stderr_is{ has foo => (
            traits  => ['String'],
            reader  => '_foo',
            isa     => 'Str',
            default => q{},
        );
        } q{},
        'Providing a reader for a String trait avoids default is warning';

    ::stderr_is{ has bar => (
            traits  => ['String'],
            is      => 'ro',
            isa     => 'Str',
            builder => '_build_foo',
        );
        } q{},
        'Providing a builder for a String trait avoids default default warning';

    sub _build_foo { }
}

{
    package Pack2;

    use Moose;

    ::stderr_is{ has foo => (
            traits  => ['String'],
            writer  => '_foo',
            isa     => 'Str',
            default => q{},
        );
        } q{},
        'Providing a writer for a String trait avoids default is warning';

    ::stderr_is{ has bar => (
            traits   => ['String'],
            is       => 'ro',
            isa      => 'Str',
            required => 1,
        );
        } q{},
        'Making a String trait required avoids default default warning';

    sub _build_foo { }
}

{
    package Pack3;

    use Moose;

    ::stderr_is{ has foo => (
            traits   => ['String'],
            accessor => '_foo',
            isa      => 'Str',
            default  => q{},
        );
        } q{},
        'Providing an accessor for a String trait avoids default is warning';
}

done_testing;