use Test::More; use Test::XML; use Data::Dumper; plan tests => 2; require_ok( 'XHTML::Instrumented' ); my $data = <<'DATA'; head test
@@bob@@. two.
DATA my $cmp = <<'DATA'; head test DATA my $x = XHTML::Instrumented->new(name => \$data, type => ''); $output = $x->head(); is_xml($output, $cmp, 'head');