avoid using deprecated subs in threads test

[catagits/Catalyst-Runtime.git] / t / http_method.t

diff --git a/t/http_method.t b/t/http_method.t
index 506e564..039d94f 100644 (file)
--- 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();