Move t/*/t into t/001_mouse

[gitmo/Mouse.git] / t / 001_mouse / 018-multiattr-has.t

diff --git a/t/001_mouse/018-multiattr-has.t b/t/001_mouse/018-multiattr-has.t
new file mode 100644 (file)
index 0000000..8458e89
--- /dev/null
+++ b/t/001_mouse/018-multiattr-has.t
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+my %trigger;
+do {
+    package Class;
+    use Mouse;
+
+    for my $attr (qw/a b c/) {
+        has $attr => (
+            is => 'rw',
+            trigger => sub {
+                $trigger{$attr}++;
+            },
+        );
+    }
+};
+
+can_ok(Class => qw/a b c/);
+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");
+