more improving test - Bar
André Walker [Mon, 8 Aug 2011 03:39:01 +0000 (00:39 -0300)]
t/lib/TestAppCustomContainer/NoSugarContainer.pm
t/lib/TestCustomContainer.pm

index ecf423d..e30b08b 100644 (file)
@@ -23,6 +23,7 @@ sub BUILD {
     $self->get_sub_container('model')->add_service(
         Catalyst::IOC::BlockInjection->new(
             name         => 'Bar',
+            lifecycle    => 'Singleton',
             dependencies => [
                 Bread::Board::Dependency->new(
                     service_path => 'Foo',
index 02fb9de..815d5be 100644 (file)
@@ -54,6 +54,31 @@ sub BUILD {
         ok(my $foo = $c->container->get_sub_container('component')->resolve(service => 'model_Foo'), 'fetching Foo');
         isa_ok($foo, 'TestAppCustomContainer::Model::Foo');
         is($foo->baz_got_it, 1, 'Baz accessed Foo once');
+
+        ok(get('/get_model_baz'), 'another request');
+        is($baz->accept_context_called, 2, 'ACCEPT_CONTEXT called again');
+        is($foo->baz_got_it, 2, 'Baz accessed Foo again');
+    }
+
+    {
+        ok(my ($res, $c) = ctx_request('/get_model_bar'), 'request');
+        ok($res->is_success, 'request 2xx');
+        is($res->content, 'TestAppCustomContainer::Model::Bar', 'content is expected');
+
+        ok(my $bar = $c->container->get_sub_container('component')->resolve(service => 'model_Bar'), 'fetching Bar');
+        isa_ok($bar, 'TestAppCustomContainer::Model::Bar');
+
+        # FIXME - is this expected behavior?
+        is($bar->accept_context_called, 1, 'ACCEPT_CONTEXT called');
+        isa_ok($bar->foo, 'TestAppCustomContainer::Model::Foo', 'Bar got Foo ok');
+
+        ok(my $foo = $c->container->get_sub_container('component')->resolve(service => 'model_Foo'), 'fetching Foo');
+        isa_ok($foo, 'TestAppCustomContainer::Model::Foo');
+        is($foo->bar_got_it, 1, 'Bar accessed Foo once');
+
+        ok(get('/get_model_bar'), 'another request');
+        is($bar->accept_context_called, 1, 'ACCEPT_CONTEXT not called again (lifecycle is Singleton)');
+        is($foo->bar_got_it, 1, 'Bar didn\'t access Foo again');
     }
 
     done_testing;