t/aggregate/unit_core_component_deprecated_setting_component.t

   1 use warnings;
   2 use strict;
   3 use Test::More;
   4 use Moose::Meta::Class;
   5 use Data::Dumper;
   6
   7 Moose::Meta::Class->create( MyModel => (
   8     superclasses => ['Catalyst::Model'],
   9 ));
  10
  11 Moose::Meta::Class->create( TestAppComponent => (
  12     superclasses => ['Catalyst'],
  13 ));
  14 TestAppComponent->setup_log;
  15 TestAppComponent->setup_config;
  16
  17 ok(TestAppComponent->components({ Test => 'MyModel' }));
  18
  19 # no warnings, and no components dumped
  20 diag(Dumper(TestAppComponent->components()));
  21
  22 done_testing;