The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
use strict;
use warnings;

# use Xerces/C++ to verify that the .yml tests are correct.  Requires
# the XERCES_DOMCOUNT environment variable to be correctly set to the
# location of a working copy of the DOMCount example program from the
# Xerces/C++ source.

BEGIN {
    unless ($ENV{XERCES_DOMCOUNT}) {
        eval "use Test::More skip_all => 'Test requires \$XERCES_DOMCOUNT';";
    } else {
        eval "use Test::More qw(no_plan);";
    }
}

use lib 't/lib';
use TestRunner qw(test_yml_xerces);

if ($ENV{TEST_YML}) {
    test_yml_xerces($ENV{TEST_YML});
} else {

    # skip tests Xerces doesn't like
    for (sort grep { $_ ne 't/qualified.yml' and
                     $_ ne 't/repeated_groups.yml'
                   } glob('t/*.yml')) {
        print "\n######## $_ #######\n";
        test_yml_xerces($_);
    }
}