Fetching a static page



examples/www/static.t
#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 1;
use LWP::Simple qw(get);

my $home = get 'http://localhost:8080/';
ok $home, 'There is a response';

Fetch a page and check if there is response at all.


$ perl static.t
1..1
ok 1 - There is a response