#!/usr/bin/perl

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

my $webClient = WWW::HtmlUnit->new();
my $page = $webClient->getPage("file:t/01_hello.html");

my $result = $page->asXml;

like $result, qr/<h1>\s*Hello!\s*<\/h1>/, 'Found printed Hello';