2 use warnings FATAL => 'all';
4 use Test::More qw(no_plan);
6 require_ok 'examples/bloggery/bloggery.cgi';
10 eval { require HTTP::Request::AsCGI }
12 : (skip_all => 'No HTTP::Request::AsCGI')
16 use HTTP::Request::Common qw(GET POST);
18 require 'examples/bloggery/bloggery.cgi';
20 my $app = Bloggery->new(
21 { config => { posts_dir => 'examples/bloggery/posts' } }
26 my $c = HTTP::Request::AsCGI->new($request)->setup;
34 warn run_request(GET 'http://localhost/index.html')->as_string;
36 warn run_request(GET 'http://localhost/')->as_string;
38 warn run_request(GET 'http://localhost/One-Post.html')->as_string;
40 warn run_request(GET 'http://localhost/Not-There.html')->as_string;
42 warn run_request(POST 'http://localhost/One-Post.html')->as_string;