t/020_attributes/008_attribute_type_unions.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7 use Test::Fatal;
   8
   9
  10 {
  11     package Foo;
  12     use Moose;
  13
  14     has 'bar' => (is => 'rw', isa => 'ArrayRef | HashRef');
  15 }
  16
  17 my $foo = Foo->new;
  18 isa_ok($foo, 'Foo');
  19
  20 ok ! exception {
  21     $foo->bar([])
  22 }, '... set bar successfully with an ARRAY ref';
  23
  24 ok ! exception {
  25     $foo->bar({})
  26 }, '... set bar successfully with a HASH ref';
  27
  28 ok exception {
  29     $foo->bar(100)
  30 }, '... couldnt set bar successfully with a number';
  31
  32 ok exception {
  33     $foo->bar(sub {})
  34 }, '... couldnt set bar successfully with a CODE ref';
  35
  36 # check the constructor
  37
  38 ok ! exception {
  39     Foo->new(bar => [])
  40 }, '... created new Foo with bar successfully set with an ARRAY ref';
  41
  42 ok ! exception {
  43     Foo->new(bar => {})
  44 }, '... created new Foo with bar successfully set with a HASH ref';
  45
  46 ok exception {
  47     Foo->new(bar => 50)
  48 }, '... didnt create a new Foo with bar as a number';
  49
  50 ok exception {
  51     Foo->new(bar => sub {})
  52 }, '... didnt create a new Foo with bar as a CODE ref';
  53
  54 {
  55     package Bar;
  56     use Moose;
  57
  58     has 'baz' => (is => 'rw', isa => 'Str | CodeRef');
  59 }
  60
  61 my $bar = Bar->new;
  62 isa_ok($bar, 'Bar');
  63
  64 ok ! exception {
  65     $bar->baz('a string')
  66 }, '... set baz successfully with a string';
  67
  68 ok ! exception {
  69     $bar->baz(sub { 'a sub' })
  70 }, '... set baz successfully with a CODE ref';
  71
  72 ok exception {
  73     $bar->baz(\(my $var1))
  74 }, '... couldnt set baz successfully with a SCALAR ref';
  75
  76 ok exception {
  77     $bar->baz({})
  78 }, '... couldnt set bar successfully with a HASH ref';
  79
  80 # check the constructor
  81
  82 ok ! exception {
  83     Bar->new(baz => 'a string')
  84 }, '... created new Bar with baz successfully set with a string';
  85
  86 ok ! exception {
  87     Bar->new(baz => sub { 'a sub' })
  88 }, '... created new Bar with baz successfully set with a CODE ref';
  89
  90 ok exception {
  91     Bar->new(baz => \(my $var2))
  92 }, '... didnt create a new Bar with baz as a number';
  93
  94 ok exception {
  95     Bar->new(baz => {})
  96 }, '... didnt create a new Bar with baz as a HASH ref';
  97
  98 done_testing;