Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more
1234567891011121314151617 use warnings;use strict;require 't/LintTest.pl';checkit( [ [ 'elem-empty-but-closed' => qr/<hr> is not a container -- <\/hr> is not allowed/ ],], [<DATA>] ); __DATA__<HTML> <HEAD> <TITLE>Test stuff</TITLE> </HEAD> <BODY BGCOLOR="white"> <HR>This is a bad paragraph</HR> </BODY></HTML>
use
warnings;
strict;
require
't/LintTest.pl'
;
checkit( [
[
'elem-empty-but-closed'
=>
qr/<hr> is not a container -- <\/
hr> is not allowed/ ],
], [<DATA>] );
__DATA__
<HTML>
<HEAD>
<TITLE>Test stuff</TITLE>
</HEAD>
<BODY BGCOLOR="white">
<HR>This is a bad paragraph</HR>
</BODY>
</HTML>