#!/usr/bin/perl

use strict;
use lib 'lib';
use WWW::HtmlUnit;
use Test::More tests => 1;

my $webClient = WWW::HtmlUnit->new;
my $page = $webClient->getPage("http://htmlunit.sf.net");
my $title = $page->getTitleText();

is $title, 'HtmlUnit - Welcome to HtmlUnit';