}, "Rule with multiple semi-colons");
HTML-Defang-1.08/t/01_basic.t 0000755 0000000 0000000 00000037517 15103075374 014124 0 ustar root root #!/usr/bin/perl -w
BEGIN { # CPAN users don't have ME::*, so use eval
eval 'use ME::FindLibs'
}
use Test::More tests => 93;
use HTML::Defang;
use strict;
my ($Res, $H);
my ($DefangString, $CommentStartText, $CommentEndText) = ('defang_', '/\*SC\*/', '/\*EC\*/');
my $Defang = HTML::Defang->new();
$H = <