use strict; use warnings; # Should be 28. use Test::More tests => 28; use XML::LibXSLT; use XML::LibXML; my $parser = XML::LibXML->new(); my $xslt = XML::LibXSLT->new(); my $source = $parser->parse_string(<<'EOF'); EOF # TEST:$n=0; my @style_docs; # XML # TEST:$n++; push @style_docs, "text/xml", <<'EOF'; EOF # HTML # TEST:$n++; push @style_docs, "text/html", <<'EOF'; EOF # TEXT # TEST:$n++; push @style_docs, "text/plain", <<'EOF'; EOF # Default XML # TEST:$n++; push @style_docs, "text/xml", <<'EOF'; EOF # Default HTML (broken for now!) # TEST:$n++; push @style_docs, "text/html", <<'EOF'; EOF # Text, other # TEST:$n++; push @style_docs, "text/rtf", <<'EOF'; EOF # XML, other # TEST:$n++; push @style_docs, "text/vnd.wap.wml", <<'EOF'; EOF # TEST:$num_style_docs=$n; while (@style_docs) { my ($media_type, $style_str) = splice(@style_docs, 0, 2); my $style_doc = $parser->parse_string($style_str); # TEST*$num_style_docs ok($style_doc, ' TODO : Add test name'); my $stylesheet = $xslt->parse_stylesheet($style_doc); # TEST*$num_style_docs ok($stylesheet, ' TODO : Add test name'); my $results = $stylesheet->transform($source); # TEST*$num_style_docs ok($results, ' TODO : Add test name'); # TEST*$num_style_docs is($stylesheet->media_type, $media_type, ' TODO : Add test name'); }