X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F501_moose_coerce_mouse.t;fp=t%2F501_moose_coerce_mouse.t;h=0000000000000000000000000000000000000000;hb=179ac6cc0c1739d68f32ce43fafe59d342246bc6;hp=ce7ee0cfd8f40f5f3b26e368168fb1f8ad48c4ce;hpb=7a1781ae4d22b7fd52894fc8cbbad2fe55e0295d;p=gitmo%2FMouse.git

diff --git a/t/501_moose_coerce_mouse.t b/t/501_moose_coerce_mouse.t
deleted file mode 100644
index ce7ee0c..0000000
--- a/t/501_moose_coerce_mouse.t
+++ /dev/null
@@ -1,59 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-use Test::Exception;
-BEGIN {
-    my $require_version = 0.68;
-    plan skip_all => "Moose $require_version required for this test" unless eval { require Moose  && Moose->VERSION($require_version) };
-    plan tests => 5;
-}
-
-use Test::Exception;
-
-{
-    package Headers;
-    use Mouse;
-    has 'foo' => ( is => 'rw' );
-}
-{
-    package Response;
-    use Mouse;
-    use Mouse::Util::TypeConstraints;
-
-    type 'HeadersType' => where { defined $_ && eval { $_->isa('Headers') } };
-    coerce  'HeadersType' =>
-        from 'HashRef' => via {
-            Headers->new(%{ $_ });
-        },
-    ;
-
-    has headers => (
-        is     => 'rw',
-        isa    => 'HeadersType',
-        coerce => 1,
-    );
-}
-{
-    package Mosponse;
-    use Moose;
-    extends qw(Response);
-    ::lives_ok { extends qw(Response) } "extend Mouse class with Moose";
-}
-
-{
-    my $r = Mosponse->new(headers => { foo => 'bar' });
-    isa_ok($r->headers, 'Headers');
-    lives_and {
-        is $r->headers->foo, 'bar';
-    };
-}
-
-{
-    my $r = Mosponse->new;
-    $r->headers({foo => 'yay'});
-    isa_ok($r->headers, 'Headers');
-    is($r->headers->foo, 'yay');
-}