HTML-Zoom
view release on metacpan or search on metacpan
t/parse_cdata.t view on Meta::CPAN
use strictures 1;
use HTML::Zoom;
use Test::More skip_all => "Totally doesn't work yet";
# Test that contant of elements defined as containing intrinsic CDATA are not
# selected as elements
# NB: This tests HTML parsing rules. XHTML is different.
my $template = <<HTML;
<!DOCTYPE html>
<html lang=en-gb>
<meta charset=utf-8>
<title>Test</title>
<style>
/* <textarea>Unmodified</textarea> */
</style>
</head>
( run in 1.141 second using v1.01-cache-2.11-cpan-49f99fa48dc )