t/01basic.t


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 strict;
use warnings;

use Test::More tests => 3;

use XML::LibXML;

# TEST
ok(1, 'Loaded fine');

my $p = XML::LibXML->new();
# TEST
ok ($p, 'Can initialize a new XML::LibXML instance');

my ($runtime_version) = (XML::LibXML::LIBXML_RUNTIME_VERSION() =~ /\A(\d+)/);

# TEST
if (!is (
    XML::LibXML::LIBXML_VERSION, $runtime_version,
    'LIBXML__VERSION == LIBXML_RUNTIME_VERSION',
))
{
   diag("DO NOT REPORT THIS FAILURE: Your setup of library paths is incorrect!");
}

diag( "\n\nCompiled against libxml2 version: ",XML::LibXML::LIBXML_VERSION,
     "\nRunning libxml2 version:          ",$runtime_version,
     "\n\n");