You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
76 lines
1.2 KiB
76 lines
1.2 KiB
15 years ago
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
if ( @ARGV != 1 ) {
|
||
|
|
print STDERR "Missing arg: filename\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
$file = $ARGV[0];
|
||
|
|
|
||
|
|
if ( !open( IN, "$file" ) ) {
|
||
|
|
print STDERR "Unable to open '$file'\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
while( <IN> ) {
|
||
|
|
if (/^VERSION:(.*)$/ ) {
|
||
|
|
$version = $1;
|
||
|
|
if ( $version eq "2.1" ) { $options = "--vcard21"; }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
close IN;
|
||
|
|
|
||
|
|
$ref = "$file.ref";
|
||
|
|
|
||
|
|
if ( !open( REF, "$ref" ) ) {
|
||
|
|
print STDERR "Unable to open $ref\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
while( <REF> ) {
|
||
|
|
push @ref, $_;
|
||
|
|
}
|
||
|
|
|
||
|
|
close REF;
|
||
|
|
|
||
|
|
if ( !open( READ, "./testread $file $options 2> /dev/null |" ) ) {
|
||
|
|
print STDERR "Unable to open testread\n";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "Checking '$file':\n";
|
||
|
|
|
||
|
|
$gotsomething = 0;
|
||
|
|
$error = 0;
|
||
|
|
$i = 0;
|
||
|
|
while( <READ> ) {
|
||
|
|
$gotsomething = 1;
|
||
|
|
$out = $_;
|
||
|
|
$ref = @ref[$i++];
|
||
|
|
|
||
|
|
if ( $out ne $ref ) {
|
||
|
|
if ( $ref =~ /^UID/ && $out =~ /^UID/ ) { next; }
|
||
|
|
$error++;
|
||
|
|
print " Expected : $ref";
|
||
|
|
print " Parser output : $out";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
close READ;
|
||
|
|
|
||
|
|
if ( $gotsomething == 0 ) {
|
||
|
|
print "\n FAILED: testread didn't output anything\n";
|
||
|
|
system "touch FAILED";
|
||
|
|
exit 1;
|
||
|
|
}
|
||
|
|
if ( $error > 0 ) {
|
||
|
|
print "\n FAILED: $error errors found.\n";
|
||
|
|
system "touch FAILED";
|
||
|
|
exit 1;
|
||
|
|
} else {
|
||
|
|
print " OK\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
exit 0;
|