#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 21;
+use Test::More;
use Test::Exception;
use Test::Mouse;
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();
};
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;