Issue a deprecation warning for alias or excludes (sans leading dash)

[gitmo/Moose.git] / t / 100_bugs / 029_instance_application_role_args.t

diff --git a/t/100_bugs/029_instance_application_role_args.t b/t/100_bugs/029_instance_application_role_args.t
index 9c29a0e..9a3e238 100644 (file)
--- a/t/100_bugs/029_instance_application_role_args.t
+++ b/t/100_bugs/029_instance_application_role_args.t
@@ -44,7 +44,7 @@ use Test::Exception;
 
 my $p = Point->new( x => 4, y => 3 );
 
-DoesTranspose->meta->apply( $p, alias => { transpose => 'negated' } );
+DoesTranspose->meta->apply( $p, -alias => { transpose => 'negated' } );
 
 is_deeply($p->negated->inspect, [3, 4]);
 is_deeply($p->transpose->inspect, [3, 4]);