X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbloggery.t;h=8aa35f6c4bbbfa20f658afdb2272c56e122fd979;hb=run_if_script_error;hp=14f38d7378a6183e89390e9749c9f4547aaec6a6;hpb=53d47b782b9c4c843349287b51e7234351299866;p=catagits%2FWeb-Simple.git

diff --git a/t/bloggery.t b/t/bloggery.t
index 14f38d7..8aa35f6 100644
--- a/t/bloggery.t
+++ b/t/bloggery.t
@@ -6,12 +6,12 @@ use Test::More qw(no_plan);
 require_ok 'examples/bloggery/bloggery.cgi';
 
 __END__
-use Test::More (
-  eval { require HTTP::Request::AsCGI }
-    ? 'no_plan'
-    : (skip_all => 'No HTTP::Request::AsCGI')
-);
-  
+#use Test::More (
+#  eval { require HTTP::Request::AsCGI }
+#    ? 'no_plan'
+##    : (skip_all => 'No HTTP::Request::AsCGI')
+#);
+use HTTP::Request::AsCGI;  
 
 use HTTP::Request::Common qw(GET POST);
 
@@ -23,7 +23,7 @@ my $app = Bloggery->new(
 
 sub run_request {
   my $request = shift;
-  my $c = HTTP::Request::AsCGI->new($request)->setup;
+  my $c = HTTP::Request::AsCGI->new($request, SCRIPT_NAME=> $0)->setup;
   $app->run;
   $c->restore;
   return $c->response;