From: gfx <gfuji@cpan.org>
Date: Mon, 28 Sep 2009 00:30:32 +0000 (+0900)
Subject: Fix a test
X-Git-Tag: 0.37~9
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=134daa672a270f9144185a6d245085558fceb210;p=gitmo%2FMouse.git

Fix a test
---

diff --git a/t/990_deprecated/044-attribute-metaclass.t b/t/990_deprecated/044-attribute-metaclass.t
index 0701c93..01786eb 100644
--- 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) = @_;
 
         %args = $next->($self, $name, %args);
-        $args{is}  = 'rw'               unless exists $args{is};
+        $args{is}  = 'rw'  unless exists $args{is};
 
         return %args;
     };
@@ -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;