deprecate optimize_as

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

diff --git a/t/basics/deprecations.t b/t/basics/deprecations.t
index 9a8a4c0..2466f6f 100644 (file)
--- a/t/basics/deprecations.t
+++ b/t/basics/deprecations.t
@@ -157,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;