use warnings;
use strict;
+use Test::More;
+
+plan skip_all => "Test Cases are Sketch for next release";
+
+__END__
# Test case to check that we now send scalar and filehandle like
# bodys directly to the PSGI engine, rather than call $writer->write
$c->res->location($c->uri_for( $self->action_for('show')));
}
- $INC{'MyApp/Controller/User.pm'} = '1';
+ $INC{'MyApp/Controller/User.pm'} = __FILE__;
package MyApp;
use Catalyst;
use HTTP::Headers::ActionPack;
-
+
my $cn = HTTP::Headers::ActionPack->new
->get_content_negotiator;
-
+
sub Catalyst::Response::format
{
my $self = shift;
my %formats = @_;
my @formats = keys %formats;
-
+
my $accept = $self->_context->req->header('Accept') ||
$format{default} ||
$_[0];
-
+
$self->headers->header('Vary' => 'Accept');
$self->headers->header('Accepts' => (join ',', @formats));
-
+
if(my $which = $cn->choose_media_type(\@formats, $accept)) {
$self->content_type($which);
if(my $possible_body = $formats{$which}->($self)) {
}
} else {
$self->status(406);
- $self->body("Method Not Acceptable");
+ $self->body("Method Not Acceptable");
}
}
-use Devel::Dwarn;
-use Test::More;
+
use HTTP::Request::Common;
use Catalyst::Test 'MyApp';
ok my($res, $c) = ctx_request('/');
-
-
-
-Dwarn(MyApp->dispatcher);
-
done_testing();