X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F200_examples%2F005_example_w_TestDeep.t;h=47bef7e105db610c50b971883f8bf05cd99de24f;hb=d03bd989b97597428b460d7f9a021e2931893fa0;hp=cd33fa90e3c3ba432eac83351c0885f072740678;hpb=f6bee6fe1d579dc3d2ed2952cce9a1556040c8e5;p=gitmo%2FMoose.git diff --git a/t/200_examples/005_example_w_TestDeep.t b/t/200_examples/005_example_w_TestDeep.t index cd33fa9..47bef7e 100644 --- a/t/200_examples/005_example_w_TestDeep.t +++ b/t/200_examples/005_example_w_TestDeep.t @@ -7,18 +7,18 @@ use Test::More; =pod -This tests how well Moose type constraints -play with Test::Deep. +This tests how well Moose type constraints +play with Test::Deep. -Its not as pretty as Declare::Constraints::Simple, +Its not as pretty as Declare::Constraints::Simple, but it is not completely horrid either. =cut BEGIN { eval "use Test::Deep;"; - plan skip_all => "Test::Deep is required for this test" if $@; - plan tests => 5; + plan skip_all => "Test::Deep is required for this test" if $@; + plan tests => 5; } use Test::Exception; @@ -31,11 +31,11 @@ use Test::Exception; use Test::Deep qw[ eq_deeply array_each subhashof ignore ]; - + # define your own type ... - type 'ArrayOfHashOfBarsAndRandomNumbers' + type 'ArrayOfHashOfBarsAndRandomNumbers' => where { - eq_deeply($_, + eq_deeply($_, array_each( subhashof({ bar => Test::Deep::isa('Bar'), @@ -43,8 +43,8 @@ use Test::Exception; }) ) ) - }; - + }; + has 'bar' => ( is => 'rw', isa => 'ArrayOfHashOfBarsAndRandomNumbers', @@ -56,12 +56,12 @@ use Test::Exception; my $array_of_hashes = [ { bar => Bar->new, random_number => 10 }, - { bar => Bar->new }, + { bar => Bar->new }, ]; my $foo; lives_ok { - $foo = Foo->new('bar' => $array_of_hashes); + $foo = Foo->new('bar' => $array_of_hashes); } '... construction succeeded'; isa_ok($foo, 'Foo');