# -*- cperl -*-
use strict;
use warnings;
use Test::More tests => 6;
use vars (qw($loaded));
END {
# TEST
ok($loaded, 'Everything was properly loaded.');
}
use XML::LibXSLT;
$loaded = 1;
# TEST
ok(1, 'Running');
my $x = XML::LibXML->new() ;
# TEST
ok($x, 'XML::LibXML->new works.') ;
my $p = XML::LibXSLT->new();
# TEST
ok($p, 'XML::LibXSLT->new owrks.');
my $xsl = <<EOF;
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
version="1.0"> <xsl:import href="example/2.xsl" />
<xsl:output method="html" />
</xsl:stylesheet>
EOF
my $xsld = $x->parse_string($xsl) ;
# TEST
ok($xsld, 'parse_string returned a true value.') ;
my $tr = $p->parse_stylesheet($xsld) ;
# TEST
ok($tr, 'parse_stylesheet returned a true value.') ;