Fix a test

[gitmo/Mouse.git] / t / 990_deprecated / 044-attribute-metaclass.t

diff --git a/t/990_deprecated/044-attribute-metaclass.t b/t/990_deprecated/044-attribute-metaclass.t
index 0701c93..01786eb 100644 (file)
--- a/t/990_deprecated/044-attribute-metaclass.t
+++ b/t/990_deprecated/044-attribute-metaclass.t
@@ -35,7 +35,7 @@ do {
         my ($next, $self, $name, %args) = @_;\r
 \r
         %args = $next->($self, $name, %args);\r
-        $args{is}  = 'rw'               unless exists $args{is};\r
+        $args{is}  = 'rw'  unless exists $args{is};\r
 \r
         return %args;\r
     };\r
@@ -59,7 +59,7 @@ do {
 };
 
 can_ok 'Klass', 'add_number', 'number';
-my $k = Klass->new(i=>3);
+my $k = Klass->new(number => 3);
 $k->add_number(4);
 is $k->number, 7;