X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fhttp_method.t;h=039d94f4b8b668f122ad54c3922de439c43280d7;hp=506e5641598a4707426338d03a9bd216bc7a6970;hb=4e45fa288ea80bf2a4587dd2278c784286aafdc3;hpb=9c7b676881de2255b45fdab5bfb71f58a5e6d236

diff --git a/t/http_method.t b/t/http_method.t
index 506e564..039d94f 100644
--- a/t/http_method.t
+++ b/t/http_method.t
@@ -1,5 +1,10 @@
 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
@@ -39,29 +44,29 @@ use strict;
         $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)) {
@@ -69,7 +74,7 @@ use strict;
       }
     } else {
       $self->status(406);
-      $self->body("Method Not Acceptable");      
+      $self->body("Method Not Acceptable");
     }
   }
 
@@ -79,16 +84,10 @@ use strict;
 
 
 
-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();