make github the primary repository

[gitmo/Moose.git] / t / basics / deprecations.t

diff --git a/t/basics/deprecations.t b/t/basics/deprecations.t
index cb2eaf9..2466f6f 100644 (file)
--- a/t/basics/deprecations.t
+++ b/t/basics/deprecations.t
@@ -45,20 +45,6 @@ use Test::Requires {
             ::stderr_like{ Foo->new->bar }
                 qr{\QThe bar method in the Foo class was automatically created by the native delegation trait for the bar attribute. This "default is" feature is deprecated. Explicitly set "is" or define accessor names to avoid this at $0 line},
                 'calling a reader on a method created by a _default_is 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 (Foo is consuming Role - do you need to upgrade Foo?)/,
-                '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'
-            );
         }
     ), undef );
 }
@@ -171,5 +157,20 @@ use Test::Requires {
     sub _build_foo { q{} }
 }
 
+{
+    use Moose::Util::TypeConstraints;
+
+    is(
+        exception {
+            stderr_like {
+                subtype 'Frubble', as 'Str', optimize_as sub { };
+            }
+            qr/\QProviding an optimized subroutine ref for type constraints is deprecated./,
+            'Providing an optimize_as sub is deprecated';
+        },
+        undef
+    );
+}
+
 done_testing;