t/lib/TestCustomContainer.pm

   1 package TestCustomContainer;
   2 use Moose;
   3 use namespace::autoclean;
   4 use Test::More;
   5
   6 has app_name => (
   7     is => 'ro',
   8     isa => 'Str',
   9     default => 'TestAppCustomContainer',
  10 );
  11
  12 has container_class => (
  13     is => 'ro',
  14     isa => 'Str',
  15     lazy_build => 1,
  16 );
  17
  18 has sugar => (
  19     is => 'ro',
  20     isa => 'Int',
  21 );
  22
  23 # Reason for this class:
  24 # I wanted have a set of tests that would test both the sugar version of the
  25 # container, as the sugar-less. I figured I shouldn't just copy and paste
  26 # the tests. So after struggling for hours to find a way to test twice
  27 # against the same TestApp using only one file, I decided to break it
  28 # into a separate class (this one), and call it at
  29 #           -  live_container_custom_container_sugar.t and
  30 #           -  live_container_custom_container_nosugar.t
  31 # setting only the sugar attribute.
  32
  33 sub BUILD {
  34     my $self = shift;
  35
  36     $ENV{TEST_APP_CURRENT_CONTAINER} = $self->container_class;
  37
  38     require Catalyst::Test;
  39     Catalyst::Test->import($self->app_name);
  40
  41     is(get('/container_class'), $self->container_class, 'config is set properly');
  42     is(get('/container_isa'), $self->container_class,   'and container isa our container class');
  43
  44     {
  45         # Foo ACCEPT_CONTEXT called - total: 1
  46         ok(my ($res, $c) = ctx_request('/get_model_baz'), 'request');
  47         ok($res->is_success, 'request 2xx');
  48         is($res->content, 'TestAppCustomContainer::Model::Baz', 'content is expected');
  49
  50         ok(my $baz = $c->container->get_sub_container('model')->resolve(service => 'Baz', parameters => { ctx => $c, accept_context_args => [$c] } ), 'fetching Baz');
  51         isa_ok($baz, 'TestAppCustomContainer::Model::Baz');
  52         is($baz->accept_context_called, 1, 'ACCEPT_CONTEXT called');
  53         isa_ok($baz->foo, 'TestAppCustomContainer::Model::Foo', 'Baz got Foo ok');
  54
  55 #        ok(my $foo = $c->container->get_sub_container('component')->resolve(service => 'model_Foo'), 'fetching Foo');
  56 #        isa_ok($foo, 'TestAppCustomContainer::Model::Foo');
  57 #        is($foo->baz_got_it, 1, 'Baz accessed Foo once');
  58
  59         # Foo ACCEPT_CONTEXT called - total: 2
  60         ok(get('/get_model_baz'), 'another request');
  61         is($baz->accept_context_called, 1, 'ACCEPT_CONTEXT not called again (instance per context)');
  62 #        is($foo->baz_got_it, 2, 'Baz accessed Foo again');
  63     }
  64
  65     {
  66         # Foo ACCEPT_CONTEXT called - total: 3
  67         ok(my ($res, $c) = ctx_request('/get_model_bar'), 'request');
  68         ok($res->is_success, 'request 2xx');
  69         is($res->content, 'TestAppCustomContainer::Model::Bar', 'content is expected');
  70
  71         ok(my $bar = $c->container->get_sub_container('component')->resolve(service => 'model_Bar'), 'fetching Bar');
  72         isa_ok($bar, 'TestAppCustomContainer::Model::Bar');
  73
  74         # FIXME - is this expected behavior?
  75         is($bar->accept_context_called, 1, 'ACCEPT_CONTEXT called');
  76         isa_ok($bar->foo, 'TestAppCustomContainer::Model::Foo', 'Bar got Foo ok');
  77
  78 #        ok(my $foo = $c->container->get_sub_container('component')->resolve(service => 'model_Foo'), 'fetching Foo');
  79 #        isa_ok($foo, 'TestAppCustomContainer::Model::Foo');
  80 #        is($foo->bar_got_it, 1, 'Bar accessed Foo once');
  81
  82         # Foo ACCEPT_CONTEXT *not* called - total: 3
  83         ok(get('/get_model_bar'), 'another request');
  84         is($bar->accept_context_called, 1, 'ACCEPT_CONTEXT not called again (lifecycle is Singleton)');
  85 #        is($foo->bar_got_it, 1, 'Bar didn\'t access Foo again');
  86     }
  87
  88     {
  89         # Foo ACCEPT_CONTEXT called - total: 4
  90         ok(my ($res, $c) = ctx_request('/get_model_foo'), 'request');
  91         ok($res->is_success, 'request 2xx');
  92         is($res->content, 'TestAppCustomContainer::Model::Foo', 'content is expected');
  93
  94 #        ok(my $foo = $c->container->get_sub_container('component')->resolve(service => 'model_Foo'), 'fetching Foo');
  95 #        isa_ok($foo, 'TestAppCustomContainer::Model::Foo');
  96 #        is($foo->accept_context_called, 4, 'ACCEPT_CONTEXT called');
  97 #        is($foo->bar_got_it, 1, 'Bar accessed Foo once');
  98 #        is($foo->baz_got_it, 2, 'Baz accessed Foo twice');
  99     }
 100
 101     done_testing;
 102 }
 103
 104 sub _build_container_class {
 105     my $self = shift;
 106
 107     my $sugar = $self->sugar ? '' : 'No';
 108
 109     return $self->app_name . "::${sugar}SugarContainer";
 110 }
 111
 112 __PACKAGE__->meta->make_immutable;
 113
 114 1;