X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F007-attributes.t;h=f4c60ee95985d456b264c8e13529240b6c6102f1;hb=6d97be621e327fb47ccdae402139885d653e8b02;hp=925d4c4ee7ec0e97a27d3ae8753d8a21695bdda2;hpb=ce61d034787c3c5ffba15d292a0b1cd861287f0a;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/007-attributes.t b/t/001_mouse/007-attributes.t
index 925d4c4..f4c60ee 100644
--- a/t/001_mouse/007-attributes.t
+++ b/t/001_mouse/007-attributes.t
@@ -1,11 +1,12 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 21;
+use Test::More;
 use Test::Exception;
+use Test::Mouse;
 
 use lib 't/lib';
-use Test::Mouse;
+use MooseCompat;
 
 do {
     package Class;
@@ -62,6 +63,9 @@ $object->rw_attr(100);
 is $object->rw_attr, 100;
 is $object->read_attr, 100;
 
+is $object->write_attr("piyo"), "piyo";
+is $object->rw_attr("yopi"),    "yopi";
+
 dies_ok {
     Class->rw_attr();
 };
@@ -71,3 +75,9 @@ dies_ok {
 dies_ok {
     Class->write_attr(42);
 };
+
+my @attrs = map { $_->name }
+    sort { $a->insertion_order <=> $b->insertion_order } $object->meta->get_all_attributes;
+is join(' ', @attrs), 'x y z attr', 'insertion_order';
+
+done_testing;