1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use Test;
BEGIN { plan tests => 4 }
END { ok(0) unless $loaded }
use XML::LibXSLT;
$loaded = 1;
ok(1);
my $p = XML::LibXSLT->new();
ok($p);
ok(XML::LibXSLT::LIBXSLT_VERSION, XML::LibXSLT::LIBXSLT_RUNTIME_VERSION);
ok(XML::LibXML::LIBXML_VERSION, XML::LibXML::LIBXML_RUNTIME_VERSION);
warn "\n\nCompiled against: ",
"libxslt ",XML::LibXSLT::LIBXSLT_VERSION,
", libxml2 ",XML::LibXML::LIBXML_VERSION,
"\nRunning: ",
"libxslt ",XML::LibXSLT::LIBXSLT_RUNTIME_VERSION,
", libxml2 ",XML::LibXML::LIBXML_RUNTIME_VERSION,
"\nCompiled with EXSLT: ", (XML::LibXSLT::HAVE_EXSLT() ? 'yes' : 'no'),
"\n\n";
if (XML::LibXSLT::LIBXSLT_VERSION != XML::LibXSLT::LIBXSLT_RUNTIME_VERSION
or
XML::LibXML::LIBXML_VERSION != XML::LibXML::LIBXML_RUNTIME_VERSION
) {
warn "DO NOT REPORT THIS FAILURE: Your setup of library paths is incorrect!\n\n";
}
|
