1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
use strict;
use Test::More tests => 7;
BEGIN {
use_ok( "Test::HTML::Content" );
};
SKIP: {
skip "XML::XPath or XML::LibXML is needed for title testing", 6
unless $Test::HTML::Content::can_xpath;
title_ok('<html><head><title>A test title</title></head><body></body></html>',qr"A test title","Title RE");
title_ok('<html><head><title>A test title</title></head><body></body></html>',qr"^A test title$","Anchored title RE");
title_ok('<html><head><title>A test title</title></head><body></body></html>',qr"test","Title RE works for partial matches");
title_ok('<html><head><title>A test title</title></head><body></body></html>',"A test title","Title string");
no_title('<html><head><title>A test title</title></head><body></body></html>',"test","Complete title string gets compared");
no_title('<html><head><title>A test title</title></head><body></body></html>',"A toast title","no_title string");
};
|
