Fix a test
gfx [Mon, 28 Sep 2009 00:30:32 +0000 (09:30 +0900)]
t/990_deprecated/044-attribute-metaclass.t

index 0701c93..01786eb 100644 (file)
@@ -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;