X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F018-multiattr-has.t;h=8458e89041550a1916d285b278797966231fc450;hb=c9313657717f78bd96f0325c6aa1c93d0b0d41a5;hp=49b4d3da31000ee2ba2f32e0ae12089f2c6b3b6e;hpb=c3398f5bd45f2851b7cd40ca9823bcf7d2378469;p=gitmo%2FMouse.git

diff --git a/t/018-multiattr-has.t b/t/018-multiattr-has.t
index 49b4d3d..8458e89 100644
--- a/t/018-multiattr-has.t
+++ b/t/018-multiattr-has.t
@@ -8,17 +8,18 @@ do {
     package Class;
     use Mouse;
 
-    has [qw/a b c/] => (
-        is => 'rw',
-        trigger => sub {
-            my ($self, $value, $attr) = @_;
-            $trigger{$attr->name}++;
-        },
-    );
+    for my $attr (qw/a b c/) {
+        has $attr => (
+            is => 'rw',
+            trigger => sub {
+                $trigger{$attr}++;
+            },
+        );
+    }
 };
 
 can_ok(Class => qw/a b c/);
-is(Class->meta->attributes, 3, "three attributes created");
+is_deeply([sort Class->meta->get_attribute_list], [sort qw/a b c/], "three attributes created");
 Class->new(a => 1, b => 2);
 
 is_deeply(\%trigger, { a => 1, b => 1 }, "correct triggers called");