# -*- cperl -*- use Test; BEGIN { plan tests => 5 } END { ok(0) unless $loaded } use XML::LibXSLT; $loaded = 1; ok(1); my $x = XML::LibXML->new() ; ok($x) ; my $p = XML::LibXSLT->new(); ok($p); my $xsl = < EOF my $xsld = $x->parse_string($xsl) ; ok($xsld) ; my $tr = $p->parse_stylesheet($xsld) ; ok($tr) ;