Do not munge config

[catagits/CatalystX-DynamicComponent.git] / t / 06_dynamicmodel_interface.t

diff --git a/t/06_dynamicmodel_interface.t b/t/06_dynamicmodel_interface.t
index d67c0d8..6b0461e 100644 (file)
--- a/t/06_dynamicmodel_interface.t
+++ b/t/06_dynamicmodel_interface.t
@@ -3,19 +3,22 @@ use warnings;
 
 use FindBin qw/$Bin/;
 use lib "$Bin/lib";
+use Data::Dumper;
 
 use Test::More tests => 2;
 
 BEGIN { use_ok('ModelsFromConfigInterfaceApp'); }
 
 my $config = ModelsFromConfigInterfaceApp->config;
-delete $config->{'CatalystX::DynamicComponent::ModelToControllerReflector'};
 
-is_deeply($config, {
+my $expected = {
     name => 'ModelsFromConfigInterfaceApp',
     'Model::One' => {
         class => 'SomeModelClass',
         interface_roles => [qw/ SomeModelClassInterface /],
     },
-}, 'Config is not munged');
+};
+
+is_deeply($config, $expected, 'Config is not munged')
+    or warn Dumper([$config, $expected]);