X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F007-attributes.t;fp=t%2F007-attributes.t;h=0000000000000000000000000000000000000000;hb=920139b3efca66d2caeeef306c97fa0da62c6b73;hp=ae538e6bf487f963980107a1254909963ceb58b9;hpb=b644ef5d28f6076859080482d8b44727c1410e1c;p=gitmo%2FMouse.git

diff --git a/t/007-attributes.t b/t/007-attributes.t
deleted file mode 100644
index ae538e6..0000000
--- a/t/007-attributes.t
+++ /dev/null
@@ -1,64 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 18;
-use Test::Exception;
-
-use lib 't/lib';
-use Test::Mouse;
-
-do {
-    package Class;
-    use Mouse;
-
-    has 'x' => (
-        is => 'bare',
-    );
-
-    has 'y' => (
-        is => 'ro',
-    );
-
-    has 'z' => (
-        is => 'rw',
-    );
-
-    has 'attr' => (
-        accessor => 'rw_attr',
-        reader   => 'read_attr',
-        writer   => 'write_attr',
-    );
-};
-
-ok(!Class->can('x'), "No accessor is injected if 'is' has no value");
-can_ok('Class', 'y', 'z');
-
-has_attribute_ok 'Class', 'x';
-has_attribute_ok 'Class', 'y';
-has_attribute_ok 'Class', 'z';
-
-my $object = Class->new;
-
-ok(!$object->can('x'), "No accessor is injected if 'is' has no value");
-can_ok($object, 'y', 'z');
-
-is($object->y, undef);
-
-throws_ok {
-    $object->y(10);
-} qr/Cannot assign a value to a read-only accessor/;
-
-is($object->y, undef);
-
-is($object->z, undef);
-is($object->z(10), 10);
-is($object->z, 10);
-
-can_ok($object, qw(rw_attr read_attr write_attr));
-$object->write_attr(42);
-is $object->rw_attr, 42;
-is $object->read_attr, 42;
-$object->rw_attr(100);
-is $object->rw_attr, 100;
-is $object->read_attr, 100;
-