X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_component_setup_component.t;h=a669e90c90c04516227ec968f31b39878ce3d576;hb=ba70cf579faaddb09d6a38f81dbf166a66d12484;hp=08c0286fb99de8cea9b08e523ebb529db6de58b5;hpb=03e89d2c39c919833f58675f7c62d622673c2308;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/unit_core_component_setup_component.t b/t/aggregate/unit_core_component_setup_component.t index 08c0286..a669e90 100644 --- a/t/aggregate/unit_core_component_setup_component.t +++ b/t/aggregate/unit_core_component_setup_component.t @@ -1,8 +1,7 @@ use strict; use warnings; -use Test::More; +use Test::More tests => 13; use Moose::Meta::Class; -use Data::Dumper; my %config = ( foo => 42, @@ -77,7 +76,7 @@ Moose::Meta::Class->create( $regular => ( $component = eval { TestAppComponent->setup_component($config) }; ok( !$@, "setup_component doesnt die with $config" ); is( $message, undef, "no exception thrown" ); - is_deeply( $component, bless(\%config, $config), "the returned config is correct" ); + is_deeply( $component, \%config, "the returned config is correct" ); undef $message; $component = eval { TestAppComponent->setup_component($dieing) }; @@ -95,5 +94,3 @@ Moose::Meta::Class->create( $regular => ( is( $message, undef, "no exception thrown" ); isa_ok( $component, $regular, "the returned value is correct" ); } - -done_testing();