xml_test.pl to HTML.

index -|- end

Generated: Tue Feb 2 17:55:01 2010 from xml_test.pl 2005/06/07 356.

#!/Perl
use Test::Harness qw(&runtests $verbose);
use strict;
while(@ARGV > 2) {
    my $arg = shift @ARGV;
    if ($arg eq '-d') {
        $verbose = 1;
    }
}
if (@ARGV < 2) {
    usage();
    exit(0);
}
sub usage {
    warn "Usage: xml_test.pl [-d] testscript xmlfile\n";
}
$ENV{XMLFILE} = $ARGV[1];
runtests $ARGV[0]; 

index -|- top

checked by tidy  Valid HTML 4.01 Transitional