use Catalyst::TraitFor::Request::REST;
use Moose::Meta::Class;
use HTTP::Headers;
+use Catalyst::Log;
my $anon_class = Moose::Meta::Class->create_anon_class(
superclasses => ['Catalyst::Request'],
for my $class ( $anon_class, 'Catalyst::Request::REST' ) {
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new(
+ _log => Catalyst::Log->new
+ );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( { 'content-type' => 'text/fudge' } );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( { 'content-type' => 'text/fudge' } );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new;
+ my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
$ENV{CATALYST_DEBUG} = 0;
my $test = 'Test::Catalyst::Action::REST';
use_ok $test;
- is($test->request_class, 'Catalyst::Request::REST',
- 'Request::REST took over for Request');
+ ok($test->request_class->does('Catalyst::TraitFor::Request::REST'),
+ 'Request does Catalyst::TraitFor::Request::REST');
my $meta = Moose::Meta::Class->create_anon_class(
superclasses => ['Catalyst::Request'],