first cut at body matching

[catagits/Web-Simple.git] / t / bloggery.t

diff --git a/t/bloggery.t b/t/bloggery.t
index 3752074..14f38d7 100644 (file)
--- a/t/bloggery.t
+++ b/t/bloggery.t
@@ -1,5 +1,11 @@
 use strict;
 use warnings FATAL => 'all';
+
+use Test::More qw(no_plan);
+
+require_ok 'examples/bloggery/bloggery.cgi';
+
+__END__
 use Test::More (
   eval { require HTTP::Request::AsCGI }
     ? 'no_plan'
@@ -25,9 +31,9 @@ sub run_request {
 
 my $res;
 
-$res = run_request(GET 'http://localhost/index.html');
+warn run_request(GET 'http://localhost/index.html')->as_string;
 
-warn $res->as_string;
+warn run_request(GET 'http://localhost/')->as_string;
 
 warn run_request(GET 'http://localhost/One-Post.html')->as_string;