$heading

"$heading"

EOT like $result, qr{<h1 id="\Q$html_id\E">}, "heading id generated correctly for '$heading'"; like $result, qr{<li><a href="\#\Q$link\E">}, "index link generated correctly for '$heading'"; like $result, qr{<p><a href="\#\Q$link\E">}, "L<> link generated correctly for '$heading'"; } { my $result = MyXHTML->new->parse_to_string(<<"EOT"); =over 4

$heading

EOT like $result, qr{<dt id="\Q$html_id\E">}, "item id generated correctly for '$heading'"; } }