t/501_moose_coerce_mouse.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use t::Exception;
   8 BEGIN {
   9     plan skip_all => "Moose required for this test" unless eval { require Moose  && Moose->VERSION('0.59') };
  10     plan tests => 5;
  11 }
  12
  13 use t::Exception;
  14
  15 {
  16     package Headers;
  17     use Mouse;
  18     has 'foo' => ( is => 'rw' );
  19 }
  20 {
  21     package Response;
  22     use Mouse;
  23     use Mouse::TypeRegistry;
  24
  25     subtype 'HeadersType' => sub { defined $_ && eval { $_->isa('Headers') } };
  26     coerce 'HeadersType' => +{
  27         HashRef => sub {
  28             Headers->new(%{ $_ });
  29         },
  30     };
  31
  32     has headers => (
  33         is     => 'rw',
  34         isa    => 'HeadersType',
  35         coerce => 1,
  36     );
  37 }
  38 {
  39     package Mosponse;
  40     use Moose;
  41     extends qw(Response);
  42     ::lives_ok { extends qw(Response) } "extend Mouse class with Moose";
  43 }
  44
  45 {
  46     my $r = Mosponse->new(headers => { foo => 'bar' });
  47     local our $TODO = "Moose not yet aware of Mouse meta";
  48     isa_ok($r->headers, 'Headers');
  49     is(eval{$r->headers->foo}, 'bar');
  50     $r->headers({foo => 'yay'});
  51     isa_ok($r->headers, 'Headers');
  52     is($r->headers->foo, 'yay');
  53 }