case_sensitive removed

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

diff --git a/t/unit_load_catalyst_test.t b/t/unit_load_catalyst_test.t
index ffa5655..70d4a32 100644 (file)
--- a/t/unit_load_catalyst_test.t
+++ b/t/unit_load_catalyst_test.t
@@ -5,7 +5,7 @@ use warnings;
 
 use FindBin;
 use lib         "$FindBin::Bin/lib";
-use Test::More  tests => 59;
+use Test::More  tests => 61;
 use FindBin qw/$Bin/;
 use lib "$Bin/lib";
 use Catalyst::Utils;
@@ -82,13 +82,16 @@ use_ok( $Class );
         skip "Context tests skipped for '$meth'", 6 unless $meth eq 'ctx_request';
 
         ok( $c,                 "           Context object returned" );
-        isa_ok( $c, $App,       "               Object" );
+        isa_ok( $c, $App->context_class,       "               Object" );
         is( $c->request->uri, $Url,
                                 "               Url recorded in request" );
         is( $c->response->body, $Content,
                                 "               Content recorded in response" );
         ok( $c->stash,          "               Stash accessible" );
         ok( $c->action,         "               Action object accessible" );
+        ok( $res->request,      "               Response has request object" );
+        lives_and { is( $res->request->uri, $Url) }
+                                "               Request object has correct url";
     } }
 }