Automatic Testing with Perl
Prev	Chapter 12. Web Applications	Next

12.5. Fetching a not-existing static page

Example 12-2. examples/www/static_bad.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 1;
use LWP::Simple;

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

Fetch a page and check if there is response.

$ perl static_bad.t 
not ok 1 - There is a response
#     Failed test (static_bad.t at line 10)
1..1
# Looks like you failed 1 tests of 1.

Prev	Home (Copyright Gabor Szabo)	Next
Fetching a static page	Up	Checking good HTML

If you are interested in on-site trainings by the author, please contact me directly.