#!/usr/bin/perl -w use strict; use lib 't'; use testlib; sub run { use_ok('Test::HTML::Content'); # Tests for comments has_declaration(' ', 'DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"', "Doctype 3.2"); has_declaration(' ', qr'HTML', "Doctype via RE"); has_declaration(' ', qr'DOCTYPE.*?HTML 3\.2',"Doctype via other RE"); no_declaration(' ', qr'DOCTYPE.*?HtML 3\.2',"Doctype via other RE"); }; # Borked javadoc HTML DOCTYPE ... # runtests( 1+4, \&run );