X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbloggery.t;h=8aa35f6c4bbbfa20f658afdb2272c56e122fd979;hb=people%2Fnap%2Fzoom_evented_xmltags;hp=9ed24423e3ff49311f0fe2f376721bc084ab93df;hpb=391190822264aefefa6755d410141688a7155dee;p=catagits%2FWeb-Simple.git

diff --git a/t/bloggery.t b/t/bloggery.t
index 9ed2442..8aa35f6 100644
--- a/t/bloggery.t
+++ b/t/bloggery.t
@@ -1,11 +1,17 @@
 use strict;
 use warnings FATAL => 'all';
-use Test::More (
-  eval { require HTTP::Request::AsCGI }
-    ? 'no_plan'
-    : (skip_all => 'No HTTP::Request::AsCGI')
-);
-  
+
+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 HTTP::Request::AsCGI;  
 
 use HTTP::Request::Common qw(GET POST);
 
@@ -17,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;