my $anon_class = Moose::Meta::Class->create_anon_class(
superclasses => ['Catalyst::Request'],
- roles => ['Catalyst::TraitFor::Request::REST::ForBrowsers'],
+ roles => ['Catalyst::TraitFor::Request::REST'],
cache => 1,
)->name;
+# We run the tests twice to make sure Catalyst::Request::REST is
+# 100% back-compatible.
for my $class ( $anon_class, 'Catalyst::Request::REST' ) {
{
- my $request = Catalyst::Request::REST->new(
+ my $request = $class->new(
_log => Catalyst::Log->new
);
$request->{_context} = 'MockContext';
}
{
- my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
+ my $request = $class->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( _log => Catalyst::Log->new );
+ my $request = $class->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( _log => Catalyst::Log->new );
+ my $request = $class->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
+ my $request = $class->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
+ my $request = $class->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
+ my $request = $class->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );
}
{
- my $request = Catalyst::Request::REST->new( _log => Catalyst::Log->new );
+ my $request = $class->new( _log => Catalyst::Log->new );
$request->{_context} = 'MockContext';
$request->headers( HTTP::Headers->new );
$request->parameters( {} );