fixed issue when injecting controllers

[catagits/Catalyst-Runtime.git] / t / accept_context_regression.t

diff --git a/t/accept_context_regression.t b/t/accept_context_regression.t
new file mode 100644 (file)
index 0000000..0fb09e9
--- /dev/null
+++ b/t/accept_context_regression.t
@@ -0,0 +1,40 @@
+use Test::Most;
+
+{
+  package MyApp::Model::AcceptContext;
+  use base 'Catalyst::Model';
+
+  sub ACCEPT_CONTEXT {
+    my ($self, $c, @args) = @_;
+    Test::Most::ok( ref $c);
+  }
+
+  $INC{'MyApp/Model/AcceptContext.pm'} = __FILE__;
+
+  package MyApp::Controller::Root;
+  use base 'Catalyst::Controller';
+
+  sub test_model :Local {
+    my ($self, $c) = @_;
+    $c->res->body('test');
+  }
+
+  $INC{'MyApp/Controller/Root.pm'} = __FILE__;
+
+  package MyApp;
+  use Catalyst;
+  
+  MyApp->setup;
+}
+
+use Catalyst::Test 'MyApp';
+
+my ($res, $c) = ctx_request('/test_model');
+
+ok $res;
+
+use Devel::Dwarn;
+#Dwarn $c->model('AcceptContext');
+
+done_testing;
+