Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 500_deprecated.t

use strict;
use warnings;

use Test::More;
use Test::Fatal;

use Carp;

$SIG{__WARN__} = \&croak;

{
    package Foo;

    ::like( ::exception {
        Class::MOP::in_global_destruction();
        }, qr/\b deprecated \b/xmsi, 'Class::MOP::in_global_destruction is deprecated' );
}

{
    package Bar;

    use Class::MOP::Deprecated -api_version => 0.93;

    ::like( ::exception {
        Class::MOP::in_global_destruction();
        }, qr/\b deprecated \b/xmsi, 'Class::MOP::in_global_destruction is deprecated with 0.93 compatibility' );
}

{
    package Baz;

    use Class::MOP::Deprecated -api_version => 0.92;

    ::is( ::exception {
        Class::MOP::in_global_destruction();
        }, undef, 'Class::MOP::in_global_destruction is not deprecated with 0.92 compatibility' );
}

{
    package Foo2;

    use metaclass;

    ::like( ::exception { Foo2->meta->get_attribute_map }, qr/\Qget_attribute_map method has been deprecated/, 'get_attribute_map is deprecated' );
}

{
    package Quux;

    use Class::MOP::Deprecated -api_version => 0.92;
    use Scalar::Util qw( blessed );

    use metaclass;

    sub foo {42}

    Quux->meta->add_method( bar => sub {84} );

    my $map = Quux->meta->get_method_map;
    my @method_objects = grep { blessed($_) } values %{$map};

    ::is(
        scalar @method_objects, 3,
        'get_method_map still returns all values as method object'
    );
    ::is_deeply(
        [ sort keys %{$map} ],
        [qw( bar foo meta )],
        'get_method_map returns expected methods'
    );
}

done_testing;