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 )