The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
PETDANCE / HTML-Lint-2.30 / t / config-unknown-directive.t 
#!perl

use warnings;
use strict;

use lib 't/';
use Util;

checkit( [
    # [ 'config-unknown-directive' => q{Set #1 (6:5) Unknown directive "bongo"} ],
    [ 'config-unknown-directive' => qr/Unknown directive "bongo"$/ ],
], [<DATA>] );

__DATA__
<html>
    <head>
        <title>Test stuff</title>
    </head>
    <body bgcolor="white">
        <!-- html-lint bongo: on -->
        <!-- html-lint all: off -->
        <!-- html-lint elem-img-sizes-missing: off -->
    </body>
</html>