#!/usr/bin/perl

use strict;
use warnings;

use XML::LibXML;

my $xml = new XML::LibXML;
my $rng = new XML::LibXML::RelaxNG location => 'hopkins.rng';
my $xsd = new XML::LibXML::Schema location => 'hopkins.xsd';
my $doc = $xml->parse_file('hopkins.xml');

eval { $xsd->validate($doc) }; print 'XSD: ' . ($@ ? $@ : 'pass') . "\n";
eval { $rng->validate($doc) }; print 'RNG: ' . ($@ ? $@ : 'pass') . "\n";




