more improving test - Bar

[catagits/Catalyst-Runtime.git] / t / lib / TestCustomContainer.pm

diff --git a/t/lib/TestCustomContainer.pm b/t/lib/TestCustomContainer.pm
index 02fb9de..815d5be 100644 (file)
--- a/t/lib/TestCustomContainer.pm
+++ b/t/lib/TestCustomContainer.pm
@@ -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;