Use $0 instead of hardcoding filename in regex

[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..405a6f3 100644 (file)
--- a/t/100_bugs/029_instance_application_role_args.t
+++ b/t/100_bugs/029_instance_application_role_args.t
@@ -2,7 +2,6 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Exception;
 
 {
     package Point;
@@ -44,7 +43,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]);