use Test;
BEGIN { plan tests => 29 }
use XML::LibXSLT;
use XML::LibXML;
ok(1);
my $parser = XML::LibXML->new();
my $xslt = XML::LibXSLT->new();
my $source = $parser->parse_string(<<'EOF');
EOF
my @style_docs;
# XML
push @style_docs, "text/xml", <<'EOF';
EOF
# HTML
push @style_docs, "text/html", <<'EOF';
EOF
# TEXT
push @style_docs, "text/plain", <<'EOF';
EOF
# Default XML
push @style_docs, "text/xml", <<'EOF';
EOF
# Default HTML (broken for now!)
push @style_docs, "text/html", <<'EOF';
EOF
# Text, other
push @style_docs, "text/rtf", <<'EOF';
EOF
# XML, other
push @style_docs, "text/vnd.wap.wml", <<'EOF';
EOF
while (@style_docs) {
my ($media_type, $style_str) = splice(@style_docs, 0, 2);
my $style_doc = $parser->parse_string($style_str);
ok($style_doc);
my $stylesheet = $xslt->parse_stylesheet($style_doc);
ok($stylesheet);
my $results = $stylesheet->transform($source);
ok($results);
ok($stylesheet->media_type, $media_type);
}