t/025-more-isa.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More tests => 9;
   5 use Test::Exception;
   6
   7 do {
   8     package Class;
   9     use Mouse;
  10
  11     has tb => (
  12         is  => 'rw',
  13         isa => 'Test::Builder',
  14     );
  15 };
  16
  17 can_ok(Class => 'tb');
  18
  19 lives_ok {
  20     Class->new(tb => Test::Builder->new);
  21 };
  22
  23 lives_ok {
  24     my $class = Class->new;
  25     $class->tb(Test::Builder->new);
  26     isa_ok($class->tb, 'Test::Builder');
  27 };
  28
  29 throws_ok {
  30     Class->new(tb => 3);
  31 } qr/Attribute \(tb\) does not pass the type constraint because: Validation failed for 'Test::Builder' failed with value 3/;
  32
  33 throws_ok {
  34     my $class = Class->new;
  35     $class->tb(3);
  36 } qr/Attribute \(tb\) does not pass the type constraint because: Validation failed for 'Test::Builder' failed with value 3/;
  37
  38 throws_ok {
  39     Class->new(tb => Class->new);
  40 } qr/Attribute \(tb\) does not pass the type constraint because: Validation failed for 'Test::Builder' failed with value Class=HASH\(\w+\)/;
  41
  42 do {
  43     package Other;
  44     use Mouse;
  45
  46     has oops => (
  47         isa     => 'Int',
  48         default => "yikes",
  49     );
  50 };
  51
  52 throws_ok {
  53     Other->new;
  54 } qr/Attribute \(oops\) does not pass the type constraint because: Validation failed for 'Int' failed with value yikes/;
  55
  56 lives_ok {
  57     Other->new(oops => 10);
  58 };
  59