#  (gH)   --  testevs.pl  ;  TimeStamp (unix) : 10 Décembre 2004 vers 13:50

     # une copie locale de XML/Checker etc. est dans ~/Bin/Perl_lib

     use lib "/home/info/gh/Bin/Perl_lib" ;

     use XML::Parser;
     use XML::SAX::ParserFactory;
     use XML::Validator::Schema;

     if (not($#ARGV==1)) {
        print "\n   syntaxe : testevsp fichier[.xml] schema[.xsd] \n\n" ;
        exit(-1) ;
     } ; # fin de si

     $nf = $ARGV[0] ;
     $ns = $ARGV[1] ;

     # on vérifie que le fichier est bien formé

     my $parser = new XML::Parser( Style => 'Stream');
     eval {$parser->parsefile( $nf )};

     die " Le document $nf est mal formé : $@" if $@;

     # validation proprement dite

     $validator = XML::Validator::Schema->new(file => $ns );
     $parser    = XML::SAX::ParserFactory->parser(Handler => $validator);
     eval { $parser->parse_uri($nf) };
     die "le document nommé $nf n'est pas valide pour son schéma : $@" if $@;

     print "Le document $nf est valide pour son schéma dtd." ;
