#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 18;
+use Test::More;
use Test::Exception;
+use Test::Mouse;
use lib 't/lib';
-use Test::Mouse;
+use MooseCompat;
do {
package Class;
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->read_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;