$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'
- );
-}
+pass("nothing for now...");
done_testing;