perl-XML-LibXML / t / 46err_column.t


use strict;
use warnings;

# Bug #66642 for XML-LibXML: $err->column() incorrectly maxed out as 80
# .

use Test::More tests => 1;

use XML::LibXML qw();

eval {
'<foo attr1="value1" attr2="value2" attr3="value2" attr4="value2"'
. ' attr5="value2" attr6="value2" attr7="value2" attr8="value2"'
. ' attr9="value2" attr10="value2" attr11="value2" attr12="value2"'
. ' attr13="value2"attr14="value2" attr15="value2" />'

    my $err = $@;
    # This is a fix for:
    # << t/46err_column.t is broken on centos/RHEL 4 >>

    # On this system, libxml is as follows:
    # libxml2-devel-2.6.16-12.8

    if (! ref($err))
        skip('parse_string returned a string - not an XML::LibXML::Error object - probably an old libxml2',
    # TEST
    is ($err->column(), 203, "Column is OK.");
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.