use warnings;
use FindBin;
-use lib "$FindBin::Bin/lib";
-use Test::More tests => 59;
+use lib "$FindBin::Bin/../lib";
+use Test::More tests => 61;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use Catalyst::Utils;
" 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";
} }
}
# FIXME - These vhosts in tests tests should be somewhere else...
-sub customize { Catalyst::Test::_customize_request(@_) }
+sub customize { Catalyst::Test::_customize_request($_[0], {}, @_[1 .. $#_]) }
{
my $req = Catalyst::Utils::request('/dummy');