X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F050_metaclasses%2Ffailing%2F017_use_base_of_moose.t;fp=t%2F050_metaclasses%2Ffailing%2F017_use_base_of_moose.t;h=0000000000000000000000000000000000000000;hb=76768b64003a4c56e3bc59deb3e3a465fc2841da;hp=2b68fd3b5aa7b0d14732f6c91b29b759b69a44ce;hpb=c104959dfd903f700dba1c5b9f1e2eea5ff853f0;p=gitmo%2FMouse.git

diff --git a/t/050_metaclasses/failing/017_use_base_of_moose.t b/t/050_metaclasses/failing/017_use_base_of_moose.t
deleted file mode 100644
index 2b68fd3..0000000
--- a/t/050_metaclasses/failing/017_use_base_of_moose.t
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 4;
-use Test::Exception;
-
-{
-    package NoOpTrait;
-    use Mouse::Role;
-}
-
-{
-    package Parent;
-    use Mouse -traits => 'NoOpTrait';
-
-    has attr => (
-        is  => 'rw',
-        isa => 'Str',
-    );
-}
-
-{
-    package Child;
-    use base 'Parent';
-}
-
-is(Child->meta->name, 'Child', "correct metaclass name");
-
-my $child = Child->new(attr => "ibute");
-ok($child, "constructor works");
-
-is($child->attr, "ibute", "getter inherited properly");
-
-$child->attr("ition");
-is($child->attr, "ition", "setter inherited properly");